diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-17 20:21:05 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-17 20:24:55 +0200 |
| commit | 1e9341672d53fa9b297858dc47f7318974abc80e (patch) | |
| tree | fdbdbdf7908d1c61c0d3b75fdf3d08dc30877837 | |
| parent | 1dd6ad69907c6dcf11970c5f8f445f7399d7f863 (diff) | |
| download | emacs-1e9341672d53fa9b297858dc47f7318974abc80e.tar.gz | |
Prefer defvar-keymap in fortran.el
* lisp/progmodes/fortran.el (fortran-mode-map): Prefer
defvar-keymap.
| -rw-r--r-- | lisp/progmodes/fortran.el | 57 |
1 files changed, 27 insertions, 30 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 58d7a2026eb..6791e2fc9f8 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1,7 +1,6 @@ ;;; fortran.el --- Fortran mode for GNU Emacs -*- lexical-binding: t -*- -;; Copyright (C) 1986, 1993-1995, 1997-2022 Free Software Foundation, -;; Inc. +;; Copyright (C) 1986-2022 Free Software Foundation, Inc. ;; Author: Michael D. Prange <prange@erl.mit.edu> ;; Maintainer: emacs-devel@gnu.org @@ -624,34 +623,32 @@ Used in the Fortran entry in `hs-special-modes-alist'.") st) "Syntax table used to parse Fortran expressions for printing in GUD.") -(defvar fortran-mode-map - (let ((map (make-sparse-keymap))) - (define-key map ";" 'fortran-abbrev-start) - (define-key map "\C-c;" 'fortran-comment-region) - ;; The default comment-dwim does at least as much as this. -;;; (define-key map "\M-;" 'fortran-indent-comment) - (define-key map "\M-\n" 'fortran-split-line) - (define-key map "\M-\C-n" 'fortran-end-of-block) - (define-key map "\M-\C-p" 'fortran-beginning-of-block) - (define-key map "\M-\C-q" 'fortran-indent-subprogram) - (define-key map "\C-c\C-w" 'fortran-window-create-momentarily) - (define-key map "\C-c\C-r" 'fortran-column-ruler) - (define-key map "\C-c\C-p" 'fortran-previous-statement) - (define-key map "\C-c\C-n" 'fortran-next-statement) - (define-key map "\C-c\C-d" 'fortran-join-line) ; like f90 - (define-key map "\M-^" 'fortran-join-line) ; subvert delete-indentation - (define-key map "0" 'fortran-electric-line-number) - (define-key map "1" 'fortran-electric-line-number) - (define-key map "2" 'fortran-electric-line-number) - (define-key map "3" 'fortran-electric-line-number) - (define-key map "4" 'fortran-electric-line-number) - (define-key map "5" 'fortran-electric-line-number) - (define-key map "6" 'fortran-electric-line-number) - (define-key map "7" 'fortran-electric-line-number) - (define-key map "8" 'fortran-electric-line-number) - (define-key map "9" 'fortran-electric-line-number) - map) - "Keymap used in Fortran mode.") +(defvar-keymap fortran-mode-map + :doc "Keymap used in Fortran mode." + ";" #'fortran-abbrev-start + "C-c ;" #'fortran-comment-region + ;; The default comment-dwim does at least as much as this. + ;; "M-;" #'fortran-indent-comment + "C-M-j" #'fortran-split-line + "C-M-n" #'fortran-end-of-block + "C-M-p" #'fortran-beginning-of-block + "C-M-q" #'fortran-indent-subprogram + "C-c C-w" #'fortran-window-create-momentarily + "C-c C-r" #'fortran-column-ruler + "C-c C-p" #'fortran-previous-statement + "C-c C-n" #'fortran-next-statement + "C-c C-d" #'fortran-join-line ; like f90 + "M-^" #'fortran-join-line ; subvert delete-indentation + "0" #'fortran-electric-line-number + "1" #'fortran-electric-line-number + "2" #'fortran-electric-line-number + "3" #'fortran-electric-line-number + "4" #'fortran-electric-line-number + "5" #'fortran-electric-line-number + "6" #'fortran-electric-line-number + "7" #'fortran-electric-line-number + "8" #'fortran-electric-line-number + "9" #'fortran-electric-line-number) (define-abbrev-table 'fortran-mode-abbrev-table |