Function: forms--mode-commands

forms--mode-commands is a byte-compiled function defined in forms.el.gz.

Signature

(forms--mode-commands)

Documentation

Fill the Forms mode keymaps.

Source Code

;; Defined in /usr/src/emacs/lisp/forms.el.gz
(defun forms--mode-commands ()
  "Fill the Forms mode keymaps."

  ;; `forms-mode-map' is always accessible via \C-c prefix.
  (setq forms-mode-map (make-keymap))
  (define-key forms-mode-map "\t" #'forms-next-field)
  (define-key forms-mode-map "\C-k" #'forms-delete-record)
  (define-key forms-mode-map "\C-q" #'forms-toggle-read-only)
  (define-key forms-mode-map "\C-o" #'forms-insert-record)
  (define-key forms-mode-map "\C-l" #'forms-jump-record)
  (define-key forms-mode-map "\C-n" #'forms-next-record)
  (define-key forms-mode-map "\C-p" #'forms-prev-record)
  (define-key forms-mode-map "\C-r" #'forms-search-backward)
  (define-key forms-mode-map "\C-s" #'forms-search-forward)
  (define-key forms-mode-map "\C-x" #'forms-exit)
  (define-key forms-mode-map "<" #'forms-first-record)
  (define-key forms-mode-map ">" #'forms-last-record)
  (define-key forms-mode-map "\C-?" #'forms-prev-record)

  ;; `forms-mode-ro-map' replaces the local map when in read-only mode.
  (setq forms-mode-ro-map (make-keymap))
  (suppress-keymap forms-mode-ro-map)
  (define-key forms-mode-ro-map "\C-c" forms-mode-map)
  (define-key forms-mode-ro-map "q" #'forms-toggle-read-only)
  (define-key forms-mode-ro-map "l" #'forms-jump-record)
  (define-key forms-mode-ro-map "n" #'forms-next-record)
  (define-key forms-mode-ro-map "p" #'forms-prev-record)
  (define-key forms-mode-ro-map "r" #'forms-search-backward)
  (define-key forms-mode-ro-map "s" #'forms-search-forward)
  (define-key forms-mode-ro-map "x" #'forms-exit)
  (define-key forms-mode-ro-map "<" #'forms-first-record)
  (define-key forms-mode-ro-map ">" #'forms-last-record)
  (define-key forms-mode-ro-map "?" #'describe-mode)
  (define-key forms-mode-ro-map " " #'forms-next-record)
  (forms--mode-commands1 forms-mode-ro-map)
  (forms--mode-menu-ro forms-mode-ro-map)

  ;; This is the normal, local map.
  (setq forms-mode-edit-map (make-keymap))
  (define-key forms-mode-edit-map "\C-c" forms-mode-map)
  (forms--mode-commands1 forms-mode-edit-map)
  (forms--mode-menu-edit forms-mode-edit-map)
  )