[Emacs-diffs] Changes to emacs/lisp/tar-mode.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/02/12 21:20:09

Index: tar-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- tar-mode.el 1 Feb 2008 16:01:05 -0000       1.118
+++ tar-mode.el 12 Feb 2008 21:20:04 -0000      1.119
@@ -678,8 +678,7 @@
 (defun tar-mouse-extract (event)
   "Extract a file whose tar directory line you click on."
   (interactive "e")
-  (save-excursion
-    (set-buffer (window-buffer (posn-window (event-end event))))
+  (with-current-buffer (window-buffer (posn-window (event-end event)))
     (save-excursion
       (goto-char (posn-point (event-end event)))
       ;; Just make sure this doesn't get an error.
@@ -721,8 +720,7 @@
           undo-list)
       (unless buffer
        (setq buffer (generate-new-buffer bufname))
-       (save-excursion
-         (set-buffer buffer)
+       (with-current-buffer buffer
          (setq undo-list buffer-undo-list
                buffer-undo-list t))
        (setq bufname (buffer-name buffer))
@@ -751,13 +749,11 @@
                  (setq coding (detect-coding-region start end t)))
              (if (and default-enable-multibyte-characters
                       (coding-system-get coding :for-unibyte))
-                 (save-excursion
-                   (set-buffer buffer)
+                 (with-current-buffer buffer
                    (set-buffer-multibyte nil)))
              (widen)
              (decode-coding-region start end coding buffer)
-             (save-excursion
-               (set-buffer buffer)
+             (with-current-buffer buffer
                (goto-char (point-min))
                (setq buffer-file-name new-buffer-file-name)
                (setq buffer-file-truename
@@ -768,8 +764,7 @@
                ;; Set the default-directory to the dir of the
                ;; superior buffer.
                (setq default-directory
-                     (save-excursion
-                       (set-buffer tar-buffer)
+                     (with-current-buffer tar-buffer
                        default-directory))
                (normal-mode)  ; pick a mode.
                (rename-buffer bufname)
@@ -1138,8 +1133,7 @@
          (delete-region (point-min) (point-max))
          ;; insert the new data...
          (goto-char data-start)
-         (save-excursion
-           (set-buffer subfile)
+         (with-current-buffer subfile
            (save-restriction
              (widen)
              (encode-coding-region 1 (point-max) coding tar-superior-buffer)))