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
(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)
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