diff options
Diffstat (limited to 'lisp/calendar')
| -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 (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 "") |