diff options
| -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 "") |