Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents bcdc7deadc19
children 0293115a14e9
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
474 :style radio :selected (eq (default-toolbar-position) 'left)] 474 :style radio :selected (eq (default-toolbar-position) 'left)]
475 ["Right" (set-default-toolbar-position 'right) 475 ["Right" (set-default-toolbar-position 'right)
476 :style radio :selected (eq (default-toolbar-position) 'right)] 476 :style radio :selected (eq (default-toolbar-position) 'right)]
477 ) 477 )
478 ))) 478 )))
479 ("Mouse"
480 ["Avoid-Text"
481 (if (equal (device-type) 'x)
482 (if mouse-avoidance-mode
483 (mouse-avoidance-mode 'none)
484 (mouse-avoidance-mode 'banish))
485 (beep)
486 (message "This option requires a window system."))
487 :style toggle :selected (and mouse-avoidance-mode window-system)])
479 ("Open URLs With" 488 ("Open URLs With"
480 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3) 489 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3)
481 :style radio 490 :style radio
482 :selected (eq browse-url-browser-function 'browse-url-w3)] 491 :selected (eq browse-url-browser-function 'browse-url-w3)]
483 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape) 492 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape)
557 (expand-file-name "sample.emacs" 566 (expand-file-name "sample.emacs"
558 data-directory)) 567 data-directory))
559 t] 568 t]
560 ["Sample .Xdefaults" (find-file 569 ["Sample .Xdefaults" (find-file
561 (expand-file-name "sample.Xdefaults" 570 (expand-file-name "sample.Xdefaults"
571 data-directory))
572 t]
573 ["Sample enriched" (find-file
574 (expand-file-name "enriched.doc"
562 data-directory)) 575 data-directory))
563 t]) 576 t])
564 "-----" 577 "-----"
565 ("Lookup in Info" 578 ("Lookup in Info"
566 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t] 579 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t]
1074 (add-spec-list-to-specifier 1087 (add-spec-list-to-specifier
1075 toolbar-buttons-captioned-p 1088 toolbar-buttons-captioned-p
1076 ',(specifier-spec-list toolbar-buttons-captioned-p 1089 ',(specifier-spec-list toolbar-buttons-captioned-p
1077 'global))))) 1090 'global)))))
1078 1091
1092 ;; mouse
1093 mouse-avoidance-mode
1094
1079 ;; Open URLs With 1095 ;; Open URLs With
1080 browse-url-browser-function 1096 browse-url-browser-function
1081 1097
1082 ;; Now save all faces. 1098 ;; Now save all faces.
1083 1099