branch: master commit a9ff1f17646103bc825132d3b5ea6111182b35cd Author: Oleh Krehel <ohwoeo...@gmail.com> Commit: Oleh Krehel <ohwoeo...@gmail.com>
counsel.el (counsel-org-change-tags): Improve removing tags --- counsel.el | 11 ++++++++--- 1 files changed, 8 insertions(+), 3 deletions(-) diff --git a/counsel.el b/counsel.el index 4a014f0..6004891 100644 --- a/counsel.el +++ b/counsel.el @@ -760,7 +760,10 @@ Usable with `ivy-resume', `ivy-next-line-and-call' and ((re-search-forward (concat "\\([ \t]*" (regexp-quote current) "\\)[ \t]*$") (point-at-eol) t) - (unless (equal tags "") + (if (equal tags "") + (delete-region + (match-beginning 0) + (match-end 0)) (goto-char (match-beginning 0)) (let* ((c0 (current-column)) ;; compute offset for the case of org-indent-mode active @@ -790,8 +793,10 @@ Usable with `ivy-resume', `ivy-next-line-and-call' and (cond ((memq this-command '(ivy-done ivy-alt-done)) (with-selected-window (ivy-state-window ivy-last) (counsel-org-change-tags - (format ":%s:" - (mapconcat #'identity counsel-org-tags ":"))))) + (if counsel-org-tags + (format ":%s:" + (mapconcat #'identity counsel-org-tags ":")) + "")))) ((eq this-command 'ivy-call) (delete-minibuffer-contents))))