From: Glenn Morris <rgm@gnu.org>
Date: Tue, 28 Nov 2006 03:45:39 +0000 (+0000)
Subject: (fortran-font-lock-keywords-4): Add `min'.
X-Git-Tag: emacs-pretest-22.0.92~419
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=742695df24073bb499eba2aad2a5aac736eeceaa;p=emacs.git

(fortran-font-lock-keywords-4): Add `min'.
(fortran-window-create-momentarily): Do not need string-to-char.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index c7a175241d5..fcc9db1c3ef 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -385,8 +385,8 @@ program\\|subroutine\\)\\>[ \t]*\\(\\sw+\\)?"
                             "dabs" "cabs" "mod" "amod" "dmod" "isign"
                             "sign" "dsign" "idim" "dim" "ddim" "dprod"
                             "max" "max0" "amax1" "dmax1" "amax0" "max1"
-                            "min0" "amin1" "dmin1" "amin0" "min1" "len"
-                            "index" "lge" "lgt" "lle" "llt" "aimag"
+                            "min" "min0" "amin1" "dmin1" "amin0" "min1"
+                            "len" "index" "lge" "lgt" "lle" "llt" "aimag"
                             "conjg" "sqrt" "dsqrt" "csqrt" "exp" "dexp"
                             "cexp" "log" "alog" "dlog" "clog" "log10"
                             "alog10" "dlog10" "sin" "dsin" "csin" "cos"
@@ -968,7 +968,7 @@ See also `fortran-window-create'."
 	    (error (error "No room for Fortran window")))
 	  (message "Type SPC to continue editing.")
 	  (let ((char (read-event)))
-	    (or (equal char (string-to-char " "))
+	    (or (equal char ?\s)
 		(setq unread-command-events (list char))))))
     (fortran-window-create)))