mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
chars is displayed in a separate frame.
Be a bit more discriminating when looking for the char.
This commit is contained in:
Stefan Monnier 2005-07-26 16:02:09 +00:00
parent d32ff76aa2
commit cbfde7a079
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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)

8
lisp/descr-text.el
View File

@ -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))))))