From b08b89d027dd8cd409faee81a066c83ae3c06bc0 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 3 Mar 2007 11:08:14 +0000 Subject: [PATCH] (org-set-tags): Prevent slipping of point during completion. --- lisp/textmodes/org.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 61d4a690ef9..5cab0fd8f01 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 4.67b +;; Version: 4.67c ;; ;; This file is part of GNU Emacs. ;; @@ -83,7 +83,7 @@ ;;; Version -(defvar org-version "4.67b" +(defvar org-version "4.67c" "The version number of the file org.el.") (defun org-version () (interactive) @@ -11627,8 +11627,9 @@ With prefix ARG, realign all tags in headings in the current buffer." (org-fast-tag-selection current-tags inherited-tags table) (let ((org-add-colon-after-tag-completion t)) (org-trim - (completing-read "Tags: " 'org-tags-completion-function - nil nil current 'org-tags-history))))) + (save-excursion + (completing-read "Tags: " 'org-tags-completion-function + nil nil current 'org-tags-history)))))) (while (string-match "[-+&]+" tags) ;; No boolean logic, just a list (setq tags (replace-match ":" t t tags)))) @@ -11636,7 +11637,7 @@ With prefix ARG, realign all tags in headings in the current buffer." (setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags ":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) - + ;; Insert new tags at the correct column (beginning-of-line 1) (if (re-search-forward -- 2.39.5