Mercurial > emacs
comparison lisp/pcomplete.el @ 77053:6231e179c4db
(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 | 7ce4823434db |
| children | 9355f9b7bbff 4e4dec192190 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 77052:9567c6b7088c | 77053:6231e179c4db |
|---|---|
| 944 ;; XEmacs 21 | 944 ;; XEmacs 21 |
| 945 | 945 |
| 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) |
| 956 (defalias 'event-basic-type 'event-key)) | 955 (defalias 'event-basic-type 'event-key)) |
| 957 | 956 |