From f2cd8acacc9f7d695a105222d6cd2385bc1f55d5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Jul 2005 18:47:07 +0000 Subject: [PATCH] (archive-lzh-ogm): Reorder save excursion/restriction. --- lisp/arc-mode.el | 6 ++---- 1 file 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) -- 2.39.2