Commit 2d8e5088 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 783460bc
...@@ -946,10 +946,9 @@ generate the completions list. This means that the hook ...@@ -946,10 +946,9 @@ generate the completions list. This means that the hook
(unless (fboundp 'event-matches-key-specifier-p) (unless (fboundp 'event-matches-key-specifier-p)
(defalias 'event-matches-key-specifier-p 'eq)) (defalias 'event-matches-key-specifier-p 'eq))
(if (fboundp 'read-event) (defun pcomplete-read-event (&optional prompt)
(defsubst pcomplete-read-event (&optional prompt) (if (fboundp 'read-event)
(read-event prompt)) (read-event prompt)
(defsubst pcomplete-read-event (&optional prompt)
(aref (read-key-sequence prompt) 0))) (aref (read-key-sequence prompt) 0)))
(unless (fboundp 'event-basic-type) (unless (fboundp 'event-basic-type)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment