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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bb57872a61615d914e58a64ecb639167028d294..04b80e4eba042f135a15670a4263423abe5af376 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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,

diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index b428d8bf2242b4f99f11af415fd0eb602119e29d..290e660cf5bd81e79161822c8395b6f362038ca5 100644 (file)
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -404,6 +404,7 @@ reference.")
     (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)

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 64c716208e9ea15ff2124c546b4a8822a27f10ba..b6c42d2c5507ae49da6ccf6518daf4986732fb35 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -657,6 +657,7 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
     (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)

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index bc1af67d587faf86b5b60a34c2542c693c8cfb53..47d2f7a45e00f2859acfc7ef26b0740d799e4255 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -100,6 +100,7 @@ This takes effect when first loading the `sgml-mode' library.")
     (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.

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 70e4d1e3953b858e8bf2bddac1508579b3bd8641..08f8257407ed85d7fb2a73e2cf164bba58940374 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -864,6 +864,7 @@ START is the position of the \\ and DELIM is the delimiter char."
 
     ;; 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)