Function: tar-expunge-internal

tar-expunge-internal is a byte-compiled function defined in tar-mode.el.gz.

Signature

(tar-expunge-internal)

Documentation

Expunge the tar-entry specified by the current line.

Source Code

;; Defined in /usr/src/emacs/lisp/tar-mode.el.gz
(defun tar-expunge-internal ()
  "Expunge the tar-entry specified by the current line."
  (let ((descriptor (tar-current-descriptor)))
    ;;
    ;; delete the current line...
    (delete-region (line-beginning-position) (line-beginning-position 2))
    ;;
    ;; delete the data pointer...
    (setq tar-parse-info (delq descriptor tar-parse-info))
    ;;
    ;; delete the data from inside the file...
    (with-current-buffer tar-data-buffer
      (delete-region (or (tar-header-header-start descriptor)
                         (- (tar-header-data-start descriptor) 512))
                     (tar-header-data-end descriptor)))))