Function: tar-swap-data

tar-swap-data is a byte-compiled function defined in tar-mode.el.gz.

Signature

(tar-swap-data)

Documentation

Swap buffer contents between current buffer and tar-data-buffer.

Preserve the modified states of the buffers and set buffer-swapped-with.

Source Code

;; Defined in /usr/src/emacs/lisp/tar-mode.el.gz
(defun tar-swap-data ()
  "Swap buffer contents between current buffer and `tar-data-buffer'.
Preserve the modified states of the buffers and set `buffer-swapped-with'."
  (let ((data-buffer-modified-p (buffer-modified-p tar-data-buffer))
	(current-buffer-modified-p (buffer-modified-p)))
    (buffer-swap-text tar-data-buffer)
    (setq tar-data-swapped (not tar-data-swapped))
    (restore-buffer-modified-p data-buffer-modified-p)
    (with-current-buffer tar-data-buffer
      (restore-buffer-modified-p current-buffer-modified-p))))