aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-01-31 06:24:07 +0000
committerRichard M. Stallman1995-01-31 06:24:07 +0000
commitdb97b8725ea0e47181a9dabe7a68c62b15b6ce52 (patch)
tree5fdf30626f72c212bbee944db46ae4e0f2bd6a0c
parent034a9d409f86d55e5daa826f63886801450cb297 (diff)
downloademacs-db97b8725ea0e47181a9dabe7a68c62b15b6ce52.tar.gz
emacs-db97b8725ea0e47181a9dabe7a68c62b15b6ce52.zip
Comment changes.
-rw-r--r--lisp/progmodes/f90.el10
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