Variable: ediff-meta-buffer-map

ediff-meta-buffer-map is a buffer-local variable defined in ediff-mult.el.gz.

Documentation

The keymap for the meta buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-mult.el.gz
;; set up the keymap in the meta buffer
(defun ediff-setup-meta-map ()
  (setq ediff-meta-buffer-map (make-sparse-keymap))
  (suppress-keymap ediff-meta-buffer-map)
  (define-key ediff-meta-buffer-map "?" 'ediff-toggle-verbose-help-meta-buffer)
  (define-key ediff-meta-buffer-map "q" 'ediff-quit-meta-buffer)
  (define-key ediff-meta-buffer-map "T" 'ediff-toggle-filename-truncation)
  (define-key ediff-meta-buffer-map "R" 'ediff-show-registry)
  (define-key ediff-meta-buffer-map "E" 'ediff-documentation)
  (define-key ediff-meta-buffer-map "v" ediff-meta-action-function)
  (define-key ediff-meta-buffer-map "\C-m" ediff-meta-action-function)
  (define-key ediff-meta-buffer-map  " "  'ediff-next-meta-item)
  (define-key ediff-meta-buffer-map  "n"  'ediff-next-meta-item)
  (define-key ediff-meta-buffer-map  "\C-?"  'ediff-previous-meta-item)
  (define-key ediff-meta-buffer-map  "p"  'ediff-previous-meta-item)
  (define-key ediff-meta-buffer-map  [delete]  'ediff-previous-meta-item)
  (define-key ediff-meta-buffer-map  [backspace]  'ediff-previous-meta-item)

  (let ((menu-map (make-sparse-keymap "Ediff-Meta")))
    (define-key ediff-meta-buffer-map [menu-bar ediff-meta-mode]
      (cons "Ediff-Meta" menu-map))
    (define-key menu-map [ediff-quit-meta-buffer]
      '(menu-item "Quit" ediff-quit-meta-buffer
		  :help "Quit the meta buffer"))
    (define-key menu-map [ediff-toggle-filename-truncation]
      '(menu-item "Truncate filenames" ediff-toggle-filename-truncation
	      :help "Toggle truncation of long file names in session group buffers"
	      :button (:toggle . ediff-meta-truncate-filenames)))
    (define-key menu-map [ediff-show-registry]
      '(menu-item "Display Ediff Registry" ediff-show-registry
		  :help "Display Ediff's registry"))
    (define-key menu-map [ediff-documentation]
      '(menu-item "Show Manual" ediff-documentation
		  :help "Display Ediff's manual"))

    (unless (ediff-one-filegroup-metajob)
      (define-key ediff-meta-buffer-map "=" nil)
      (define-key ediff-meta-buffer-map "==" #'ediff-meta-mark-equal-files)
      (define-key ediff-meta-buffer-map "=m" #'ediff-meta-mark-equal-files)
      (define-key ediff-meta-buffer-map "=h" #'ediff-meta-mark-equal-files))


    (define-key menu-map [ediff-next-meta-item]
      '(menu-item "Next" ediff-next-meta-item
		  :help "Move to the next item in Ediff registry or session group buffer"))
    (define-key menu-map [ediff-previous-meta-item]
      '(menu-item "Previous" ediff-previous-meta-item
		  :help "Move to the previous item in Ediff registry or session group buffer")))


  (if ediff-no-emacs-help-in-control-buffer
      (define-key ediff-meta-buffer-map  "\C-h"  #'ediff-previous-meta-item))
  (define-key ediff-meta-buffer-map [mouse-2] ediff-meta-action-function)

  (use-local-map ediff-meta-buffer-map)
  ;; modify ediff-meta-buffer-map here
  (run-hooks 'ediff-meta-buffer-keymap-setup-hook))