diff options
| author | Case Duckworth | 2021-04-09 17:51:29 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-09 17:51:29 -0500 |
| commit | 5f45147ca556bd9c97d09ec37a39f429ae9dc3d6 (patch) | |
| tree | 3493ba1626cda6bbbb4ae46b7195ca490173c672 /lisp | |
| parent | Whitespace (diff) | |
| download | emacs-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.el | 8 |
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 | ||