haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix indentation 

no semantic changes here
This commit is contained in:
Rudi Grinberg 2017-08-15 11:48:07 -04:00
parent b46cf690a7
commit 14c2282449
1 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/top/utop.el
View File

@ -27,7 +27,7 @@
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
(defconst utop-license "BSD3" (defconst utop-license "BSD3"
"Copyright (c) 2011, Jeremie Dimino <jeremie@dimino.org> "Copyright (c) 2011, Jeremie Dimino <jeremie@dimino.org>
All rights reserved. All rights reserved.
Redistribution and use in source and binary forms, with or without Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met: modification, are permitted provided that the following conditions are met:
@ -312,7 +312,7 @@ modes you need to set these variables:
(delete-region (point-min) (point-max)) (delete-region (point-min) (point-max))
(tabulated-list-init-header) (tabulated-list-init-header)
(tabulated-list-print t)))) (tabulated-list-print t))))
) )
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
;; | Utils | ;; | Utils |
@ -434,14 +434,14 @@ it is started."
(end-pos (utop-ident-looking nil))) (end-pos (utop-ident-looking nil)))
(buffer-substring-no-properties start-pos end-pos))) (buffer-substring-no-properties start-pos end-pos)))
; Currently not working - the communication is asynchronous so how to ;; Currently not working - the communication is asynchronous so how to
; make sure without implementing another state that the type ;; make sure without implementing another state that the type
; information has been already printed? ;; information has been already printed?
(defun utop-type-at-point () (defun utop-type-at-point ()
"Find type of an identifier at point from uTop" "Find type of an identifier at point from uTop"
(utop-eval-string (utop-ident-at-point)) (utop-eval-string (utop-ident-at-point)))
; (utop-last-type) ;; (utop-last-type)
)
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
;; | Edition control | ;; | Edition control |