Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8d2a9b52c682
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
1011 )) 1011 ))
1012 1012
1013 1013
1014 1014
1015 ;;; The Options menu 1015 ;;; The Options menu
1016 (defvar save-options-font-hack nil)
1017 1016
1018 (defvar options-save-faces nil 1017 (defvar options-save-faces nil
1019 "if t, save-options will save all the face information. 1018 "if t, save-options will save all the face information.
1020 Set to nil to avoid this. This is recommended on XEmacs 19.15 1019 Set to nil to avoid this. This is recommended on XEmacs 19.15
1021 and above as we have a much more powerful (read: working) way 1020 and above as we have a much more powerful (read: working) way
1280 )) 1279 ))
1281 (var 1280 (var
1282 (prin1 var)))) 1281 (prin1 var))))
1283 (if var (princ "\n"))) 1282 (if var (princ "\n")))
1284 options-menu-saved-forms) 1283 options-menu-saved-forms)
1285 (when save-options-font-hack
1286 (princ "(require 'x-font-menu)\n")
1287 (princ "(setq save-options-font-hack '(")
1288 (princ (car save-options-font-hack))
1289 (princ " ")
1290 (prin1 (cadr save-options-font-hack))
1291 (princ " ")
1292 (prin1 (caddr save-options-font-hack))
1293 (princ " ")
1294 (prin1 (format "%d" (cadddr save-options-font-hack)))
1295 (princ "))\n(")
1296 (princ (car save-options-font-hack))
1297 (princ " ")
1298 (prin1 (cadr save-options-font-hack))
1299 (princ " ")
1300 (prin1 (caddr save-options-font-hack))
1301 (princ " ")
1302 (prin1 (format "%d" (cadddr save-options-font-hack)))
1303 (princ ")\n"))
1304 )) 1284 ))
1305 (set-marker options-output-marker nil) 1285 (set-marker options-output-marker nil)
1306 (save-excursion 1286 (save-excursion
1307 (set-buffer options-output-buffer) 1287 (set-buffer options-output-buffer)
1308 (save-buffer)) 1288 (save-buffer))