mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.

Browse Source 
The trunk version does this differently.
This commit is contained in:
Glenn Morris 2007-10-27 19:12:27 +00:00
parent 8f3f313d13
commit e2bd4dd4d0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/f90.el
View File

@ -540,7 +540,7 @@ and variable-name parts, respectively."
;; TODO ? actually check for balanced parens in that case.
'("^[ \t0-9]*\\(?:pure\\|elemental\\)?[ \t]*\
\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\
enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\)\
\\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
(1 font-lock-type-face t) (4 font-lock-variable-name-face t))
;; Derived type/class variables.
@ -1508,7 +1508,7 @@ Return (TYPE NAME), or nil if not found."
Return (TYPE NAME), or nil if not found."
(interactive)
(let ((case-fold-search t)
(count 1)
(count 1)
matching-end)
(end-of-line)
(while (and (> count 0)