(fortran-font-lock-keywords-2): Add .eqv., .neqv.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b87fa0e02b1afb664e6f8cb4cddcb3041371419..e0c77499698c4649ef300f70b84a33d7bef3e8a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-17  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/fortran.el (fortran-font-lock-keywords-2): Add .eqv., .neqv.
+
 2008-05-17  Andreas Schwab  <schwab@suse.de>
 
        * vc-dispatcher.el (vc-dir-mode-map): Fix M-down and M-up binding.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 467237ae1a649b8b9f569a16e829c3a3b50984dd..846828dc9719cc171ad78c04787b4ca19b42fa8b 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -389,8 +389,8 @@ program\\|subroutine\\)\\>[ \t]*\\(\\sw+\\)?"
                           'paren) "\\>")
            ;; Builtin operators.
            (concat "\\." (regexp-opt
-                          '("and" "or" "not" "lt" "le" "eq" "ge"
-                            "gt" "ne" "true" "false")
+                          '("and" "eq" "eqv" "false" "ge" "gt" "le" "lt" "ne"
+                            "neqv" "not" "or" "true")
                           'paren) "\\.")
            ;; do/goto keywords and targets, and goto tags.
            '("\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)?"