/[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.257 by kfstorm, Sat Nov 13 01:29:45 2004 UTC revision 1.258 by teirllm, Wed Dec 8 01:14:10 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.257  
changed lines
  Added in v.1.258

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