mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
on a copy of auto-mode-alist, because that deletes with side
effects.
This commit is contained in:
Tassilo Horn 2010-12-30 15:58:32 +01:00
parent ad727c819a
commit f9e68477a2
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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> 2010-12-30 Tassilo Horn <tassilo@member.fsf.org>
* doc-view.el (doc-view-mode, doc-view-toggle-display): Use * doc-view.el (doc-view-mode, doc-view-toggle-display): Use

3
lisp/doc-view.el
View file

@ -1061,7 +1061,8 @@ For now these keys are useful:
;; normal mode. ;; normal mode.
(if doc-view-previous-major-mode (if doc-view-previous-major-mode
(funcall 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))) (normal-mode)))
(doc-view-minor-mode 1)) (doc-view-minor-mode 1))
;; Switch to doc-view-mode ;; Switch to doc-view-mode