diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-09-16 02:41:49 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-09-16 02:41:49 +0000 |
| commit | dc18400924935a6f85a919f69e53260fc606b0e4 (patch) | |
| tree | 7e0b55014d1a8f92c7ab9f397eb872deaee41aad /lisp/progmodes | |
| parent | 761cd524193337fc59b316e04ecf884d482fa89d (diff) | |
| download | emacs-dc18400924935a6f85a919f69e53260fc606b0e4.tar.gz | |
(makefile-match-function-end): Move point. (Bug#983)
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/make-mode.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index 0d83f66701d..f39484a21eb 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el @@ -1,7 +1,7 @@ ;;; make-mode.el --- makefile editing commands for Emacs -;; Copyright (C) 1992, 1994, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1999, 2000, 2001, 2002, 2003, 2004, 2005, +;; 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Thomas Neumann <tom@smart.bo.open.de> ;; Eric S. Raymond <esr@snark.thyrsus.com> @@ -1761,11 +1761,12 @@ Then prompts for all required parameters." "To be called as an anchored matcher by font-lock. The anchor must have matched the opening parens in the first group." (let ((s (match-string-no-properties 1))) - (setq s (cond ((string= s "(") "\\(.*?\\)[ \t]*)") - ((string= s "{") "\\(.*?\\)[ \t]*}") - ((string= s "((") "\\(.*?\\)[ \t]*))") - ((string= s "{{") "\\(.*?\\)[ \t]*}}"))) - (if s (looking-at s)))) + ;; FIXME forward-sexp or somesuch would be better? + (if (setq s (cond ((string= s "(") ")") + ((string= s "{") "}") + ((string= s "((") "))") + ((string= s "{{") "}}"))) + (re-search-forward (concat "\\(.*\\)[ \t]*" s) (line-end-position) t)))) (defun makefile-match-dependency (bound) "Search for `makefile-dependency-regex' up to BOUND. |