diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2016-01-21 12:01:12 +0100 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2016-01-21 12:01:12 +0100 |
| commit | 5293d1bdb3e665a565af032a163004c976328cc2 (patch) | |
| tree | 448b629965237c6c3e03543633c0d6e65aa8f6d7 | |
| parent | 7bc7fd6058a28cdf7da672dc625c6d3f2e50aa1b (diff) | |
Avoid byte-compiler warning in todo-mode (bug#21953)
* todo-mode.el (todo-convert-legacy-files): Add limit argument
to looking-back to comply with advertised-calling-convention.
| -rw-r--r-- | lisp/calendar/todo-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index ebf0a82be0..29d8dfcfb7 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -4654,13 +4654,15 @@ name in `todo-directory'. See also the documentation string of (goto-char (match-beginning 0)) (goto-char (point-max))) (backward-char) - (when (looking-back "\\[\\([^][]+\\)\\]") + (when (looking-back "\\[\\([^][]+\\)\\]" + (line-beginning-position)) (setq cat (match-string 1)) (goto-char (match-beginning 0)) (replace-match "")) ;; If the item ends with a non-comment parenthesis not ;; followed by a period, we lose (but we inherit that ;; problem from the legacy code). + ;; FIXME: fails on multiline comment (when (looking-back "(\\(.*\\)) " (line-beginning-position)) (setq comment (match-string 1)) (replace-match "") |