Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
479 :style radio :selected (eq (default-toolbar-position) 'left)] 479 :style radio :selected (eq (default-toolbar-position) 'left)]
480 ["Right" (set-default-toolbar-position 'right) 480 ["Right" (set-default-toolbar-position 'right)
481 :style radio :selected (eq (default-toolbar-position) 'right)] 481 :style radio :selected (eq (default-toolbar-position) 'right)]
482 ) 482 )
483 ))) 483 )))
484 ("Mouse"
485 ["Avoid-Text"
486 (if (equal (device-type) 'x)
487 (if mouse-avoidance-mode
488 (mouse-avoidance-mode 'none)
489 (mouse-avoidance-mode 'banish))
490 (beep)
491 (message "This option requires a window system."))
492 :style toggle :selected (and mouse-avoidance-mode window-system)])
484 ("Open URLs With" 493 ("Open URLs With"
485 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3) 494 ["Emacs-W3" (setq browse-url-browser-function 'browse-url-w3)
486 :style radio 495 :style radio
487 :selected (eq browse-url-browser-function 'browse-url-w3)] 496 :selected (eq browse-url-browser-function 'browse-url-w3)]
488 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape) 497 ["Netscape" (setq browse-url-browser-function 'browse-url-netscape)
573 data-directory)) 582 data-directory))
574 t ".emacs"] 583 t ".emacs"]
575 ["Sample" (find-file 584 ["Sample" (find-file
576 (expand-file-name "sample.Xdefaults" 585 (expand-file-name "sample.Xdefaults"
577 data-directory)) 586 data-directory))
578 t ".Xdefaults"]) 587 t ".Xdefaults"]
588 ["Sample" (find-file
589 (expand-file-name "enriched.doc"
590 data-directory))
591 t "enriched"])
579 "-----" 592 "-----"
580 ("Lookup in Info" 593 ("Lookup in Info"
581 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t] 594 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t]
582 ["Command..." Info-goto-emacs-command-node t] 595 ["Command..." Info-goto-emacs-command-node t]
583 ["Elisp Function..." Info-elisp-ref t] 596 ["Elisp Function..." Info-elisp-ref t]
1098 (add-spec-list-to-specifier 1111 (add-spec-list-to-specifier
1099 toolbar-buttons-captioned-p 1112 toolbar-buttons-captioned-p
1100 ',(specifier-spec-list toolbar-buttons-captioned-p 1113 ',(specifier-spec-list toolbar-buttons-captioned-p
1101 'global))))) 1114 'global)))))
1102 1115
1116 ;; mouse
1117 mouse-avoidance-mode
1118
1103 ;; Open URLs With 1119 ;; Open URLs With
1104 browse-url-browser-function 1120 browse-url-browser-function
1105 1121
1106 ;; Now save all faces. 1122 ;; Now save all faces.
1107 1123