Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 27bc7f280385
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
921 )) 921 ))
922 922
923 923
924 924
925 ;;; The Options menu 925 ;;; The Options menu
926 (defvar save-options-font-hack nil)
926 927
927 (defconst options-menu-saved-forms 928 (defconst options-menu-saved-forms
928 ;; This is really quite a kludge, but it gets the job done. 929 ;; This is really quite a kludge, but it gets the job done.
929 ;; 930 ;;
930 ;; remember that we have to conditionalize on default features 931 ;; remember that we have to conditionalize on default features
1060 (face-property face property)) 1061 (face-property face property))
1061 `(add-spec-list-to-specifier 1062 `(add-spec-list-to-specifier
1062 (face-property ',face ',property) 1063 (face-property ',face ',property)
1063 ',(save-options-specifier-spec-list 1064 ',(save-options-specifier-spec-list
1064 face property)))) 1065 face property))))
1065 built-in-face-specifiers))) 1066 p built-in-face-specifiers)))
1066 (face-list)))) 1067 (face-list))))
1067 1068
1068 )) 1069 ))
1069 "The variables to save; or forms to evaluate to get forms to write out. 1070 "The variables to save; or forms to evaluate to get forms to write out.
1070 This is used by `save-options-menu-settings' and should mirror the 1071 This is used by `save-options-menu-settings' and should mirror the
1165 )) 1166 ))
1166 (var 1167 (var
1167 (prin1 var)))) 1168 (prin1 var))))
1168 (if var (princ "\n"))) 1169 (if var (princ "\n")))
1169 options-menu-saved-forms) 1170 options-menu-saved-forms)
1171 (when save-options-font-hack
1172 (princ "(require 'x-font-menu)\n")
1173 (princ "(setq save-options-font-hack '(")
1174 (princ (car save-options-font-hack))
1175 (princ " ")
1176 (prin1 (cadr save-options-font-hack))
1177 (princ " ")
1178 (prin1 (caddr save-options-font-hack))
1179 (princ " ")
1180 (prin1 (format "%d" (cadddr save-options-font-hack)))
1181 (princ "))\n(")
1182 (princ (car save-options-font-hack))
1183 (princ " ")
1184 (prin1 (cadr save-options-font-hack))
1185 (princ " ")
1186 (prin1 (caddr save-options-font-hack))
1187 (princ " ")
1188 (prin1 (format "%d" (cadddr save-options-font-hack)))
1189 (princ ")\n"))
1170 )) 1190 ))
1171 (set-marker options-output-marker nil) 1191 (set-marker options-output-marker nil)
1172 (save-excursion 1192 (save-excursion
1173 (set-buffer options-output-buffer) 1193 (set-buffer options-output-buffer)
1174 (save-buffer)) 1194 (save-buffer))