1998-03-06 Carsten Dominik <cd@delysid.gnu.org>

* (reftex-select-item): A set-buffer in the unwind-protect form makes
sure we deinstall in the correct hooks.

diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index fb0e90f69d3d0a869a39af9b1aad0c4b9342ace3..dcb2293a3fd1f27d006ef8a81c5c950ac2a90961 100644 (file)
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -1184,7 +1184,7 @@ When nil, follow-mode will be suspended for stuff in unvisited files."
 ;;; Define the formal stuff for a minor mode named RefTeX.
 ;;;
 
-;; This file corresponds to RefTeX version 3.18.0.2
+;; This file corresponds to RefTeX version 3.19.0.1
 
 (defvar reftex-mode nil
   "Determines if RefTeX minor mode is active.")
@@ -4651,7 +4651,7 @@ bibliography statement (e.g. if it was changed)."
 ;; When MATCH-EVERYWHERE is t, searches will also match in non-selectable
 ;; places.
 
-  (let* (ev data last-data callback-fwd)
+  (let* (ev data last-data callback-fwd (selection-buffer (current-buffer)))
 
     (setq ev
           (catch 'myexit
@@ -4689,10 +4689,13 @@ bibliography statement (e.g. if it was changed)."
            (run-hooks 'post-command-hook)  ;; because XEmacs does not do it
            (recursive-edit))
 
-       (use-local-map nil)
-       (remove-hook 'pre-command-hook 'reftex-select-pre-command-hook t)
-       (remove-hook 'post-command-hook 'reftex-select-post-command-hook t)
-       (set-marker reftex-recursive-edit-marker nil)))))
+       (set-marker reftex-recursive-edit-marker nil)
+       (save-excursion
+         (set-buffer selection-buffer)
+         (use-local-map nil)
+         (remove-hook 'pre-command-hook 'reftex-select-pre-command-hook t)
+         (remove-hook 'post-command-hook 
+                      'reftex-select-post-command-hook t))))))
 
     (set (make-local-variable 'reftex-last-line)
         (+ (count-lines (point-min) (point)) (if (bolp) 1 0)))