From 2d8e50884bdb17b12576ecbf33d4afd973508fdf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Apr 2007 13:47:33 +0000 Subject: [PATCH] (pcomplete-read-event): One single definition, and not a defsubst. --- lisp/pcomplete.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index deeda45cf19..c1da9fb9132 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -946,10 +946,9 @@ generate the completions list. This means that the hook (unless (fboundp 'event-matches-key-specifier-p) (defalias 'event-matches-key-specifier-p 'eq)) -(if (fboundp 'read-event) - (defsubst pcomplete-read-event (&optional prompt) - (read-event prompt)) - (defsubst pcomplete-read-event (&optional prompt) +(defun pcomplete-read-event (&optional prompt) + (if (fboundp 'read-event) + (read-event prompt) (aref (read-key-sequence prompt) 0))) (unless (fboundp 'event-basic-type) -- 2.39.5