# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1287879719 14400
# Node ID d38d192ed185e32f6548e4b4357d8c755282bd31
# Parent  20bf269fbe951de46de6649a224ec55d09c5861d
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 -r 20bf269fbe95 -r d38d192ed185 lisp/ChangeLog
--- 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,
diff -r 20bf269fbe95 -r d38d192ed185 lisp/nxml/nxml-mode.el
--- 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)
diff -r 20bf269fbe95 -r d38d192ed185 lisp/progmodes/f90.el
--- 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)
diff -r 20bf269fbe95 -r d38d192ed185 lisp/textmodes/sgml-mode.el
--- 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.
diff -r 20bf269fbe95 -r d38d192ed185 lisp/textmodes/tex-mode.el
--- 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)