diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-13 02:09:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-13 02:09:57 +0000 |
| commit | cc3f6c32b9ec83fb5bada972ca8cf16f58b3d49c (patch) | |
| tree | b55939a062b9dc7efc2f395ba74ecc810103bf4d /lisp/info.el | |
| parent | 3bfb0bff7b4a247d46ddc362d0c1dd27b9644179 (diff) | |
| download | emacs-cc3f6c32b9ec83fb5bada972ca8cf16f58b3d49c.tar.gz | |
(info-xref): Add underlining.
(info): Add info-file property.
(Info-find-emacs-command-nodes): Specify case-sensitive search.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 2a20fc4898c..386f5b612ec 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -79,8 +79,8 @@ The Lisp code is executed when the node is selected.") :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 @@ Do the right thing if the file has been compressed or zipped." ;;;###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 @@ The locations are of the format used in `Info-history', i.e. (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)) |