Mercurial > emacs

changeset 64086:2aeabf7911c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-lzh-ogm): Reorder save excursion/restriction.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 04 Jul 2005 18:47:07 +0000
parents 18a818a2ee7c
children 16a14151b339
files lisp/arc-mode.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/arc-mode.el	Mon Jul 04 17:55:18 2005 +0000
+++ b/lisp/arc-mode.el	Mon Jul 04 18:47:07 2005 +0000
@@ -679,8 +679,6 @@
 
 ;; 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 @@
 	(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)