/[emacs]/emacs/lisp/apropos.el
ViewVC logotype

Diff of /emacs/lisp/apropos.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.101 by lute, Fri Feb 11 16:08:49 2005 UTC revision 1.102 by kfstorm, Mon Mar 7 11:00:25 2005 UTC
# Line 860  If non-nil TEXT is a string that will be Line 860  If non-nil TEXT is a string that will be
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)

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26