Mercurial > emacs
changeset 64636:b1d272fa1442
(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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 26 Jul 2005 16:02:09 +0000 |
| parents | c8826d1b5cad |
| children | a975a8beec7f |
| files | lisp/ChangeLog lisp/descr-text.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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))))))