From: Stefan Monnier Date: Tue, 26 Jul 2005 16:02:09 +0000 (+0000) Subject: (describe-char): Handle the case where the list of X-Git-Tag: emacs-pretest-22.0.90~7877 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbfde7a0798d4218e7638ef756d22f51d1a68a42;p=emacs.git (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 ad67e420c78..442206319ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-07-26 Stefan Monnier + + * 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 * 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))))))