diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/progmodes/make-mode.el | 13 |
2 files changed, 13 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 00a4f96c18..b8478f88f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-05-18 Daniel Pfeiffer <[email protected]> + + * progmodes/make-mode.el (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. + 2005-05-18 Jay Belanger <[email protected]> * calc/calc-help.el (calc-s-prefix-help): Add 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)) |