diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-23 10:30:22 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-23 10:30:22 +0100 |
commit | 83518daf1159ec537e12ef0c5c27b8b3140f4d6a (patch) | |
tree | 2b3af98f8ae2915ac355376a7364759a35225ff2 | |
parent | d9d877491bb646b7f590695761c0dfba36d405bf (diff) | |
download | org-mode-83518daf1159ec537e12ef0c5c27b8b3140f4d6a.tar.gz |
Small fix
* lisp/org.el (org-set-tags-command): Also avoid using `looking-back',
in particular without a LIMIT argument. This silences the
byte-compiler.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index dcea526..32fe741 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11664,8 +11664,10 @@ in Lisp code use `org-set-tags' instead." nil nil (org-make-tag-string current-tags) 'org-tags-history))))))) (org-set-tags tags))))) - ;; `save-excursion' may not replace the point at the right position: - (when (looking-back "^\*+") (forward-char)))) + ;; `save-excursion' may not replace the point at the right + ;; position. + (when (save-excursion (skip-chars-backward "*") (bolp)) + (forward-char)))) (defun org-align-tags (&optional all) "Align tags in current entry. |