Lines Matching +defs:make +defs:frame
47 (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")))
48 (defvar menu-bar-help-menu (make-sparse-keymap "Help"))
56 (defvar menu-bar-tools-menu (make-sparse-keymap "Tools"))
61 (cons "Buffers" (make-sparse-keymap "Buffers")))
62 (defvar menu-bar-options-menu (make-sparse-keymap "Options"))
65 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit"))
67 (defvar menu-bar-file-menu (make-sparse-keymap "File"))
86 ;; Don't use delete-frame as event name because that is a special
88 (define-key menu-bar-file-menu [delete-this-frame]
89 '(menu-item "Delete Frame" delete-frame
90 :visible (fboundp 'delete-frame)
91 :enable (delete-frame-enabled-p)
92 :help "Delete currently selected frame"))
93 (define-key menu-bar-file-menu [make-frame-on-display]
94 '(menu-item "New Frame on Display..." make-frame-on-display
95 :visible (fboundp 'make-frame-on-display)
96 :help "Open a new frame on another display"))
97 (define-key menu-bar-file-menu [make-frame]
98 '(menu-item "New Frame" make-frame-command
99 :visible (fboundp 'make-frame-command)
100 :help "Open a new frame"))
105 :help "Selected window grows to fill the whole frame"))
109 :enable (and (menu-bar-menu-frame-live-and-visible-p)
122 :enable (menu-bar-menu-frame-live-and-visible-p)
130 :enable (menu-bar-menu-frame-live-and-visible-p)
138 :enable (menu-bar-menu-frame-live-and-visible-p)
169 :enable (and (menu-bar-menu-frame-live-and-visible-p)
284 (defvar menu-bar-search-menu (make-sparse-keymap "Search"))
288 (make-sparse-keymap "Incremental Search"))
351 (defvar menu-bar-replace-menu (make-sparse-keymap "Replace"))
387 (defvar menu-bar-goto-menu (make-sparse-keymap "Go To"))
560 (defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
602 ;(defvar menu-bar-preferences-menu (make-sparse-keymap "Preferences"))
604 (defmacro menu-bar-make-mm-toggle (fname doc help &optional props)
616 (defmacro menu-bar-make-toggle (name variable doc message help &rest body)
650 ;; These are set with menu-bar-make-mm-toggle, which does not
693 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
696 (menu-bar-make-mm-toggle column-number-mode
701 (menu-bar-make-mm-toggle line-number-mode
706 (menu-bar-make-mm-toggle size-indication-mode
714 (menu-bar-make-mm-toggle display-battery-mode
719 (menu-bar-make-mm-toggle display-time-mode
728 '(menu-item "Speedbar" speedbar-frame-mode
729 :help "Display a Speedbar quick-navigation frame"
731 . (and (boundp 'speedbar-frame)
732 (frame-live-p (symbol-value 'speedbar-frame))
733 (frame-visible-p
734 (symbol-value 'speedbar-frame))))))
736 (defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe"))
739 (make-sparse-keymap "Buffer boundaries"))
818 (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines
884 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
892 (frame-parameters))) 'right))))
904 (frame-parameters))) 'left))))
917 (frame-parameters))) nil))))
956 ;; Most of the MULE menu actually does make sense in unibyte mode,
969 (menu-bar-make-toggle toggle-debug-on-quit debug-on-quit
973 (menu-bar-make-toggle toggle-debug-on-error debug-on-error
980 (menu-bar-make-mm-toggle blink-cursor-mode
987 (menu-bar-make-toggle toggle-save-place-globally save-place
998 (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style
1010 (menu-bar-make-mm-toggle cua-mode
1017 (menu-bar-make-mm-toggle cua-mode
1024 (menu-bar-make-toggle toggle-case-fold-search case-fold-search
1049 :enable (menu-bar-menu-frame-live-and-visible-p)))
1054 (menu-bar-make-mm-toggle show-paren-mode
1058 (menu-bar-make-mm-toggle transient-mark-mode
1087 (defvar menu-bar-games-menu (make-sparse-keymap "Games"))
1167 (defvar vc-menu-map (make-sparse-keymap "Version Control"))
1215 (defvar menu-bar-describe-menu (make-sparse-keymap "Describe"))
1263 (defvar menu-bar-apropos-menu (make-sparse-keymap "Apropos"))
1325 (defvar menu-bar-manuals-menu (make-sparse-keymap "More Manuals"))
1417 (defun menu-bar-menu-frame-live-and-visible-p ()
1418 "Return non-nil if the menu frame is alive and visible.
1419 The menu frame is the frame for which we are updating the menu."
1420 (let ((menu-frame (or menu-updating-frame (selected-frame))))
1421 (and (frame-live-p menu-frame)
1422 (frame-visible-p menu-frame))))
1425 "Return non-nil if selected window of the menu frame is not a minibuf window.
1427 See the documentation of `menu-bar-menu-frame-live-and-visible-p'
1428 for the definition of the menu frame."
1429 (let ((menu-frame (or menu-updating-frame (selected-frame))))
1430 (not (window-minibuffer-p (frame-selected-window menu-frame)))))
1449 ;; Permit deleting frame if it would leave a visible or iconified frame.
1450 (defun delete-frame-enabled-p ()
1451 "Return non-nil if `delete-frame' should be enabled in the menu bar."
1452 (let ((frames (frame-list))
1455 (if (frame-visible-p (car frames))
1538 (defun menu-bar-select-frame ()
1540 (let (frame)
1541 (dolist (f (frame-list))
1542 (when (equal last-command-event (frame-parameter f 'name))
1543 (setq frame f)))
1544 ;; FRAME can be nil when user specifies the selected frame.
1545 (setq frame (or frame (selected-frame)))
1546 (make-frame-visible frame)
1547 (raise-frame frame)
1548 (select-frame frame)))
1580 (or force (frame-or-buffer-changed-p))
1582 (frames (frame-list))
1618 ;; Now make the actual list of items, and add
1633 ;; Make a Frames menu if we have more than one frame.
1639 (lambda (frame)
1641 (list (frame-parameter frame 'name)
1642 (frame-parameter frame 'name)
1644 'menu-bar-select-frame))
1718 (cons "Minibuf" (make-sparse-keymap "Minibuf"))))
1743 ;; We want to pretend the menu bar by standard is on, as this will make
1751 "Toggle display of a menu bar on each frame.
1759 ;; Make menu-bar-mode and default-frame-alist consistent.
1762 (mapc (lambda (frame)
1763 (modify-frame-parameters frame
1765 (frame-list))
1767 (let ((elt (assq 'menu-bar-lines default-frame-alist)))
1770 (add-to-list 'default-frame-alist (cons 'menu-bar-lines lines)))))
1777 "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))