diff options
| author | Dave Love | 1998-04-28 17:54:11 +0000 |
|---|---|---|
| committer | Dave Love | 1998-04-28 17:54:11 +0000 |
| commit | e9feb305f5f33c1c278bd50223d9a4385a607680 (patch) | |
| tree | 76f78983a3faf1247f820a50f4de22fccdf544e7 | |
| parent | 7922d62e80893ad365c2f5d9a1087eb95be86f6a (diff) | |
| download | emacs-e9feb305f5f33c1c278bd50223d9a4385a607680.tar.gz emacs-e9feb305f5f33c1c278bd50223d9a4385a607680.zip | |
(fortran-mode-map): Bind M-^. Use \M-, not \e elsewhere.
| -rw-r--r-- | lisp/progmodes/fortran.el | 16 |
1 files changed, 9 insertions, 7 deletions
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.") | |||
| 393 | (setq fortran-mode-map (make-sparse-keymap)) | 393 | (setq fortran-mode-map (make-sparse-keymap)) |
| 394 | (define-key fortran-mode-map ";" 'fortran-abbrev-start) | 394 | (define-key fortran-mode-map ";" 'fortran-abbrev-start) |
| 395 | (define-key fortran-mode-map "\C-c;" 'fortran-comment-region) | 395 | (define-key fortran-mode-map "\C-c;" 'fortran-comment-region) |
| 396 | (define-key fortran-mode-map "\e\C-a" 'beginning-of-fortran-subprogram) | 396 | (define-key fortran-mode-map "\M-\C-a" 'beginning-of-fortran-subprogram) |
| 397 | (define-key fortran-mode-map "\e\C-e" 'end-of-fortran-subprogram) | 397 | (define-key fortran-mode-map "\M-\C-e" 'end-of-fortran-subprogram) |
| 398 | (define-key fortran-mode-map "\e;" 'fortran-indent-comment) | 398 | (define-key fortran-mode-map "\M-;" 'fortran-indent-comment) |
| 399 | (define-key fortran-mode-map "\e\C-h" 'mark-fortran-subprogram) | 399 | (define-key fortran-mode-map "\M-\C-h" 'mark-fortran-subprogram) |
| 400 | (define-key fortran-mode-map "\e\n" 'fortran-split-line) | 400 | (define-key fortran-mode-map "\M-\n" 'fortran-split-line) |
| 401 | (define-key fortran-mode-map "\n" 'fortran-indent-new-line) | 401 | (define-key fortran-mode-map "\n" 'fortran-indent-new-line) |
| 402 | (define-key fortran-mode-map "\e\C-q" 'fortran-indent-subprogram) | 402 | (define-key fortran-mode-map "\M-\C-q" 'fortran-indent-subprogram) |
| 403 | (define-key fortran-mode-map "\C-c\C-w" 'fortran-window-create-momentarily) | 403 | (define-key fortran-mode-map "\C-c\C-w" 'fortran-window-create-momentarily) |
| 404 | (define-key fortran-mode-map "\C-c\C-r" 'fortran-column-ruler) | 404 | (define-key fortran-mode-map "\C-c\C-r" 'fortran-column-ruler) |
| 405 | (define-key fortran-mode-map "\C-c\C-p" 'fortran-previous-statement) | 405 | (define-key fortran-mode-map "\C-c\C-p" 'fortran-previous-statement) |
| 406 | (define-key fortran-mode-map "\C-c\C-n" 'fortran-next-statement) | 406 | (define-key fortran-mode-map "\C-c\C-n" 'fortran-next-statement) |
| 407 | (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line) | 407 | (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line) ; like f90 |
| 408 | (define-key fortran-mode-map | ||
| 409 | "\M-^" 'fortran-join-line) ; basically a delete-indentation equivalent | ||
| 408 | (define-key fortran-mode-map "\C-xnd" 'fortran-narrow-to-subprogram) | 410 | (define-key fortran-mode-map "\C-xnd" 'fortran-narrow-to-subprogram) |
| 409 | ;(define-key fortran-mode-map "\t" 'fortran-indent-line) | 411 | ;(define-key fortran-mode-map "\t" 'fortran-indent-line) |
| 410 | (define-key fortran-mode-map "0" 'fortran-electric-line-number) | 412 | (define-key fortran-mode-map "0" 'fortran-electric-line-number) |