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

hide completion when found one 

Ignore-this: a038175ae185d87f9fb3aaadd2fd9504

darcs-hash:20120203065638-c41ad-d231e837d60c80a15aa85b659048ca8d51740a64
This commit is contained in:
Jeremie Dimino 2012-02-03 07:56:38 +01:00
parent a877bb1028
commit e52fb6987a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/emacs/utop.el
View File

@ -290,7 +290,9 @@ before the end of prompt.")
;; Complete with a word ;; Complete with a word
((string= command "completion-word") ((string= command "completion-word")
(setq utop-state 'edit) (setq utop-state 'edit)
(insert argument)) (insert argument)
;; Hide completion
(minibuffer-hide-completions))
;; Start of completion ;; Start of completion
((string= command "completion-start") ((string= command "completion-start")
(setq utop-completion nil)) (setq utop-completion nil))