Variable: sgml-mode-map

sgml-mode-map is a variable defined in sgml-mode.el.gz.

Value

/            sgml-slash
C-c /        sgml-close-tag
C-c 8        sgml-name-8bit-mode(var)/sgml-name-8bit-mode(fun)
C-c <left>   sgml-skip-tag-backward
C-c <right>  sgml-skip-tag-forward
C-c ?        sgml-tag-help(var)/sgml-tag-help(fun)
C-c C-a      sgml-attributes
C-c C-b      sgml-skip-tag-backward
C-c C-d      sgml-delete-tag
C-c C-e      sgml-close-tag
C-c C-f      sgml-skip-tag-forward
C-c C-n      sgml-name-char
C-c C-o      sgml-tag
C-c C-t      sgml-tag
C-c C-v      sgml-validate
C-c DEL      sgml-delete-tag
C-c TAB      sgml-tags-invisible(var)/sgml-tags-invisible(fun)
C-c ]        sgml-close-tag
Ā..\x3FFFFF         sgml-maybe-name-self

Documentation

Keymap for SGML mode. See also sgml-specials.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/sgml-mode.el.gz
(defvar sgml-mode-map
  (let ((map (make-keymap)))	;`sparse' doesn't allow binding to charsets.
    (define-key map "\C-c\C-i" #'sgml-tags-invisible)
    (define-key map "/" #'sgml-slash)
    (define-key map "\C-c\C-n" #'sgml-name-char)
    (define-key map "\C-c\C-t" #'sgml-tag)
    (define-key map "\C-c\C-a" #'sgml-attributes)
    (define-key map "\C-c\C-b" #'sgml-skip-tag-backward)
    (define-key map [?\C-c left] #'sgml-skip-tag-backward)
    (define-key map "\C-c\C-f" #'sgml-skip-tag-forward)
    (define-key map [?\C-c right] #'sgml-skip-tag-forward)
    (define-key map "\C-c\C-d" #'sgml-delete-tag)
    (define-key map "\C-c\^?" #'sgml-delete-tag)
    (define-key map "\C-c?" #'sgml-tag-help)
    (define-key map "\C-c]" #'sgml-close-tag)
    (define-key map "\C-c/" #'sgml-close-tag)

    ;; Redundant keybindings, for consistency with TeX mode.
    (define-key map "\C-c\C-o" #'sgml-tag)
    (define-key map "\C-c\C-e" #'sgml-close-tag)

    (define-key map "\C-c8" #'sgml-name-8bit-mode)
    (define-key map "\C-c\C-v" #'sgml-validate)
    (when sgml-quick-keys
      (define-key map "&" #'sgml-name-char)
      (define-key map "<" #'sgml-tag)
      (define-key map " " #'sgml-auto-attributes)
      (define-key map ">" #'sgml-maybe-end-tag)
      (when (memq ?\" sgml-specials)
        (define-key map "\"" #'sgml-name-self))
      (when (memq ?' sgml-specials)
        (define-key map "'" #'sgml-name-self)))
    (let ((c 127)
	  (map (nth 1 map)))
      (while (< (setq c (1+ c)) 256)
	(aset map c #'sgml-maybe-name-self)))
    map)
  "Keymap for SGML mode.  See also `sgml-specials'.")