Commit 2ff1dec9 authored by John Wiegley's avatar John Wiegley
Browse files

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

	* pcomplete.el: define pcomplete-read-event instead of read-event,
	since it's not a complete read-event implementation
parent eee141ce
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment