(describe-char): Handle the case where the list of

chars is displayed in a separate frame.
Be a bit more discriminating when looking for the char.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad67e420c78904409013f0aed1f598f59df370df..442206319ed947dbc44a703de5db5a99107b5c51 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * descr-text.el (describe-char): Handle the case where the list of
+       chars is displayed in a separate frame.
+       Be a bit more discriminating when looking for the char.
+
 2005-07-26  Juanma Barranquero  <lekktu@gmail.com>
 
        * bookmark.el (bookmark-automatically-show-annotations)

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index f639b811a4591d62ab6555e0b7f1e902b1a68d67..e206e2c269cbbc989cf94605e93af2d57063c036 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -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))))))