diff options
| author | Richard M. Stallman | 1995-01-31 06:24:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-31 06:24:07 +0000 |
| commit | db97b8725ea0e47181a9dabe7a68c62b15b6ce52 (patch) | |
| tree | 5fdf30626f72c212bbee944db46ae4e0f2bd6a0c | |
| parent | 034a9d409f86d55e5daa826f63886801450cb297 (diff) | |
| download | emacs-db97b8725ea0e47181a9dabe7a68c62b15b6ce52.tar.gz emacs-db97b8725ea0e47181a9dabe7a68c62b15b6ce52.zip | |
Comment changes.
| -rw-r--r-- | lisp/progmodes/f90.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 584c33c8843..607d45f4bb3 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -1,9 +1,8 @@ | |||
| 1 | ;; f90.el --- Fortran-90 mode (free format) for GNU Emacs 19.x. | 1 | ;; f90.el --- Fortran-90 mode (free format) for GNU Emacs. |
| 2 | ;; Copyright (C) 1995 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1995 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | ;; Author: Torbj\"orn Einarsson <tfkte@fy.chalmers.se> | 4 | ;; Author: Torbj\"orn Einarsson <tfkte@fy.chalmers.se> |
| 5 | ;; Created: Jan 21, 1995 | 5 | ;; Created: Jan 21, 1995 |
| 6 | ;; Version: 1.03 | ||
| 7 | ;; Keywords: fortran, f90, languages | 6 | ;; Keywords: fortran, f90, languages |
| 8 | 7 | ||
| 9 | ;; This program is free software; you can redistribute it and/or modify | 8 | ;; This program is free software; you can redistribute it and/or modify |
| @@ -479,7 +478,7 @@ This highlights variable types, \"keywords,\" etc.") | |||
| 479 | "-----" | 478 | "-----" |
| 480 | ["Toggle abbrev-mode" abbrev-mode t] | 479 | ["Toggle abbrev-mode" abbrev-mode t] |
| 481 | ["Toggle auto-fill" f90-auto-fill-mode t]))) | 480 | ["Toggle auto-fill" f90-auto-fill-mode t]))) |
| 482 | ;; FSF Emacs | 481 | ;; Emacs |
| 483 | (define-key f90-mode-map [menu-bar] (make-sparse-keymap)) | 482 | (define-key f90-mode-map [menu-bar] (make-sparse-keymap)) |
| 484 | (define-key f90-mode-map [menu-bar f90] | 483 | (define-key f90-mode-map [menu-bar f90] |
| 485 | (cons "F90" (make-sparse-keymap "f90"))) | 484 | (cons "F90" (make-sparse-keymap "f90"))) |
| @@ -685,9 +684,9 @@ with no args, if that value is non-nil." | |||
| 685 | ;; Setting up things for font-lock | 684 | ;; Setting up things for font-lock |
| 686 | (if (string-match "Lucid" emacs-version) | 685 | (if (string-match "Lucid" emacs-version) |
| 687 | (put 'f90-mode 'font-lock-keywords-case-fold-search t) | 686 | (put 'f90-mode 'font-lock-keywords-case-fold-search t) |
| 688 | ;; (make-local-variable 'font-lock-keywords) ; for FSF version <= 19.28 | 687 | ;; (make-local-variable 'font-lock-keywords) ; for version <= 19.28 |
| 689 | ;; (setq font-lock-keywords f90-font-lock-keywords) | 688 | ;; (setq font-lock-keywords f90-font-lock-keywords) |
| 690 | (make-local-variable 'font-lock-defaults) ; for FSF version > 19.28 | 689 | (make-local-variable 'font-lock-defaults) ; for version > 19.28 |
| 691 | (setq font-lock-defaults '(f90-font-lock-keywords t)) | 690 | (setq font-lock-defaults '(f90-font-lock-keywords t)) |
| 692 | ) | 691 | ) |
| 693 | (make-local-variable 'font-lock-keywords-case-fold-search) | 692 | (make-local-variable 'font-lock-keywords-case-fold-search) |
| @@ -1559,4 +1558,5 @@ Any other key combination is executed normally." | |||
| 1559 | (funcall change-word -1))))))) | 1558 | (funcall change-word -1))))))) |
| 1560 | 1559 | ||
| 1561 | (provide 'f90) | 1560 | (provide 'f90) |
| 1561 | |||
| 1562 | ;;; f90.el ends here | 1562 | ;;; f90.el ends here |