Mercurial > hg > xemacs-beta

comparison lisp/x-menubar.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 78f53ef88e17
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
577 ["strokes-mode" 577 ["strokes-mode"
578 (if (equal (device-type) 'x) 578 (if (equal (device-type) 'x)
579 (strokes-mode) 579 (strokes-mode)
580 (beep) 580 (beep)
581 (message "This option requires a window system.")) 581 (message "This option requires a window system."))
582 :style toggle :selected (and strokes-mode window-system)]) 582 :style toggle :selected (and (fboundp strokes-mode)
583 strokes-mode
584 window-system)])
583 ("Open URLs With" 585 ("Open URLs With"
584 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3) 586 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3)
585 :style radio 587 :style radio
586 :selected (eq browse-url-browser-function 'browse-url-w3)] 588 :selected (eq browse-url-browser-function 'browse-url-w3)]
587 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape) 589 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape)
1291 (save-options-non-customized-face-list))))) 1293 (save-options-non-customized-face-list)))))
1292 1294
1293 ;; Mule-specific: 1295 ;; Mule-specific:
1294 (if (featurep 'mule) 1296 (if (featurep 'mule)
1295 `(if (featurep 'mule) 1297 `(if (featurep 'mule)
1296 (set-language-environment ',(current-language-environment)))) 1298 (set-language-environment ',current-language-environment)))
1297 )) 1299 ))
1298 "The variables to save; or forms to evaluate to get forms to write out. 1300 "The variables to save; or forms to evaluate to get forms to write out.
1299 This is used by `save-options-menu-settings' and should mirror the 1301 This is used by `save-options-menu-settings' and should mirror the
1300 options listed in the Options menu.") 1302 options listed in the Options menu.")
1301 1303