mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

(tmm-completion-delete-prompt): Don't hardcode point-min==1.

Browse source 
(tmm-add-prompt): Make sure completion-setup-hook is preserved even in
case of an error in display-completion-list.
This commit is contained in:
Stefan Monnier 2008-04-14 18:13:16 +00:00
parent d8e1753cfd
commit 9241efbe69
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2008-04-14 Stefan Monnier <monnier@iro.umontreal.ca>
* tmm.el (tmm-completion-delete-prompt): Don't hardcode point-min==1.
(tmm-add-prompt): Make sure completion-setup-hook is preserved even in
case of an error in display-completion-list.
* filecache.el (file-cache-completions-keymap): Move init from
file-cache-completion-setup-function into declaration.
(file-cache-minibuffer-complete): Simplify.

11
lisp/tmm.el
View file

@ -345,8 +345,8 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
(defun tmm-completion-delete-prompt ()
(set-buffer standard-output)
(goto-char 1)
(delete-region 1 (search-forward "Possible completions are:\n")))
(goto-char (point-min))
(delete-region (point) (search-forward "Possible completions are:\n")))
(defun tmm-remove-inactive-mouse-face ()
"Remove the mouse-face property from inactive menu items."
@ -378,9 +378,10 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
(or tmm-completion-prompt
(add-hook 'completion-setup-hook
'tmm-completion-delete-prompt 'append))
(with-output-to-temp-buffer "*Completions*"
(display-completion-list completions))
(remove-hook 'completion-setup-hook 'tmm-completion-delete-prompt))
(unwind-protect
(with-output-to-temp-buffer "*Completions*"
(display-completion-list completions))
(remove-hook 'completion-setup-hook 'tmm-completion-delete-prompt)))
(set-buffer "*Completions*")
(tmm-remove-inactive-mouse-face)
(when tmm-completion-prompt