procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos.

Browse source
This commit is contained in:
Glenn Morris 2007-10-20 03:53:59 +00:00
parent 5255e3ffc7
commit f42fc119bc
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-10-20 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-font-lock-keywords-2)
(f90-looking-at-type-like): Fix regexp typos.
2007-10-19 Juanma Barranquero <lekktu@gmail.com>
* bs.el (bs-mode): Add mode name (accidentally left out

4
lisp/progmodes/f90.el
View file

@ -371,7 +371,7 @@ subroutine\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?"
(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 @@ NAME is non-nil only for type."
(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 ()