Mercurial > emacs

changeset 77053:6231e179c4db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pcomplete-read-event): One single definition, and not a defsubst.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Apr 2007 13:47:33 +0000
parents 9567c6b7088c
children d3a855b21e62
files lisp/pcomplete.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/pcomplete.el	Sun Apr 08 13:33:03 2007 +0000
+++ b/lisp/pcomplete.el	Sun Apr 08 13:47:33 2007 +0000
@@ -946,10 +946,9 @@
 (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)