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."
    (when (file-exists-p file)
      (load-file file))))
+(defun expand-file-name-exists-p (&rest expand-file-name-args)
+  "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
+  its name if it exists, or NIL otherwise."
+  (let ((file (apply #'expand-file-name expand-file-name-args)))
+    (if (file-exists-p file)
+        file
+      nil)))
 (defun acdw/dir (&optional file make-directory)
  "Place Emacs files in one place.

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