Commit cbfde7a0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(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.
parent d32ff76a
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)
......
......@@ -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))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment