From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Apr 2007 13:47:33 +0000 (+0000)
Subject: (pcomplete-read-event): One single definition, and not a defsubst.
X-Git-Tag: emacs-pretest-22.0.98~204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d8e50884bdb17b12576ecbf33d4afd973508fdf;p=emacs.git

(pcomplete-read-event): One single definition, and not a defsubst.
---

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)