From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 4 Jul 2005 18:47:07 +0000 (+0000)
Subject: (archive-lzh-ogm): Reorder save excursion/restriction.
X-Git-Tag: emacs-pretest-22.0.90~8357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2cd8acacc9f7d695a105222d6cd2385bc1f55d5;p=emacs.git

(archive-lzh-ogm): Reorder save excursion/restriction.
---

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)