/[emacs]/emacs/lisp/term/w32-win.el
ViewVC logotype

Diff of /emacs/lisp/term/w32-win.el

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

revision 1.47 by jasonr, Thu Jan 17 19:24:39 2002 UTC revision 1.48 by jasonr, Thu Jan 17 19:33:03 2002 UTC
# Line 76  Line 76 
76  (require 'faces)  (require 'faces)
77  (require 'select)  (require 'select)
78  (require 'menu-bar)  (require 'menu-bar)
79    ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
80  (if (fboundp 'new-fontset)  (if (fboundp 'new-fontset)
81      (require 'fontset))      (require 'fontset))
82    
# Line 1189  European languages which are distributed Line 1190  European languages which are distributed
1190    
1191  See the documentation of `create-fontset-from-fontset-spec for the format.")  See the documentation of `create-fontset-from-fontset-spec for the format.")
1192    
1193    ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
1194  (if (fboundp 'new-fontset)  (if (fboundp 'new-fontset)
1195      (progn      (progn
1196        ;; Create the standard fontset.        ;; Create the standard fontset.
# Line 1399  font dialog to get the matching FONTS. O Line 1401  font dialog to get the matching FONTS. O
1401       (x-popup-menu       (x-popup-menu
1402        last-nonmenu-event        last-nonmenu-event
1403      ;; Append list of fontsets currently defined.      ;; Append list of fontsets currently defined.
1404          ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
1405        (if (fboundp 'new-fontset)        (if (fboundp 'new-fontset)
1406        (append w32-fixed-font-alist (list (generate-fontset-menu)))))))        (append w32-fixed-font-alist (list (generate-fontset-menu)))))))
1407    (if fonts    (if fonts

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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