Mercurial > emacs
comparison lisp/apropos.el @ 15159:b22de331ee43
(apropos-print): If command has no key bindings, say how to run it with M-x.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 04 May 1996 00:50:49 +0000 |
| parents | 20c5a9797aa8 |
| children | 4b6c924dfb89 |
comparison
equal
deleted
inserted
replaced
| 15158:e8ceba484a94 | 15159:b22de331ee43 |
|---|---|
| 491 (put-text-property 0 (length key) | 491 (put-text-property 0 (length key) |
| 492 'face apropos-keybinding-face | 492 'face apropos-keybinding-face |
| 493 key)) | 493 key)) |
| 494 key) | 494 key) |
| 495 item ", ")) | 495 item ", ")) |
| 496 (insert "(not bound to any keys)"))) | 496 (insert "Type ") |
| 497 (insert "M-x") | |
| 498 (put-text-property (- (point) 3) (point) | |
| 499 'face apropos-keybinding-face) | |
| 500 (insert " " (symbol-name symbol) " ") | |
| 501 (insert "RET") | |
| 502 (put-text-property (- (point) 3) (point) | |
| 503 'face apropos-keybinding-face))) | |
| 497 (terpri) | 504 (terpri) |
| 498 ;; only now so we don't propagate text attributes all over | 505 ;; only now so we don't propagate text attributes all over |
| 499 (put-text-property point1 point2 'item | 506 (put-text-property point1 point2 'item |
| 500 (if (eval `(or ,@(cdr apropos-item))) | 507 (if (eval `(or ,@(cdr apropos-item))) |
| 501 (car apropos-item) | 508 (car apropos-item) |