# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 994101575 0
# Node ID 03f0515fe575036aa11f7c03657ec4e4958ed7bc
# Parent  daf29e9ae9edb5d4de6cc826edc4e469b6b514e5
(Info-clone-buffer-hook): Really unconditionally copy marker.

diff -r daf29e9ae9ed -r 03f0515fe575 lisp/info.el
--- a/lisp/info.el	Mon Jul 02 15:22:16 2001 +0000
+++ b/lisp/info.el	Mon Jul 02 19:19:35 2001 +0000
@@ -664,7 +664,7 @@
           ;; Search file for a suitable node.
 	  (let ((guesspos (point-min))
 		(regexp (concat "\\(Node:\\|Ref:\\) *\\("
-				(if (stringp nodename) 
+				(if (stringp nodename)
 				    (regexp-quote nodename)
 				  "")
 				"\\) *[,\t\n\177]"))
@@ -2309,10 +2309,11 @@
 (defun Info-clone-buffer-hook ()
   (when (bufferp Info-tag-table-buffer)
     (setq Info-tag-table-buffer
-	  (with-current-buffer Info-tag-table-buffer (clone-buffer)))
-    (let ((m Info-tag-table-marker))
+	  (with-current-buffer Info-tag-table-buffer (clone-buffer))))
+  (let ((m Info-tag-table-marker))
+    (when (markerp m)
       (setq Info-tag-table-marker
-	    (if (and (markerp m) (marker-position m))
+	    (if (and (marker-position m) (bufferp Info-tag-table-buffer))
 		(with-current-buffer Info-tag-table-buffer
 		  (copy-marker (marker-position m)))
 	      (make-marker))))))