Load slime-helper.el if it exists

I couldn't find a function that would return a filename /if/ it exists, so I
had to write one: `expand-file-name-exists-p'.  Might change the name at some
point.

1 files changed, 8 insertions, 0 deletions

@@ -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.