(Info-clone-buffer-hook): Unconditionally copy marker.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6619d04a5985385ead2c05a2096dbd0cd6bf92a6..cf277a5f46832ba32450786623aaaeb1743f0d81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,11 +1,15 @@
+2001-06-28  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * info.el (Info-clone-buffer-hook): Unconditionally copy marker.
+
 2001-06-28  Karl Fogel  <kfogel@red-bean.com>
 
        * saveplace.el: Update maintainer email address.
 
 2001-06-27  Francesco Potorti`  <pot@gnu.org>
 
-       * uniquify.el: (uniquify-rationalize-file-buffer-names): Undo
-       previous change.
+       * uniquify.el: (uniquify-rationalize-file-buffer-names):
+         Undo previous change.
 
 2001-06-27  Francesco Potorti`  <pot@gnu.org>
 
@@ -27,8 +31,7 @@
 
 2001-06-26  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
-       * mail/rmail.el (rmail-msg-restore-non-pruned-header): New
-       function.
+       * mail/rmail.el (rmail-msg-restore-non-pruned-header): New function.
        (rmail-msg-prune-header): Likewise.
        (rmail-toggle-header): Use `rmail-msg-restore-non-pruned-header'
        and `rmail-msg-prune-header'.

diff --git a/lisp/info.el b/lisp/info.el
index 55c658b53697c0fb377881a89d4bd23e4c859fa9..aaf7b1811e73c433d41d81b29f9beedd1ba223c5 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2311,10 +2311,11 @@ Advanced commands:
     (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)