diff options
| author | Richard M. Stallman | 2005-09-09 01:24:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-09-09 01:24:59 +0000 |
| commit | cac9ce0d76e2eaf9ca180a6f3d207a9e2ec3d001 (patch) | |
| tree | 24d77ea491544865a77b3cb6aed14905d2337461 | |
| parent | c3b8339fd7fcc133af5542e183d2d78c2b563f57 (diff) | |
| download | emacs-cac9ce0d76e2eaf9ca180a6f3d207a9e2ec3d001.tar.gz emacs-cac9ce0d76e2eaf9ca180a6f3d207a9e2ec3d001.zip | |
(makefile-add-log-defun): Trim the result.
| -rw-r--r-- | lisp/progmodes/make-mode.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index b8336691307..11ae1c66aa7 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el | |||
| @@ -1833,6 +1833,10 @@ If it isn't in one, return nil." | |||
| 1833 | ;; Don't keep looking across a blank line or comment. | 1833 | ;; Don't keep looking across a blank line or comment. |
| 1834 | (looking-at "$\\|#") | 1834 | (looking-at "$\\|#") |
| 1835 | (not (zerop (forward-line -1)))))) | 1835 | (not (zerop (forward-line -1)))))) |
| 1836 | ;; Remove leading and trailing whitespace. | ||
| 1837 | (when found | ||
| 1838 | (setq found (replace-regexp-in-string "[ \t]+\\'" "" found)) | ||
| 1839 | (setq found (replace-regexp-in-string "\\`[ \t]+" "" found))) | ||
| 1836 | found))) | 1840 | found))) |
| 1837 | 1841 | ||
| 1838 | (provide 'make-mode) | 1842 | (provide 'make-mode) |