Mercurial > emacs

comparison lisp/apropos.el @ 90385:72dea2ff0142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-57 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 226-238) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/progmodes/python.el (python-mode): Fix typo. * gnus--rel--5.10 (patch 86-90) - Update from CVS - Merge from emacs--devo--0
author Miles Bader <miles@gnu.org>
date Fri, 21 Apr 2006 05:39:14 +0000
parents e6bf73e43cf4 e08e964839f4
children 8dd8c8286063
comparison
equal deleted inserted replaced
90384:c156f6a9e7b5 90385:72dea2ff0142
906 (cadr apropos-item)) 906 (cadr apropos-item))
907 (insert " (" (number-to-string (cadr apropos-item)) ") ")) 907 (insert " (" (number-to-string (cadr apropos-item)) ") "))
908 ;; Calculate key-bindings if we want them. 908 ;; Calculate key-bindings if we want them.
909 (and do-keys 909 (and do-keys
910 (commandp symbol) 910 (commandp symbol)
911 (not (eq symbol 'self-insert-command))
911 (indent-to 30 1) 912 (indent-to 30 1)
912 (if (let ((keys 913 (if (let ((keys
913 (save-excursion 914 (save-excursion
914 (set-buffer old-buffer) 915 (set-buffer old-buffer)
915 (where-is-internal symbol))) 916 (where-is-internal symbol)))