/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

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

revision 1.241.8.7 by miles, Fri Nov 19 06:55:07 2004 UTC revision 1.241.8.8 by miles, Wed Dec 8 05:21:01 2004 UTC
# Line 2201  and selects that window." Line 2201  and selects that window."
2201     (progn (unless (display-multi-font-p)     (progn (unless (display-multi-font-p)
2202              (error "Cannot change fonts on this display"))              (error "Cannot change fonts on this display"))
2203            (x-popup-menu            (x-popup-menu
2204             last-nonmenu-event             (if (listp last-nonmenu-event)
2205                   last-nonmenu-event
2206                 (list '(0 0) (selected-window)))
2207             ;; Append list of fontsets currently defined.             ;; Append list of fontsets currently defined.
2208             (append x-fixed-font-alist (list (generate-fontset-menu))))))             (append x-fixed-font-alist (list (generate-fontset-menu))))))
2209    (if fonts    (if fonts

Legend:
Removed from v.1.241.8.7  
changed lines
  Added in v.1.241.8.8

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