# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1122393729 0
# Node ID b1d272fa1442a72df5ca397b72ab8860ba4511e7
# Parent  c8826d1b5cadf426b5e39b5594f653fbd4d52e3a
(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 -r c8826d1b5cad -r b1d272fa1442 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 26 13:56:01 2005 +0000
+++ b/lisp/ChangeLog	Tue Jul 26 16:02:09 2005 +0000
@@ -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 -r c8826d1b5cad -r b1d272fa1442 lisp/descr-text.el
--- a/lisp/descr-text.el	Tue Jul 26 13:56:01 2005 +0000
+++ b/lisp/descr-text.el	Tue Jul 26 16:02:09 2005 +0000
@@ -491,10 +491,12 @@
 		  :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))))))