aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStephen Berman2016-01-21 12:01:12 +0100
committerStephen Berman2016-01-21 12:01:12 +0100
commit5293d1bdb3e665a565af032a163004c976328cc2 (patch)
tree448b629965237c6c3e03543633c0d6e65aa8f6d7
parent7bc7fd6058a28cdf7da672dc625c6d3f2e50aa1b (diff)
downloademacs-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.el4
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 "")