# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 993763040 0
# Node ID 5d26670f49df8b6657cf67059163f027367e8b89
# Parent  b304c4a260bd3d5405e78e5b61947de0fc83e713
(Info-clone-buffer-hook): Unconditionally copy marker.

diff -r b304c4a260bd -r 5d26670f49df lisp/info.el
--- a/lisp/info.el	Thu Jun 28 16:31:51 2001 +0000
+++ b/lisp/info.el	Thu Jun 28 21:17:20 2001 +0000
@@ -2311,10 +2311,11 @@
     (setq Info-tag-table-buffer
 	  (with-current-buffer Info-tag-table-buffer (clone-buffer)))
     (let ((m Info-tag-table-marker))
-      (when (and (markerp m) (marker-position m))
-	(setq Info-tag-table-marker
-	      (with-current-buffer Info-tag-table-buffer
-		(copy-marker (marker-position m))))))))
+      (setq Info-tag-table-marker
+	    (if (and (markerp m) (marker-position m))
+		(with-current-buffer Info-tag-table-buffer
+		  (copy-marker (marker-position m)))
+	      (make-marker))))))
 
 (defvar Info-edit-map (let ((map (make-sparse-keymap)))
 			(set-keymap-parent map text-mode-map)