# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1293721112 -3600
# Node ID 5879f36f423bc94858b6d918e9ab4f3429e44e9f
# Parent  f559229a64b8913fc13fa1ca19d48935a69318da
* 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 -r f559229a64b8 -r 5879f36f423b lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 30 15:47:53 2010 +0100
+++ b/lisp/ChangeLog	Thu Dec 30 15:58:32 2010 +0100
@@ -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 -r f559229a64b8 -r 5879f36f423b lisp/doc-view.el
--- a/lisp/doc-view.el	Thu Dec 30 15:47:53 2010 +0100
+++ b/lisp/doc-view.el	Thu Dec 30 15:58:32 2010 +0100
@@ -1061,7 +1061,8 @@
 	;; 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