Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children ec9a17fef872
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
177 ["Command-Line Switches for `lpr'/`lp'..." 177 ["Command-Line Switches for `lpr'/`lp'..."
178 (setq lpr-switches 178 (setq lpr-switches
179 (read-expression "Switches for `lpr'/`lp': " 179 (read-expression "Switches for `lpr'/`lp': "
180 (format "%S" lpr-switches))) 180 (format "%S" lpr-switches)))
181 t] 181 t]
182 ["Pretty-Print With Color"
183 (setq ps-print-color-p (not ps-print-color-p))
184 :style toggle :selected ps-print-color-p]
185 ("Pretty-Print Paper Size" 182 ("Pretty-Print Paper Size"
186 ["Letter" 183 ["Letter"
187 (setq ps-paper-type 'letter) 184 (setq ps-paper-type 'letter)
188 :style radio 185 :style radio
189 :selected (eq ps-paper-type 'letter)] 186 :selected (eq ps-paper-type 'letter)]
230 ["B5" 227 ["B5"
231 (setq ps-paper-type 'b5) 228 (setq ps-paper-type 'b5)
232 :style radio 229 :style radio
233 :selected (eq ps-paper-type 'b5)] 230 :selected (eq ps-paper-type 'b5)]
234 ) 231 )
232 ["Enable Color Printing"
233 (progn
234 (set-face-background 'default "white")
235 (setq ps-print-color-p t))
236 t]
235 ) 237 )
236 ("\"Other Window\" Location" 238 ("\"Other Window\" Location"
237 ["Always in Same Frame" 239 ["Always in Same Frame"
238 (setq get-frame-for-buffer-default-instance-limit nil) 240 (setq get-frame-for-buffer-default-instance-limit nil)
239 :style radio 241 :style radio
546 ["Grail" (setq browse-url-browser-function 'browse-url-grail) 548 ["Grail" (setq browse-url-browser-function 'browse-url-grail)
547 :style radio 549 :style radio
548 :selected (eq browse-url-browser-function 'browse-url-grail)] 550 :selected (eq browse-url-browser-function 'browse-url-grail)]
549 ) 551 )
550 "-----" 552 "-----"
551 ["Edit Faces..." edit-faces t] 553 ["Edit Faces..." cu-edit-faces t]
552 ("Font" :filter font-menu-family-constructor) 554 ("Font" :filter font-menu-family-constructor)
553 ("Size" :filter font-menu-size-constructor) 555 ("Size" :filter font-menu-size-constructor)
554 ("Weight" :filter font-menu-weight-constructor) 556 ("Weight" :filter font-menu-weight-constructor)
555 "-----" 557 "-----"
556 ["Save Options" save-options-menu-settings t] 558 ["Save Options" save-options-menu-settings t]
592 ["News" view-emacs-news t] 594 ["News" view-emacs-news t]
593 ["Packages" finder-by-keyword t] 595 ["Packages" finder-by-keyword t]
594 ["Splash" xemacs-splash-buffer t]) 596 ["Splash" xemacs-splash-buffer t])
595 "-----" 597 "-----"
596 ("XEmacs FAQ" 598 ("XEmacs FAQ"
597 ["FAQ)" xemacs-local-faq t] 599 ["FAQ (local)" xemacs-local-faq t]
598 ["FAQ via WWW" xemacs-www-faq t] 600 ["FAQ via WWW" xemacs-www-faq t]
599 ["Home Page" xemacs-www-page t]) 601 ["Home Page" xemacs-www-page t])
600 ("Samples" 602 ("Samples"
601 ["Sample .emacs" (find-file 603 ["Sample .emacs" (find-file
602 (expand-file-name "sample.emacs" 604 (expand-file-name "sample.emacs"
1010 1012
1011 1013
1012 ;;; The Options menu 1014 ;;; The Options menu
1013 (defvar save-options-font-hack nil) 1015 (defvar save-options-font-hack nil)
1014 1016
1017 (defvar options-save-faces nil
1018 "if t, save-options will save all the face information.
1019 Set to nil to avoid this. This is recommended on XEmacs 19.15
1020 and above as we have a much more powerful (read: working) way
1021 of changing and saving faces via cu-edit-faces.el & custom.el.")
1022
1015 (defconst options-menu-saved-forms 1023 (defconst options-menu-saved-forms
1016 ;; This is really quite a kludge, but it gets the job done. 1024 ;; This is really quite a kludge, but it gets the job done.
1017 ;; 1025 ;;
1018 ;; remember that we have to conditionalize on default features 1026 ;; remember that we have to conditionalize on default features
1019 ;; both in the forms to evaluate and in the forms output to 1027 ;; both in the forms to evaluate and in the forms output to
1136 ;; Now save all faces. 1144 ;; Now save all faces.
1137 1145
1138 ;; Setting this in lisp conflicts with X resources. Bad move. --Stig 1146 ;; Setting this in lisp conflicts with X resources. Bad move. --Stig
1139 ;; (list 'set-face-font ''default (face-font-name 'default)) 1147 ;; (list 'set-face-font ''default (face-font-name 'default))
1140 ;; (list 'set-face-font ''modeline (face-font-name 'modeline)) 1148 ;; (list 'set-face-font ''modeline (face-font-name 'modeline))
1141 1149 (if options-save-faces
1142 (cons 'progn 1150 (cons 'progn
1143 (mapcar #'(lambda (face) 1151 (mapcar #'(lambda (face)
1144 `(make-face ',face)) 1152 `(make-face ',face))
1145 (face-list))) 1153 (face-list))))
1146 1154
1147 (cons 'progn 1155 (if options-save-faces
1148 (apply 'nconc 1156 (cons 'progn
1149 (mapcar 1157 (apply 'nconc
1150 #'(lambda (face) 1158 (mapcar
1151 (delq nil 1159 #'(lambda (face)
1152 (mapcar 1160 (delq nil
1153 #'(lambda (property) 1161 (mapcar
1154 (if (specifier-spec-list 1162 #'(lambda (property)
1155 (face-property face property)) 1163 (if (specifier-spec-list
1156 `(add-spec-list-to-specifier 1164 (face-property face property))
1157 (face-property ',face ',property) 1165 `(add-spec-list-to-specifier
1158 ',(save-options-specifier-spec-list 1166 (face-property ',face ',property)
1159 face property)))) 1167 ',(save-options-specifier-spec-list
1160 (delq 'display-table 1168 face property))))
1161 (copy-sequence 1169 (delq 'display-table
1162 built-in-face-specifiers))))) 1170 (copy-sequence
1163 (face-list)))) 1171 built-in-face-specifiers)))))
1164 1172 (face-list)))))
1173
1165 )) 1174 ))
1166 "The variables to save; or forms to evaluate to get forms to write out. 1175 "The variables to save; or forms to evaluate to get forms to write out.
1167 This is used by `save-options-menu-settings' and should mirror the 1176 This is used by `save-options-menu-settings' and should mirror the
1168 options listed in the Options menu.") 1177 options listed in the Options menu.")
1169 1178