diff options
| author | Mattias EngdegÄrd | 2020-04-16 12:05:02 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2020-04-16 12:14:38 +0200 |
| commit | d5a7df8c02f04102d50a5cd2290262f59f2b1415 (patch) | |
| tree | 6d0842717c72525cc866b9e6ad927a33288b26bd /lisp/org | |
| parent | 7839390f271211882414f167e8e680b3154ee929 (diff) | |
| download | emacs-d5a7df8c02f04102d50a5cd2290262f59f2b1415.tar.gz emacs-d5a7df8c02f04102d50a5cd2290262f59f2b1415.zip | |
Use directory-files-no-dot-files-regexp wherever possible
Suggested by Paul Eggert.
* lisp/files.el (directory-files-no-dot-files-regexp):
Clarify semantics and purpose.
* lisp/dired.el (dired-re-no-dot):
Define as obsolete alias of directory-files-no-dot-files-regexp.
(dired-delete-file):
* lisp/gnus/gnus-util.el (gnus-delete-directory):
* lisp/net/ange-ftp.el (ange-ftp-delete-directory):
* lisp/obsolete/vc-arch.el (vc-arch-trim-revlib):
* lisp/org/ob-core.el (org-babel-remove-temporary-directory):
* lisp/vc/vc-rcs.el (vc-rcs-unregister):
Use directory-files-no-dot-files-regexp.
Diffstat (limited to 'lisp/org')
| -rw-r--r-- | lisp/org/ob-core.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el index debc27cfbff..fe9af1ce602 100644 --- a/lisp/org/ob-core.el +++ b/lisp/org/ob-core.el | |||
| @@ -3053,9 +3053,8 @@ of `org-babel-temporary-directory'." | |||
| 3053 | (if (eq t (car (file-attributes file))) | 3053 | (if (eq t (car (file-attributes file))) |
| 3054 | (delete-directory file) | 3054 | (delete-directory file) |
| 3055 | (delete-file file))) | 3055 | (delete-file file))) |
| 3056 | ;; We do not want to delete "." and "..". | ||
| 3057 | (directory-files org-babel-temporary-directory 'full | 3056 | (directory-files org-babel-temporary-directory 'full |
| 3058 | (rx (or (not ".") "...")))) | 3057 | directory-files-no-dot-files-regexp)) |
| 3059 | (delete-directory org-babel-temporary-directory)) | 3058 | (delete-directory org-babel-temporary-directory)) |
| 3060 | (error | 3059 | (error |
| 3061 | (message "Failed to remove temporary Org-babel directory %s" | 3060 | (message "Failed to remove temporary Org-babel directory %s" |