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

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