From: Dave Love <fx@gnu.org>
Date: Tue, 28 Apr 1998 17:54:11 +0000 (+0000)
Subject: (fortran-mode-map): Bind M-^.  Use \M-, not \e elsewhere.
X-Git-Tag: emacs-20.3~1273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9feb305f5f33c1c278bd50223d9a4385a607680;p=emacs.git

(fortran-mode-map): Bind M-^.  Use \M-, not \e elsewhere.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 1b5bb8ae797..c35eadda156 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -393,18 +393,20 @@ format style.")
   (setq fortran-mode-map (make-sparse-keymap))
   (define-key fortran-mode-map ";" 'fortran-abbrev-start)
   (define-key fortran-mode-map "\C-c;" 'fortran-comment-region)
-  (define-key fortran-mode-map "\e\C-a" 'beginning-of-fortran-subprogram)
-  (define-key fortran-mode-map "\e\C-e" 'end-of-fortran-subprogram)
-  (define-key fortran-mode-map "\e;" 'fortran-indent-comment)
-  (define-key fortran-mode-map "\e\C-h" 'mark-fortran-subprogram)
-  (define-key fortran-mode-map "\e\n" 'fortran-split-line)
+  (define-key fortran-mode-map "\M-\C-a" 'beginning-of-fortran-subprogram)
+  (define-key fortran-mode-map "\M-\C-e" 'end-of-fortran-subprogram)
+  (define-key fortran-mode-map "\M-;" 'fortran-indent-comment)
+  (define-key fortran-mode-map "\M-\C-h" 'mark-fortran-subprogram)
+  (define-key fortran-mode-map "\M-\n" 'fortran-split-line)
   (define-key fortran-mode-map "\n" 'fortran-indent-new-line)
-  (define-key fortran-mode-map "\e\C-q" 'fortran-indent-subprogram)
+  (define-key fortran-mode-map "\M-\C-q" 'fortran-indent-subprogram)
   (define-key fortran-mode-map "\C-c\C-w" 'fortran-window-create-momentarily)
   (define-key fortran-mode-map "\C-c\C-r" 'fortran-column-ruler)
   (define-key fortran-mode-map "\C-c\C-p" 'fortran-previous-statement)
   (define-key fortran-mode-map "\C-c\C-n" 'fortran-next-statement)
-  (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line)
+  (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line) ; like f90
+  (define-key fortran-mode-map
+    "\M-^" 'fortran-join-line) ; basically a delete-indentation equivalent
   (define-key fortran-mode-map "\C-xnd" 'fortran-narrow-to-subprogram)
   ;(define-key fortran-mode-map "\t" 'fortran-indent-line)
   (define-key fortran-mode-map "0" 'fortran-electric-line-number)