Changeset 4193

Show
Ignore:
Timestamp:
03/16/07 22:09:13 (2 years ago)
Author:
miyoshi
Message:

(mouse-set-font): Sync up with Emacs
CVS HEAD. Refer to ticket:370.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ChangeLog.Meadow

    r4191 r4193  
     12007-03-16  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * international/mw32misc.el (mouse-set-font): Sync up with Emacs 
     4        CVS HEAD. Refer to ticket:370. 
     5 
    162007-02-10  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    27 

  • trunk/lisp/international/mw32misc.el

    r4115 r4193  
    6060  "Select an emacs font from a list of known good fonts and fontsets." 
    6161  (interactive 
    62    (x-popup-menu last-nonmenu-event 
    63                  (w32-generate-font-fontset-menu))) 
     62   (progn (unless (display-multi-font-p) 
     63            (error "Cannot change fonts on this display")) 
     64          (x-popup-menu 
     65           (if (listp last-nonmenu-event) 
     66               last-nonmenu-event 
     67             (list '(0 0) (selected-window))) 
     68           ;; Append list of fontsets currently defined. 
     69           (w32-generate-font-fontset-menu)))) 
    6470  (if fonts 
    6571      (let (font)