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'.")