[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, v [EMACS_22_BASE]
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, v [EMACS_22_BASE] |
Date: |
Sat, 20 Oct 2007 03:52:34 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Glenn Morris <gm> 07/10/20 03:52:33
Index: f90.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/f90.el,v
retrieving revision 1.94.2.1
retrieving revision 1.94.2.2
diff -u -b -r1.94.2.1 -r1.94.2.2
--- f90.el 25 Jul 2007 04:29:33 -0000 1.94.2.1
+++ f90.el 20 Oct 2007 03:52:33 -0000 1.94.2.2
@@ -371,7 +371,7 @@
(list
;; Variable declarations (avoid the real function call).
'("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
-logical\\|double[ \t]*precision\\|*type[ \t]*(\\sw+)\\)\
+logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\
\\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
(1 font-lock-type-face t) (4 font-lock-variable-name-face t))
;; do, if, select, where, and forall constructs.
@@ -963,7 +963,7 @@
(cond
((looking-at f90-type-def-re)
(list (match-string 1) (match-string 2)))
- ((looking-at "\\(interface\\|block[\t]*data\\)\\>")
+ ((looking-at "\\(interface\\|block[ \t]*data\\)\\>")
(list (match-string 1) nil))))
(defsubst f90-looking-at-program-block-start ()
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, v [EMACS_22_BASE],
Glenn Morris <=