(org-set-tags): Prevent slipping of point during completion.

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index 61d4a690ef9435b48802b7768703138f52c1922c..5cab0fd8f01ba3ec5365acec2c3d454ce4f9ea92 100644 (file)
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <dominik at science dot uva dot nl>
 ;; 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