parent
b46cf690a7
commit
14c2282449
|
@ -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 |
|
||||||
|
|
Loading…
Reference in New Issue