emacs/lisp/menu-bar.el

102 (define-key menu-bar-file-menu [one-window]
103   '(menu-item "Remove Splits" delete-other-windows
104 	      :enable (not (one-window-p t nil))
105 	      :help "Selected window grows to fill the whole frame"))
107 (define-key menu-bar-file-menu [split-window]
108   '(menu-item "Split Window" split-window-vertically
110 			   (menu-bar-non-minibuffer-window-p))
111 	      :help "Split selected window in two windows"))
113 (define-key menu-bar-file-menu [separator-window]
170 			   (menu-bar-non-minibuffer-window-p))
176 			   (menu-bar-non-minibuffer-window-p))
199 	      :enable (menu-bar-non-minibuffer-window-p)
203 	      :enable (menu-bar-non-minibuffer-window-p)
207 	      :enable (menu-bar-non-minibuffer-window-p)
211 	      :enable (menu-bar-non-minibuffer-window-p)
401 	      menu-bar-next-tag-other-window
404 	      :help "Find next function/variable matching last tag name in another window"))
406 (defun menu-bar-next-tag-other-window ()
409   (find-tag-other-window nil t))
423   '(menu-item "Find Tag in Other Window..." find-tag-other-window
424 	      :help "Find function/variable definition in another window"))
658     (dolist (elt '(scroll-bar-mode
667 		   ;; other code may has added hooks as well.
834   "Reset the fringe mode: display fringes on both sides of a window."
845   "Display fringes only on the right of each window."
857   "Display fringes only on the left of each window."
869   "Do not display window fringes."
884 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
886 (define-key menu-bar-showhide-scroll-bar-menu [right]
888 	      menu-bar-right-scroll-bar
891 	      :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
893 (defun menu-bar-right-scroll-bar ()
894   "Display scroll bars on the right of each window."
896   (customize-set-variable 'scroll-bar-mode 'right))
898 (define-key menu-bar-showhide-scroll-bar-menu [left]
900 	      menu-bar-left-scroll-bar
903 	      :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
906 (defun menu-bar-left-scroll-bar ()
907   "Display scroll bars on the left of each window."
909   (customize-set-variable 'scroll-bar-mode 'left))
911 (define-key menu-bar-showhide-scroll-bar-menu [none]
913 	      menu-bar-no-scroll-bar
914 	      :help "Turn off scroll-bar"
916 	      :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
919 (defun menu-bar-no-scroll-bar ()
920   "Turn off scroll bars."
922   (customize-set-variable 'scroll-bar-mode nil))
924 (define-key menu-bar-showhide-menu [showhide-scroll-bar]
925   (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu
1424 (defun menu-bar-non-minibuffer-window-p ()
1425   "Return non-nil if selected window of the menu frame is not a minibuf window.
1430     (not (window-minibuffer-p (frame-selected-window menu-frame)))))
1444     (and (menu-bar-non-minibuffer-window-p)
1447 (put 'dired 'menu-enable '(menu-bar-non-minibuffer-window-p))
1506 from other buffers).
1674 			     :help "Prompt for a buffer name, and select that buffer in the current window")
1679 			     :help "Pop up a window listing all Emacs buffers"