[Emacs-diffs] /srv/bzr/emacs/trunk r102728: * doc-view.el (doc-view-toggle-display): Perform rassq-delete-all

[Tassilo Horn]

------------------------------------------------------------
revno: 102728
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Thu 2010-12-30 15:58:32 +0100
message:
  * doc-view.el (doc-view-toggle-display): Perform rassq-delete-all
  on a copy of auto-mode-alist, because that deletes with side
  effects.
modified:
  lisp/ChangeLog
  lisp/doc-view.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-30 14:47:53 +0000
+++ b/lisp/ChangeLog    2010-12-30 14:58:32 +0000
@@ -1,5 +1,11 @@
 2010-12-30  Tassilo Horn  <address@hidden>
 
+       * 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  <address@hidden>
+
        * doc-view.el (doc-view-mode, doc-view-toggle-display): Use
        normal-mode without doc-view-mode bindings in auto-mode-alist as
        fallback instead of hard coding fundamental mode.

=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el  2010-12-30 14:47:53 +0000
+++ b/lisp/doc-view.el  2010-12-30 14:58:32 +0000
@@ -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