(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.

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad67e420c78..442206319ed 100644
--- 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 f639b811a45..e206e2c269c 100644
--- 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))))))