From dd026a6a38ba41f9483b89570b7ffc12825cc5d4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 20 Oct 2007 03:56:39 +0000 Subject: [PATCH] (f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos. --- lisp/ChangeLog | 15 +++++++++------ lisp/progmodes/f90.el | 4 ++-- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ea68f0da04..6d6ab0df8eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-20 Glenn Morris + + * progmodes/f90.el (f90-font-lock-keywords-2) + (f90-looking-at-type-like): Fix regexp typos. + 2007-10-19 Juanma Barranquero * 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): diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index c7042fb1f67..4b27fabb4c1 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -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 () -- 2.39.2