Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/x11/x-menubar.el	Mon Aug 13 09:36:20 2007 +0200
+++ b/lisp/x11/x-menubar.el	Mon Aug 13 09:37:19 2007 +0200
@@ -536,7 +536,13 @@
 	      (mouse-avoidance-mode 'banish))
 	  (beep)
 	  (message "This option requires a window system."))
-	:style toggle :selected (and mouse-avoidance-mode window-system)])
+	:style toggle :selected (and mouse-avoidance-mode window-system)]
+       ["strokes-mode"
+	(if (equal (device-type) 'x)
+	    (strokes-mode)
+	  (beep)
+	  (message "This option requires a window system."))
+	:style toggle :selected (and strokes-enabled-p window-system)])
       ("Open URLs With"
        ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3)
 	:style radio