Re: feedback on customize -- apropos-groups et al

[Richard Stallman]

    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))