aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/make-mode.el
diff options
context:
space:
mode:
authorDaniel Pfeiffer <[email protected]>2005-05-18 20:12:10 +0000
committerDaniel Pfeiffer <[email protected]>2005-05-18 20:12:10 +0000
commit5c8b544281bcc0ae17c30c9e664a06a14b124664 (patch)
treea4129ef39c8f125f21310e6b75b9d4d18fe4f3de /lisp/progmodes/make-mode.el
parentec249c7107513b5396aee12f37e0da9a820b91aa (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.el13
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))