[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: feedback on customize -- apropos-groups et al
From: |
Richard Stallman |
Subject: |
Re: feedback on customize -- apropos-groups et al |
Date: |
Mon, 11 Oct 2004 12:45:16 -0400 |
In many surveys about web pages it is found that users mostly want web page
links to look just like default links. This is blue underlined. Maybe this
would be good for Emacs too?
Does this change do what you suggest? What do people think of it?
*** info.el 08 Sep 2004 11:41:08 -0400 1.401
--- info.el 11 Oct 2004 03:37:05 -0400
***************
*** 79,86 ****
:group 'info)
(defface info-xref
! '((((class color) (background light)) :foreground "blue")
! (((class color) (background dark)) :foreground "cyan")
(t :underline t))
"Face for Info cross-references."
:group 'info)
--- 79,86 ----
:group 'info)
(defface info-xref
! '((((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,460 ****
--- 455,461 ----
;;;###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.
***************
*** 1791,1796 ****
--- 1792,1799 ----
"Build table of contents from menus of Info FILE and its subfiles."
(if (equal file "dir")
(error "Table of contents for Info directory is not supported yet"))
+ (if (equal file "history")
+ (error "Table of contents for history list is not meaningful"))
(with-temp-buffer
(let* ((default-directory (or (and (stringp file)
(file-name-directory
***************
*** 3258,3263 ****
--- 3261,3267 ----
(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))