From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Sep 2008 03:09:30 +0000 (+0000)
Subject: (f90-mode-map): Don't bind \t and \r.
X-Git-Tag: emacs-pretest-23.0.90~2916
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=835963480419fcb737b6eb0f7ed0bda1f317159e;p=emacs.git

(f90-mode-map): Don't bind \t and \r.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 701cfca5aed..087317bcdca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-09-12  Glenn Morris  <rgm@gnu.org>
 
+	* progmodes/f90.el (f90-mode-map): Don't bind \t and \r.
+
 	* indent.el (indent-line-function): Doc fix.
 	* progmodes/sh-script.el (sh-font-lock-open-heredoc): Doc fix.
 
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 6e5dee5130a..a53e103c6f8 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -653,7 +653,7 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
     (define-key map "\C-\M-p"  'f90-beginning-of-block)
     (define-key map "\C-\M-q"  'f90-indent-subprogram)
     (define-key map "\C-j"     'f90-indent-new-line) ; LFD equals C-j
-    (define-key map "\r"       'newline)
+;;;    (define-key map "\r"       'newline)
     (define-key map "\C-c\r"   'f90-break-line)
 ;;;  (define-key map [M-return] 'f90-break-line)
     (define-key map "\C-c\C-a" 'f90-previous-block)
@@ -663,7 +663,8 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
     (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\C-w" 'f90-insert-end)
-    (define-key map "\t"       'f90-indent-line)
+    ;; Standard tab binding will call this, and also handle regions.
+;;;    (define-key map "\t"       'f90-indent-line)
     (define-key map ","        'f90-electric-insert)
     (define-key map "+"        'f90-electric-insert)
     (define-key map "-"        'f90-electric-insert)