andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2005-01-21 Ren�yllingstad <listmailxemacs@kyllingstad.com>

Browse source 
* pcomplete.el: define pcomplete-read-event instead of read-event,
	since it's not a complete read-event implementation
This commit is contained in:
John Wiegley 2005-01-21 10:26:26 +00:00
parent eee141ce69
commit 2ff1dec97f
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-01-21 Ren,Ai(B Kyllingstad <listmailxemacs@kyllingstad.com>
* pcomplete.el: define pcomplete-read-event instead of read-event,
since it's not a complete read-event implementation
2005-01-20 Jay Belanger <belanger@truman.edu>
* calc/calc-ext.el (calc-fancy-prefix-other-key): Set prefix arg

8
lisp/pcomplete.el
View file

@ -946,8 +946,10 @@ generate the completions list. This means that the hook
(unless (fboundp 'event-matches-key-specifier-p)
(defalias 'event-matches-key-specifier-p 'eq))
(unless (fboundp 'read-event)
(defsubst read-event (&optional prompt)
(if (fboundp 'read-event)
(defsubst pcomplete-read-event (&optional prompt)
(read-event prompt))
(defsubst pcomplete-read-event (&optional prompt)
(aref (read-key-sequence prompt) 0)))
(unless (fboundp 'event-basic-type)
@ -969,7 +971,7 @@ Typing SPC flushes the help buffer."
(prog1
(catch 'done
(while (with-current-buffer (get-buffer "*Completions*")
(setq event (read-event)))
(setq event (pcomplete-read-event)))
(cond
((event-matches-key-specifier-p event ? )
(set-window-configuration pcomplete-last-window-config)