Function: archive-delete-local

archive-delete-local is a byte-compiled function defined in arc-mode.el.gz.

Signature

(archive-delete-local NAME)

Documentation

Delete file NAME and its parents up to and including archive-tmpdir.

Source Code

;; Defined in /usr/src/emacs/lisp/arc-mode.el.gz
(defun archive-delete-local (name)
  "Delete file NAME and its parents up to and including `archive-tmpdir'."
  (let ((again t)
	(top (directory-file-name (file-name-as-directory archive-tmpdir))))
    (condition-case nil
	(delete-file name)
      (error nil))
    (while again
      (setq name (directory-file-name (file-name-directory name)))
      (condition-case nil
	  (delete-directory name t)
	(error nil))
      (if (string= name top) (setq again nil)))))