Lines Matching +defs:default +defs:map
55 With the default setting, an ordinary Mouse-1 click on a link
107 (let* ((map (cond
110 (t (let* ((map (easy-menu-create-menu (car menu) (cdr menu)))
111 (filter (when (symbolp map)
112 (plist-get (get map 'menu-prop) :filter))))
113 (if filter (funcall filter (symbol-function map)) map)))))
119 (while (and map (setq event
120 ;; map could be a prefix key, in which case
123 (x-popup-menu position (indirect-function map))))
128 (if (and (not (keymapp map)) (listp map))
133 (while (and map (null binding))
134 (setq binding (lookup-key (car map) mouse-click))
137 (setq map (cdr map)))
140 (lookup-key map (apply 'vector event))))
144 (setq map (if (keymapp cmd) cmd)))
147 (when (and (null map) (commandp cmd))
171 (and (current-local-map)
174 ;; default to the edit menu.
225 (let* ((local-menu (and (current-local-map)
226 (lookup-key (current-local-map) [menu-bar])))
227 (global-menu (lookup-key global-map [menu-bar]))
239 (title-or-map (cadr menu)))
240 (or (stringp title-or-map)
251 (local-title-or-map (and local-menu (cadr local-menu)))
252 (global-title-or-map (cadr global-menu)))
254 (stringp local-title-or-map)
258 (or (stringp global-title-or-map)
262 ;; Supplying the list is faster than making a new map.
273 (if (zerop (assoc-default 'menu-bar-lines (frame-parameters) 'eq 0))
1783 a large number if you prefer a mixed multitude. The default is 4."
2162 ;;;!! ;;; (use-local-mouse-map (setq rectangle-test-map (make-sparse-keymap)))
2163 ;;;!! ;;; (define-key rectangle-test-map mouse-motion-button-left 'mouse-boxing)
2164 ;;;!! ;;; (define-key rectangle-test-map mouse-button-left-up 'mouse-erase-box))
2193 ;;;!! ;;; (use-local-mouse-map (setq doubleclick-test-map (make-sparse-keymap)))
2194 ;;;!! ;;; (define-key doubleclick-test-map mouse-button-left 'double-down)
2195 ;;;!! ;;; (define-key doubleclick-test-map mouse-button-left-up 'double-up))
2227 ;;;!! ;;; (let ((scrolling-map (function mouse-vertical-scroll-bar-prefix)))
2228 ;;;!! ;;; (define-key scrolling-map mouse-button-left 'incr-scroll-down)
2229 ;;;!! ;;; (define-key scrolling-map mouse-button-right 'incr-scroll-up)
2230 ;;;!! ;;; (define-key scrolling-map mouse-button-left-up 'incr-scroll-stop)
2231 ;;;!! ;;; (define-key scrolling-map mouse-button-right-up 'incr-scroll-stop)))
2323 (defun font-menu-add-default ()
2324 (let* ((default (cdr (assq 'font (frame-parameters (selected-frame)))))
2330 (cons (list "Default" default)
2420 (set-default-font (car fonts))
2431 (define-key global-map [down-mouse-1] 'mouse-drag-region)