Mercurial > emacs
changeset 59667:308beae8def9
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
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Fri, 21 Jan 2005 10:26:05 +0000 |
| parents | 77c91b49b403 |
| children | 13cf3d8a07b2 |
| files | lisp/pcomplete.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcomplete.el Fri Jan 21 05:59:21 2005 +0000 +++ b/lisp/pcomplete.el Fri Jan 21 10:26:05 2005 +0000 @@ -946,8 +946,10 @@ (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 @@ (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)