Mercurial > emacs
changeset 111128:d38d192ed185
Bind "C-c ]" to block-closing commands in several modes.
Bind "C-c ]" to ...
* progmodes/f90.el (f90-mode-map): ... f90-insert-end.
* nxml/nxml-mode.el (nxml-mode-map): ... nxml-finish-element.
* textmodes/tex-mode.el (tex-mode-map): ... latex-close-block.
* textmodes/sgml-mode.el (sgml-mode-map): ... sgml-close-tag.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 23 Oct 2010 20:21:59 -0400 |
parents | 20bf269fbe95 |
children | 2d713b285a70 |
files | lisp/ChangeLog lisp/nxml/nxml-mode.el lisp/progmodes/f90.el lisp/textmodes/sgml-mode.el lisp/textmodes/tex-mode.el |
diffstat | 5 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 23 14:58:18 2010 -0700 +++ b/lisp/ChangeLog Sat Oct 23 20:21:59 2010 -0400 @@ -1,3 +1,11 @@ +2010-10-24 Chong Yidong <cyd@stupidchicken.com> + + Bind "C-c ]" to ... + * progmodes/f90.el (f90-mode-map): ... f90-insert-end. + * nxml/nxml-mode.el (nxml-mode-map): ... nxml-finish-element. + * textmodes/tex-mode.el (tex-mode-map): ... latex-close-block. + * textmodes/sgml-mode.el (sgml-mode-map): ... sgml-close-tag. + 2010-10-23 Glenn Morris <rgm@gnu.org> * textmodes/flyspell.el (flyspell-mode): If there was an error,
--- a/lisp/nxml/nxml-mode.el Sat Oct 23 14:58:18 2010 -0700 +++ b/lisp/nxml/nxml-mode.el Sat Oct 23 20:21:59 2010 -0400 @@ -404,6 +404,7 @@ (define-key map "\M-}" 'nxml-forward-paragraph) (define-key map "\M-h" 'nxml-mark-paragraph) (define-key map "\C-c\C-f" 'nxml-finish-element) + (define-key map "\C-c]" 'nxml-finish-element) (define-key map "\C-c/" 'nxml-finish-element) (define-key map "\C-c\C-m" 'nxml-split-element) (define-key map "\C-c\C-b" 'nxml-balanced-close-start-tag-block)
--- a/lisp/progmodes/f90.el Sat Oct 23 14:58:18 2010 -0700 +++ b/lisp/progmodes/f90.el Sat Oct 23 20:21:59 2010 -0400 @@ -657,6 +657,7 @@ (define-key map "\C-c\C-f" 'f90-fill-region) (define-key map "\C-c\C-p" 'f90-previous-statement) (define-key map "\C-c\C-n" 'f90-next-statement) + (define-key map "\C-c]" 'f90-insert-end) (define-key map "\C-c\C-w" 'f90-insert-end) ;; Standard tab binding will call this, and also handle regions. ;;; (define-key map "\t" 'f90-indent-line)
--- a/lisp/textmodes/sgml-mode.el Sat Oct 23 14:58:18 2010 -0700 +++ b/lisp/textmodes/sgml-mode.el Sat Oct 23 20:21:59 2010 -0400 @@ -100,6 +100,7 @@ (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.
--- a/lisp/textmodes/tex-mode.el Sat Oct 23 14:58:18 2010 -0700 +++ b/lisp/textmodes/tex-mode.el Sat Oct 23 20:21:59 2010 -0400 @@ -864,6 +864,7 @@ ;; Redundant keybindings, for consistency with SGML mode. (define-key map "\C-c\C-t" 'latex-insert-block) + (define-key map "\C-c]" 'latex-close-block) (define-key map "\C-c/" 'latex-close-block) (define-key map "\C-c\C-e" 'latex-close-block)