(mac-charset-info-alist, mac-services-selection, mac-system-script-code):

[gnu-emacs] / lisp / descr-text.el

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index f639b811a4591d62ab6555e0b7f1e902b1a68d67..e25d740b89bf5480ca9cc3436cfd19f33ebed00a 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -1,7 +1,7 @@
 ;;; descr-text.el --- describe text mode
 
-;; Copyright (c) 1994, 1995, 1996, 2001, 2002, 2003, 2004, 2005
-;;           Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004,
+;;   2005 Free Software Foundation, Inc.
 
 ;; Author: Boris Goldowsky <boris@gnu.org>
 ;; Keywords: faces, i18n, Unicode, multilingual
@@ -491,10 +491,12 @@ as well as widgets, buttons, overlays, and text properties."
                  :notify (lambda (&rest ignore)
                            (list-charset-chars ',charset)
                            (with-selected-window
-                               (get-buffer-window "*Character List*")
+                               (get-buffer-window "*Character List*" 0)
                              (goto-char (point-min))
-                             (search-forward ,(char-to-string char)
-                                             nil t)))
+                              (forward-line 2) ;Skip the header.
+                              (let ((case-fold-search nil))
+                                (search-forward ,(char-to-string char)
+                                                nil t))))
                  ,(if (= (charset-dimension charset) 1)
                       (format "%d" (nth 1 split))
                     (format "%d %d" (nth 1 split) (nth 2 split))))))