Mercurial > emacs
comparison lisp/apropos.el @ 5297:969ebd50eb72
(apropos-match-keys): If REGEXP is nil, always act as if it matched.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 04:39:33 +0000 |
| parents | 804e4f30b7ce |
| children | 9fb443ed4acf |
comparison
equal
deleted
inserted
replaced
| 5296:81b21ef5290d | 5297:969ebd50eb72 |
|---|---|
| 266 (setq command (cdr command))) | 266 (setq command (cdr command))) |
| 267 ;; if is a symbol, and matches optional regexp, and is a car | 267 ;; if is a symbol, and matches optional regexp, and is a car |
| 268 ;; in alist, and is not shadowed by a different local binding, | 268 ;; in alist, and is not shadowed by a different local binding, |
| 269 ;; record it | 269 ;; record it |
| 270 (and (symbolp command) | 270 (and (symbolp command) |
| 271 (if regexp (string-match regexp (symbol-name command))) | 271 (if regexp |
| 272 (string-match regexp (symbol-name command)) | |
| 273 t) | |
| 272 (setq item (assq command alist)) | 274 (setq item (assq command alist)) |
| 273 (if (or (vectorp sequence) (not (integerp key))) | 275 (if (or (vectorp sequence) (not (integerp key))) |
| 274 (setq key (vconcat sequence (vector key))) | 276 (setq key (vconcat sequence (vector key))) |
| 275 (setq key (concat sequence (char-to-string key)))) | 277 (setq key (concat sequence (char-to-string key)))) |
| 276 ;; checking if shadowed by local binding. | 278 ;; checking if shadowed by local binding. |
| 292 ;; Skip any menu prompt in this key binding. | 294 ;; Skip any menu prompt in this key binding. |
| 293 (and (consp command) (symbolp (cdr command)) | 295 (and (consp command) (symbolp (cdr command)) |
| 294 (setq command (cdr command))) | 296 (setq command (cdr command))) |
| 295 ;; This is the same as the code in the previous case. | 297 ;; This is the same as the code in the previous case. |
| 296 (and (symbolp command) | 298 (and (symbolp command) |
| 297 (if regexp (string-match regexp (symbol-name command))) | 299 (if regexp |
| 300 (string-match regexp (symbol-name command)) | |
| 301 t) | |
| 298 (setq item (assq command alist)) | 302 (setq item (assq command alist)) |
| 299 (if (or (vectorp sequence) (not (integerp key))) | 303 (if (or (vectorp sequence) (not (integerp key))) |
| 300 (setq key (vconcat sequence (vector key))) | 304 (setq key (vconcat sequence (vector key))) |
| 301 (setq key (concat sequence (char-to-string key)))) | 305 (setq key (concat sequence (char-to-string key)))) |
| 302 ;; checking if shadowed by local binding. | 306 ;; checking if shadowed by local binding. |