Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 1370575f1259
children 25f70ba0133c
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
534 (if mouse-avoidance-mode 534 (if mouse-avoidance-mode
535 (mouse-avoidance-mode 'none) 535 (mouse-avoidance-mode 'none)
536 (mouse-avoidance-mode 'banish)) 536 (mouse-avoidance-mode 'banish))
537 (beep) 537 (beep)
538 (message "This option requires a window system.")) 538 (message "This option requires a window system."))
539 :style toggle :selected (and mouse-avoidance-mode window-system)]) 539 :style toggle :selected (and mouse-avoidance-mode window-system)]
540 ["strokes-mode"
541 (if (equal (device-type) 'x)
542 (strokes-mode)
543 (beep)
544 (message "This option requires a window system."))
545 :style toggle :selected (and strokes-enabled-p window-system)])
540 ("Open URLs With" 546 ("Open URLs With"
541 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3) 547 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3)
542 :style radio 548 :style radio
543 :selected (eq browse-url-browser-function 'browse-url-w3)] 549 :selected (eq browse-url-browser-function 'browse-url-w3)]
544 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape) 550 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape)