about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index fd33514..44d15d0 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -62,6 +62,14 @@ each hook in HOOKS."
62 (when (file-exists-p file) 62 (when (file-exists-p file)
63 (load-file file)))) 63 (load-file file))))
64 64
65(defun expand-file-name-exists-p (&rest expand-file-name-args)
66 "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
67 its name if it exists, or NIL otherwise."
68 (let ((file (apply #'expand-file-name expand-file-name-args)))
69 (if (file-exists-p file)
70 file
71 nil)))
72
65(defun acdw/dir (&optional file make-directory) 73(defun acdw/dir (&optional file make-directory)
66 "Place Emacs files in one place. 74 "Place Emacs files in one place.
67 75