* lisp/simple.el (clone-buffer): Adjust `mark-ring'

diff --git a/lisp/simple.el b/lisp/simple.el
index fde6669df1020e641c792b5e66e0843d5499f8ae..41f22b2396dc6b3663f7e51aea6c5fd93c90dfd0 100644 (file)
--- 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))