/[emacs]/emacs/lisp/descr-text.el
ViewVC logotype

Diff of /emacs/lisp/descr-text.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by jurta, Tue Jul 19 11:23:14 2005 UTC revision 1.38 by monnier, Tue Jul 26 16:02:09 2005 UTC
# Line 491  as well as widgets, buttons, overlays, a Line 491  as well as widgets, buttons, overlays, a
491                    :notify (lambda (&rest ignore)                    :notify (lambda (&rest ignore)
492                              (list-charset-chars ',charset)                              (list-charset-chars ',charset)
493                              (with-selected-window                              (with-selected-window
494                                  (get-buffer-window "*Character List*")                                  (get-buffer-window "*Character List*" 0)
495                                (goto-char (point-min))                                (goto-char (point-min))
496                                (search-forward ,(char-to-string char)                                (forward-line 2) ;Skip the header.
497                                                nil t)))                                (let ((case-fold-search nil))
498                                    (search-forward ,(char-to-string char)
499                                                    nil t))))
500                    ,(if (= (charset-dimension charset) 1)                    ,(if (= (charset-dimension charset) 1)
501                         (format "%d" (nth 1 split))                         (format "%d" (nth 1 split))
502                       (format "%d %d" (nth 1 split) (nth 2 split))))))                       (format "%d %d" (nth 1 split) (nth 2 split))))))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26