Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.37 emacs/lisp/descr-text.el:1.38
*** emacs/lisp/descr-text.el:1.37 Tue Jul 19 11:23:14 2005
--- emacs/lisp/descr-text.el Tue Jul 26 16:02:09 2005
***************
*** 491,500 ****
:notify (lambda (&rest ignore)
(list-charset-chars ',charset)
(with-selected-window
! (get-buffer-window "*Character List*")
(goto-char (point-min))
! (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))))))
--- 491,502 ----
:notify (lambda (&rest ignore)
(list-charset-chars ',charset)
(with-selected-window
! (get-buffer-window "*Character List*" 0)
(goto-char (point-min))
! (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))))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
