# HG changeset patch # User Richard M. Stallman # Date 791533447 0 # Node ID 3df8ec7c2ace407c19c5a27d6d21542ac010f7d2 # Parent 8f3da98bd144333b3baf3e125512d08d7cf2d911 Comment changes. diff -r 8f3da98bd144 -r 3df8ec7c2ace lisp/progmodes/f90.el --- a/lisp/progmodes/f90.el Tue Jan 31 06:13:47 1995 +0000 +++ b/lisp/progmodes/f90.el Tue Jan 31 06:24:07 1995 +0000 @@ -1,9 +1,8 @@ -;; f90.el --- Fortran-90 mode (free format) for GNU Emacs 19.x. +;; f90.el --- Fortran-90 mode (free format) for GNU Emacs. ;; Copyright (C) 1995 Free Software Foundation, Inc. ;; Author: Torbj\"orn Einarsson ;; Created: Jan 21, 1995 -;; Version: 1.03 ;; Keywords: fortran, f90, languages ;; This program is free software; you can redistribute it and/or modify @@ -479,7 +478,7 @@ "-----" ["Toggle abbrev-mode" abbrev-mode t] ["Toggle auto-fill" f90-auto-fill-mode t]))) - ;; FSF Emacs + ;; Emacs (define-key f90-mode-map [menu-bar] (make-sparse-keymap)) (define-key f90-mode-map [menu-bar f90] (cons "F90" (make-sparse-keymap "f90"))) @@ -685,9 +684,9 @@ ;; Setting up things for font-lock (if (string-match "Lucid" emacs-version) (put 'f90-mode 'font-lock-keywords-case-fold-search t) - ;; (make-local-variable 'font-lock-keywords) ; for FSF version <= 19.28 + ;; (make-local-variable 'font-lock-keywords) ; for version <= 19.28 ;; (setq font-lock-keywords f90-font-lock-keywords) - (make-local-variable 'font-lock-defaults) ; for FSF version > 19.28 + (make-local-variable 'font-lock-defaults) ; for version > 19.28 (setq font-lock-defaults '(f90-font-lock-keywords t)) ) (make-local-variable 'font-lock-keywords-case-fold-search) @@ -1559,4 +1558,5 @@ (funcall change-word -1))))))) (provide 'f90) + ;;; f90.el ends here