Function: gnus-delete-directory

gnus-delete-directory is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-delete-directory DIRECTORY)

Documentation

Delete files in DIRECTORY. Subdirectories remain.

If there's no subdirectory, delete DIRECTORY as well.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-delete-directory (directory)
  "Delete files in DIRECTORY.  Subdirectories remain.
If there's no subdirectory, delete DIRECTORY as well."
  (when (file-directory-p directory)
    (let ((files (directory-files
		  directory t directory-files-no-dot-files-regexp))
	  file dir)
      (while files
	(setq file (pop files))
	(if (eq t (car (file-attributes file)))
	    ;; `file' is a subdirectory.
	    (setq dir t)
	  ;; `file' is a file or a symlink.
	  (delete-file file)))
      (unless dir
	(delete-directory directory)))))