From: Stefan Monnier Date: Thu, 28 Jun 2001 21:17:27 +0000 (+0000) Subject: (Info-clone-buffer-hook): Unconditionally copy marker. X-Git-Tag: emacs-pretest-21.0.104~120 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15533ae2bf533380005965bd123a45354ed9a61b;p=emacs.git (Info-clone-buffer-hook): Unconditionally copy marker. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6619d04a598..cf277a5f468 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,11 +1,15 @@ +2001-06-28 Stefan Monnier + + * info.el (Info-clone-buffer-hook): Unconditionally copy marker. + 2001-06-28 Karl Fogel * saveplace.el: Update maintainer email address. 2001-06-27 Francesco Potorti` - * 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` @@ -27,8 +31,7 @@ 2001-06-26 MORIOKA Tomohiko - * 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 55c658b5369..aaf7b1811e7 100644 --- 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)