Variable: allout-item-icon-keymap

allout-item-icon-keymap is a buffer-local variable defined in allout-widgets.el.gz.

Documentation

General tree-node key bindings.

Source Code

;; Defined in /usr/src/emacs/lisp/allout-widgets.el.gz
;;;_   , Widget element formatting
;;;_    = allout-item-icon-keymap
(defvar-local allout-item-icon-keymap
  (let ((km (make-sparse-keymap))
        (as-parent (if (current-local-map)
                       (make-composed-keymap (current-local-map)
                                             (current-global-map))
                     (current-global-map))))
    ;; The keymap parent is reset on the each local var when mode starts.
    (set-keymap-parent km as-parent)
    (dolist (digit '("0" "1" "2" "3"
                     "4" "5" "6" "7" "8" "9"))
      (define-key km digit #'digit-argument))
    (define-key km "-" #'negative-argument)
    ;; Override underlying mouse-1 and mouse-2 bindings in icon territory:
    (define-key km [(mouse-1)] #'ignore)
    (define-key km [(mouse-2)] #'ignore)

    ;; Catchall, handles actual keybindings, dynamically doing keymap lookups:
    (define-key km [t] #'allout-item-icon-key-handler)

    km)
  "General tree-node key bindings.")