diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-23 10:30:22 +0100 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-04-09 22:25:30 -0400 |
| commit | 44ec473c199262d89b372d8a6cd35bed7672164d (patch) | |
| tree | d6ec732cf36b83054380a04fab996c4c2398e6b4 | |
| parent | 06c7a54f0b569ab74ed791ff21b247443c0ce2fd (diff) | |
| download | org-mode-44ec473c199262d89b372d8a6cd35bed7672164d.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.
(cherry picked from commit 83518daf1159ec537e12ef0c5c27b8b3140f4d6a)
| -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 0c2a81e..e6b65d5 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12347,8 +12347,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. |