diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-07-04 18:47:07 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-07-04 18:47:07 +0000 |
| commit | f2cd8acacc9f7d695a105222d6cd2385bc1f55d5 (patch) | |
| tree | 53ec3ca0412eb1eca24a376b5ae9bb6185988b9e /lisp/arc-mode.el | |
| parent | 3a35cf56e7c9951f6d99f54c65d7109654c854f0 (diff) | |
| download | emacs-f2cd8acacc9f7d695a105222d6cd2385bc1f55d5.tar.gz | |
(archive-lzh-ogm): Reorder save excursion/restriction.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index ce2100c4f08..b6a969d6c0a 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -679,8 +679,6 @@ archive. ;; Archive mode is suitable only for specially formatted data. (put 'archive-mode 'mode-class 'special) -;; ------------------------------------------------------------------------- -;; Section: Key maps (let ((item1 '(archive-subfile-mode " Archive"))) (or (member item1 minor-mode-alist) @@ -1556,8 +1554,8 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." (insert newhsize (archive-lzh-resum p newhsize)))))) (defun archive-lzh-ogm (newval files errtxt ofs) - (save-restriction - (save-excursion + (save-excursion + (save-restriction (widen) (set-buffer-multibyte nil) (dolist (fil files) |