diff options
author | Daniel Pfeiffer <[email protected]> | 2005-05-18 20:12:10 +0000 |
---|---|---|
committer | Daniel Pfeiffer <[email protected]> | 2005-05-18 20:12:10 +0000 |
commit | 5c8b544281bcc0ae17c30c9e664a06a14b124664 (patch) | |
tree | a4129ef39c8f125f21310e6b75b9d4d18fe4f3de /lisp/progmodes/make-mode.el | |
parent | ec249c7107513b5396aee12f37e0da9a820b91aa (diff) |
(makefile-previous-dependency, makefile-match-dependency): Check for := (and in bsd mode also !=) to give a better result, even when font-lock is not on.
Diffstat (limited to 'lisp/progmodes/make-mode.el')
-rw-r--r-- | lisp/progmodes/make-mode.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index fddb6a6cb2..886f47802d 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el @@ -353,15 +353,14 @@ not be enclosed in { } or ( )." 1 'makefile-targets-face prepend) ;; Fontify conditionals and includes. - ;; Note that plain `if' is an automake conditional, and not a bug. (,(concat "^\\(?: [ \t]*\\)?" (regexp-opt keywords t) "\\>[ \t]*\\([^: \t\n#]*\\)") (1 font-lock-keyword-face) (2 font-lock-variable-name-face)) ,@(if negation - `((,negation (1 font-lock-negation-char-face prepend) - (2 font-lock-negation-char-face prepend t)))) + `((,negation (1 font-lock-negation-char-face prepend) + (2 font-lock-negation-char-face prepend t)))) ,@(if space '(;; Highlight lines that contain just whitespace. @@ -894,8 +893,9 @@ Makefile mode can be configured by modifying the following variables: (catch 'found (while (and (< (skip-chars-backward makefile-dependency-skip) 0) (not (bobp))) - (backward-char) - (or (get-text-property (point) 'face) + (or (prog1 (eq (char-after) ?=) + (backward-char)) + (get-text-property (point) 'face) (beginning-of-line) (if (looking-at makefile-dependency-regex) (throw 'found t)))) @@ -1707,7 +1707,8 @@ matched in a rule action." (while (and (> (skip-chars-forward makefile-dependency-skip bound) 0) (not (eobp))) (forward-char) - (or (get-text-property (1- (point)) 'face) + (or (eq (char-after) ?=) + (get-text-property (1- (point)) 'face) (when (save-excursion (beginning-of-line) (looking-at makefile-dependency-regex)) |