about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-04-09 17:51:29 -0500
committerCase Duckworth2021-04-09 17:51:29 -0500
commit5f45147ca556bd9c97d09ec37a39f429ae9dc3d6 (patch)
tree3493ba1626cda6bbbb4ae46b7195ca490173c672 /lisp
parentWhitespace (diff)
downloademacs-5f45147ca556bd9c97d09ec37a39f429ae9dc3d6.tar.gz
emacs-5f45147ca556bd9c97d09ec37a39f429ae9dc3d6.zip
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.
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