860 |
key)) |
key)) |
861 |
key) |
key) |
862 |
item ", ")) |
item ", ")) |
863 |
(insert "M-x") |
(insert "M-x ... RET") |
864 |
(put-text-property (- (point) 3) (point) |
(when apropos-keybinding-face |
865 |
'face apropos-keybinding-face) |
(put-text-property (- (point) 11) (- (point) 8) |
866 |
(insert " " (symbol-name symbol) " ") |
'face apropos-keybinding-face) |
867 |
(insert "RET") |
(put-text-property (- (point) 3) (point) |
868 |
(put-text-property (- (point) 3) (point) |
'face apropos-keybinding-face)))) |
|
'face apropos-keybinding-face))) |
|
869 |
(terpri) |
(terpri) |
870 |
(apropos-print-doc 2 |
(apropos-print-doc 2 |
871 |
(if (commandp symbol) |
(if (commandp symbol) |