# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1176040053 0
# Node ID 6231e179c4db4bdbb4f2f3c1315eefe2811be639
# Parent  9567c6b7088c3319db5129bf0c552e1027608057
(pcomplete-read-event): One single definition, and not a defsubst.

diff -r 9567c6b7088c -r 6231e179c4db lisp/pcomplete.el
--- 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)