diff options
| author | Richard M. Stallman | 2007-04-08 13:47:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-04-08 13:47:33 +0000 |
| commit | 2d8e50884bdb17b12576ecbf33d4afd973508fdf (patch) | |
| tree | 977fb1c7f720fc3ec422c28b33068a1a7ac5129f | |
| parent | 783460bc6c833fa50dffa4ce5a8ba7126ce9f60e (diff) | |
| download | emacs-2d8e50884bdb17b12576ecbf33d4afd973508fdf.tar.gz emacs-2d8e50884bdb17b12576ecbf33d4afd973508fdf.zip | |
(pcomplete-read-event): One single definition, and not a defsubst.
| -rw-r--r-- | lisp/pcomplete.el | 7 |
1 files changed, 3 insertions, 4 deletions
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 | |||
| 946 | (unless (fboundp 'event-matches-key-specifier-p) | 946 | (unless (fboundp 'event-matches-key-specifier-p) |
| 947 | (defalias 'event-matches-key-specifier-p 'eq)) | 947 | (defalias 'event-matches-key-specifier-p 'eq)) |
| 948 | 948 | ||
| 949 | (if (fboundp 'read-event) | 949 | (defun pcomplete-read-event (&optional prompt) |
| 950 | (defsubst pcomplete-read-event (&optional prompt) | 950 | (if (fboundp 'read-event) |
| 951 | (read-event prompt)) | 951 | (read-event prompt) |
| 952 | (defsubst pcomplete-read-event (&optional prompt) | ||
| 953 | (aref (read-key-sequence prompt) 0))) | 952 | (aref (read-key-sequence prompt) 0))) |
| 954 | 953 | ||
| 955 | (unless (fboundp 'event-basic-type) | 954 | (unless (fboundp 'event-basic-type) |