Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 59463afc5666
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
138 138
139 ("Options" 139 ("Options"
140 ("Customize" 140 ("Customize"
141 ("Emacs" :filter (lambda (&rest junk) 141 ("Emacs" :filter (lambda (&rest junk)
142 (cdr (custom-menu-create 'emacs)))) 142 (cdr (custom-menu-create 'emacs))))
143 ["Group..." customize t] 143 ["Group..." customize-group t]
144 ["Variable..." customize-variable t] 144 ["Variable..." customize-variable t]
145 ["Face..." customize-face t] 145 ["Face..." customize-face t]
146 ["Saved..." customize-customized t] 146 ["Saved..." customize-saved t]
147 ["Set..." customize-customized t]
147 ["Apropos..." customize-apropos t]) 148 ["Apropos..." customize-apropos t])
148 ["Read Only" (toggle-read-only) 149 ["Read Only" (toggle-read-only)
149 :style toggle :selected buffer-read-only] 150 :style toggle :selected buffer-read-only]
150 ("Editing Options" 151 ("Editing Options"
151 ["Overstrike" (progn 152 ["Overstrike" (progn
540 ["strokes-mode" 541 ["strokes-mode"
541 (if (equal (device-type) 'x) 542 (if (equal (device-type) 'x)
542 (strokes-mode) 543 (strokes-mode)
543 (beep) 544 (beep)
544 (message "This option requires a window system.")) 545 (message "This option requires a window system."))
545 :style toggle :selected (and strokes-enabled-p window-system)]) 546 :style toggle :selected (and strokes-mode window-system)])
546 ("Open URLs With" 547 ("Open URLs With"
547 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3) 548 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3)
548 :style radio 549 :style radio
549 :selected (eq browse-url-browser-function 'browse-url-w3)] 550 :selected (eq browse-url-browser-function 'browse-url-w3)]
550 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape) 551 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape)