mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(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:56:39 +00:00
parent f76840f36c
commit dd026a6a38
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
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--track-window-changes): Don't refresh the whole list.
@ -514,15 +519,13 @@
* net/eudc-hotlist.el (eudc-edit-hotlist):
* net/eudc.el (eudc-display-records)
(eudc-filter-duplicate-attributes)
(eudc-distribute-field-on-records, eudc-query-form)
(eudc-process-form):
(eudc-distribute-field-on-records, eudc-query-form, eudc-process-form):
* net/eudcb-bbdb.el (eudc-bbdb-filter-non-matching-record)
(eudc-bbdb-query-internal):
* net/eudcb-ldap.el (eudc-ldap-simple-query-internal):
* net/socks.el (socks-build-auth-list):
* progmodes/cc-cmds.el (top level):
* progmodes/cc-styles.el (c-make-styles-buffer-local)
(c-set-style):
* progmodes/cc-styles.el (c-make-styles-buffer-local, c-set-style):
* progmodes/cperl-mode.el (top level, cperl-imenu-addback)
(cperl-write-tags, cperl-tags-treeify):
* progmodes/ebnf-yac.el (ebnf-yac-token-table):
@ -611,8 +614,8 @@
* vc.el (vc-diff):
(vc-diff-internal): Merge a patch by Juanma Barranquero. Also,
emporarily disable the check for his edge case of
vc-diff (stopping it from grinding when callerd from $HOME), as
temporarily disable the check for his edge case of
vc-diff (stopping it from grinding when called from $HOME), as
it's calling some brittle code in vc-hooks.el.
(with-vc-properties): Fix evaluation time of a macro argument.
* ediff-vers.el (ediff-vc-internal):

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 ()