diff options
| author | Stephen Berman | 2016-01-21 12:01:12 +0100 |
|---|---|---|
| committer | Stephen Berman | 2016-01-21 12:01:12 +0100 |
| commit | 5293d1bdb3e665a565af032a163004c976328cc2 (patch) | |
| tree | 448b629965237c6c3e03543633c0d6e65aa8f6d7 | |
| parent | 7bc7fd6058a28cdf7da672dc625c6d3f2e50aa1b (diff) | |
| download | emacs-5293d1bdb3e665a565af032a163004c976328cc2.tar.gz emacs-5293d1bdb3e665a565af032a163004c976328cc2.zip | |
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 ebf0a82be0c..29d8dfcfb7f 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 | |||
| 4654 | (goto-char (match-beginning 0)) | 4654 | (goto-char (match-beginning 0)) |
| 4655 | (goto-char (point-max))) | 4655 | (goto-char (point-max))) |
| 4656 | (backward-char) | 4656 | (backward-char) |
| 4657 | (when (looking-back "\\[\\([^][]+\\)\\]") | 4657 | (when (looking-back "\\[\\([^][]+\\)\\]" |
| 4658 | (line-beginning-position)) | ||
| 4658 | (setq cat (match-string 1)) | 4659 | (setq cat (match-string 1)) |
| 4659 | (goto-char (match-beginning 0)) | 4660 | (goto-char (match-beginning 0)) |
| 4660 | (replace-match "")) | 4661 | (replace-match "")) |
| 4661 | ;; If the item ends with a non-comment parenthesis not | 4662 | ;; If the item ends with a non-comment parenthesis not |
| 4662 | ;; followed by a period, we lose (but we inherit that | 4663 | ;; followed by a period, we lose (but we inherit that |
| 4663 | ;; problem from the legacy code). | 4664 | ;; problem from the legacy code). |
| 4665 | ;; FIXME: fails on multiline comment | ||
| 4664 | (when (looking-back "(\\(.*\\)) " (line-beginning-position)) | 4666 | (when (looking-back "(\\(.*\\)) " (line-beginning-position)) |
| 4665 | (setq comment (match-string 1)) | 4667 | (setq comment (match-string 1)) |
| 4666 | (replace-match "") | 4668 | (replace-match "") |