diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-20 21:55:00 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-20 21:55:00 -0400 |
| commit | c9a75a4030a556d700fd95222ec0bf4c1a9f67b5 (patch) | |
| tree | 6983e7d01dabf1995a709f568e59f2499bda1551 /lisp/calendar | |
| parent | e3bfb5191f6144c9ac96772fea9f40c2e988c75b (diff) | |
| download | emacs-c9a75a4030a556d700fd95222ec0bf4c1a9f67b5.tar.gz | |
Fix byte-compiler warnings about looking-back.
* lisp/vc/log-view.el (log-view-end-of-defun-1):
* lisp/textmodes/tex-mode.el (latex-forward-sexp-1):
* lisp/textmodes/reftex-ref.el (reftex-goto-label):
* lisp/textmodes/bibtex.el (bibtex-insert-kill):
* lisp/progmodes/sh-script.el (sh--maybe-here-document):
* lisp/progmodes/ruby-mode.el (ruby-end-of-defun):
* lisp/progmodes/ada-mode.el (ada-in-numeric-literal-p):
* lisp/org/org.el (org-insert-heading, org-sort-entries):
* lisp/org/org-mouse.el (org-mouse-end-headline)
(org-mouse-context-menu):
* lisp/org/org-clock.el (org-clock-cancel):
* lisp/man.el (Man-default-man-entry):
* lisp/mail/rmail.el (rmail-get-new-mail, rmail-insert-inbox-text)
(rmail-ensure-blank-line):
* lisp/mail/footnote.el (Footnote-delete-footnote):
* lisp/mail/emacsbug.el (report-emacs-bug):
* lisp/info.el (Info-follow-reference, Info-fontify-node):
* lisp/info-look.el (info-lookup-guess-custom-symbol):
* lisp/help-fns.el (help-fns--key-bindings):
* lisp/files.el (hack-local-variables):
* lisp/emulation/viper-ex.el (viper-get-ex-token, ex-cmd-complete)
(viper-get-ex-pat, ex-expand-filsyms, viper-get-ex-file)
(viper-complete-filename-or-exit):
* lisp/emulation/viper-cmd.el (viper-backward-indent):
* lisp/emacs-lisp/lisp-mode.el (calculate-lisp-indent):
* lisp/emacs-lisp/elint.el (elint-get-top-forms):
* lisp/cus-edit.el (custom-face-edit-value-create):
* lisp/calendar/todo-mode.el (todo-set-item-priority)
(todo-filter-items-1, todo-convert-legacy-files)
(todo-prefix-overlays): Add explicit second arg to looking-back.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/todo-mode.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index dcc960fb9bf..bb9316c81d7 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -2606,7 +2606,8 @@ meaning to raise or lower the item's priority by one." ;; separator. (when (looking-back (concat "^" (regexp-quote todo-category-done) - "\n")) + "\n") + (line-beginning-position 0)) (todo-backward-item)))) (todo-insert-with-overlays item) ;; If item was marked, restore the mark. @@ -4231,7 +4232,8 @@ the values of FILTER and FILE-LIST." (if (and (eobp) (looking-back (concat (regexp-quote todo-done-string) - "\n"))) + "\n") + (line-beginning-position 0))) (delete-region (point) (progn (forward-line -2) (point)))))) @@ -4648,7 +4650,7 @@ name in `todo-directory'. See also the documentation string of ;; 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). - (when (looking-back "(\\(.*\\)) ") + (when (looking-back "(\\(.*\\)) " (line-beginning-position)) (setq comment (match-string 1)) (replace-match "") (insert "[" todo-comment-string ": " comment "]")) @@ -5342,7 +5344,8 @@ of each other." (looking-at todo-done-string-start) (looking-back (concat "^" (regexp-quote todo-category-done) - "\n"))) + "\n") + (line-beginning-position 0))) (setq num 1 done t)) (setq prefix (concat (propertize |