[Emacs-diffs] Changes to emacs/lisp/descr-text.el

[Stefan Monnier]

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