diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-07-26 16:02:09 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-07-26 16:02:09 +0000 |
| commit | c1f4ca31f9eb17cc219a6559f479800927d55aaf (patch) | |
| tree | 73ab65da94be9f05d67b2c37627672a834d05bdb /lisp/descr-text.el | |
| parent | 774fc0b22ad18e418c150143a4160124ee9aedeb (diff) | |
| download | emacs-c1f4ca31f9eb17cc219a6559f479800927d55aaf.tar.gz | |
(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.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 8 |
1 files changed, 5 insertions, 3 deletions
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)))))) |