diff options
| author | Sam Steingold | 2009-10-13 02:59:19 +0000 |
|---|---|---|
| committer | Sam Steingold | 2009-10-13 02:59:19 +0000 |
| commit | 1d57e5e2e3241d729c6584ce65bbc07b728fa150 (patch) | |
| tree | 1cf05a0324371ac2f516466ddf2ef2b3b8bb4766 | |
| parent | 1e7a80f247991145dcfc2fcac59b484e22aee87c (diff) | |
| download | emacs-1d57e5e2e3241d729c6584ce65bbc07b728fa150.tar.gz emacs-1d57e5e2e3241d729c6584ce65bbc07b728fa150.zip | |
fix a typo in the last patch
| -rw-r--r-- | lisp/progmodes/compile.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index c44ddfdb242..5612e64c02d 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -991,7 +991,7 @@ FMTS is a list of format specs for transforming the file name. | |||
| 991 | ;; note that omake usage is not limited to ocaml and C (for stubs). | 991 | ;; note that omake usage is not limited to ocaml and C (for stubs). |
| 992 | (when (and (= ?^ (aref pat 0)) ; anchored: starts with "^" | 992 | (when (and (= ?^ (aref pat 0)) ; anchored: starts with "^" |
| 993 | ;; but does not allow an arbitrary number of leading spaces | 993 | ;; but does not allow an arbitrary number of leading spaces |
| 994 | (not (and (= ? (aref pat 1)) (= ?* (aref pat 1))))) | 994 | (not (and (= ? (aref pat 1)) (= ?* (aref pat 2))))) |
| 995 | (setq pat (concat "^ *" (substring pat 1)))) | 995 | (setq pat (concat "^ *" (substring pat 1)))) |
| 996 | (if (consp file) (setq fmt (cdr file) file (car file))) | 996 | (if (consp file) (setq fmt (cdr file) file (car file))) |
| 997 | (if (consp line) (setq end-line (cdr line) line (car line))) | 997 | (if (consp line) (setq end-line (cdr line) line (car line))) |