Mercurial > emacs
changeset 57468:478f1e91eac3
(info-xref): Add underlining.
(info): Add info-file property.
(Info-find-emacs-command-nodes): Specify case-sensitive search.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Oct 2004 02:09:57 +0000 |
| parents | a41cd2c0fc30 |
| children | 2967bbb0802b |
| files | lisp/info.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Wed Oct 13 01:58:45 2004 +0000 +++ b/lisp/info.el Wed Oct 13 02:09:57 2004 +0000 @@ -79,8 +79,8 @@ :group 'info) (defface info-xref - '((((class color) (background light)) :foreground "blue") - (((class color) (background dark)) :foreground "cyan") + '((((class color) (background light)) :foreground "blue" :underline t) + (((class color) (background dark)) :foreground "cyan" :underline t) (t :underline t)) "Face for Info cross-references." :group 'info) @@ -455,6 +455,7 @@ ;;;###autoload (add-hook 'same-window-regexps "\\*info\\*\\(\\|<[0-9]+>\\)") +;;;###autoload (put 'info 'info-file "emacs") ;;;###autoload (defun info (&optional file buffer) "Enter Info, the documentation browser. @@ -3261,6 +3262,7 @@ (car elt) elt)) (file (if (consp elt) (cdr elt) elt)) + (case-fold-search nil) (regexp (concat "\\`" (regexp-quote name) "\\(\\'\\|-\\)"))) (if (string-match regexp (symbol-name command))