Mercurial > emacs
comparison lisp/apropos.el @ 1734:d85a2ab89e09
(apropos-match-keys): Handle non-chars as keys.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 04 Jan 1993 11:36:14 +0000 |
| parents | 213978acbc1e |
| children | 73a56a618d25 |
comparison
equal
deleted
inserted
replaced
| 1733:2d41a3d7b9a6 | 1734:d85a2ab89e09 |
|---|---|
| 274 ;; in alist, and is not shadowed by a different local binding, | 274 ;; in alist, and is not shadowed by a different local binding, |
| 275 ;; record it | 275 ;; record it |
| 276 (and (symbolp command) | 276 (and (symbolp command) |
| 277 (if regexp (string-match regexp (symbol-name command))) | 277 (if regexp (string-match regexp (symbol-name command))) |
| 278 (setq item (assq command alist)) | 278 (setq item (assq command alist)) |
| 279 (setq key (concat sequence (char-to-string key))) | 279 (if (or (vectorp sequence) (not (integerp key))) |
| 280 (setq key (vconcat sequence (vector key))) | |
| 281 (setq key (concat sequence (char-to-string key)))) | |
| 280 ;; checking if shadowed by local binding. | 282 ;; checking if shadowed by local binding. |
| 281 ;; either no local map, no local binding, or runs off the | 283 ;; either no local map, no local binding, or runs off the |
| 282 ;; binding tree (number), or is the same binding | 284 ;; binding tree (number), or is the same binding |
| 283 (or (not current-local-map) | 285 (or (not current-local-map) |
| 284 (not (setq local (lookup-key current-local-map key))) | 286 (not (setq local (lookup-key current-local-map key))) |