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)