[Emacs-diffs] master 197dd69: * lisp/simple.el (clone-buffer): Adjust `mark-ring'

[Stefan Monnier]

branch: master
commit 197dd690112e8eef6457b16adbe6e2c1d801c849
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/simple.el (clone-buffer): Adjust `mark-ring'
---
 lisp/simple.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index fde6669..41f22b2 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8516,13 +8516,16 @@ after it has been set up properly in other respects."
 
       ;; Set up other local variables.
       (mapc (lambda (v)
-             (condition-case ()        ;in case var is read-only
+             (condition-case ()
                  (if (symbolp v)
                      (makunbound v)
                    (set (make-local-variable (car v)) (cdr v)))
-               (error nil)))
+               (setting-constant nil))) ;E.g. for enable-multibyte-characters.
            lvars)
 
+      (setq mark-ring (mapcar (lambda (mk) (copy-marker (marker-position mk)))
+                              mark-ring))
+
       ;; Run any hooks (typically set up by the major mode
       ;; for cloning to work properly).
       (run-hooks 'clone-buffer-hook))