Browse Source

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)
Nicolas Goaziou 5 years ago
parent
commit
44ec473c19
1 changed files with 4 additions and 2 deletions
  1. 4 2
      lisp/org.el

+ 4 - 2
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.