* doc-view.el (doc-view-toggle-display): Perform rassq-delete-all

on a copy of auto-mode-alist, because that deletes with side
effects.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b28681fec5488b3fb41fb7453ab6c4520317061..e241a65ff5085aad6536b78dce5ef9de4559eac7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-12-30  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * doc-view.el (doc-view-toggle-display): Perform rassq-delete-all
+       on a copy of auto-mode-alist, because that deletes with side
+       effects.
+
 2010-12-30  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (doc-view-mode, doc-view-toggle-display): Use

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 526bf7694fbe679c165a3ecb342e266119d732ea..a5dbff1056415d20da06b75971e8bdfa54cfe0ce 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -1061,7 +1061,8 @@ For now these keys are useful:
        ;; normal mode.
        (if doc-view-previous-major-mode
            (funcall doc-view-previous-major-mode)
-         (let ((auto-mode-alist (rassq-delete-all 'doc-view-mode auto-mode-alist)))
+         (let ((auto-mode-alist (rassq-delete-all 'doc-view-mode
+                                                  (copy-alist auto-mode-alist))))
            (normal-mode)))
        (doc-view-minor-mode 1))
     ;; Switch to doc-view-mode