From 2ff1dec97facba8512f1b731f8c91a5b833117a8 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 21 Jan 2005 10:26:26 +0000 Subject: =?UTF-8?q?2005-01-21=20=20Ren=EF=BF=BDyllingstad=20=20?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * pcomplete.el: define pcomplete-read-event instead of read-event, since it's not a complete read-event implementation --- lisp/pcomplete.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/pcomplete.el') diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index f4b796dd1a7..b01bef39664 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -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) -- cgit v1.2.1