From fe6afa19a3e0cf3db04df0c4bc6fe898028dfb0f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 12 Jun 2018 00:25:11 +0200 Subject: [PATCH] Add docstrings to FILE! & DIR! macros --- core/core-lib.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/core-lib.el b/core/core-lib.el index 918c2fc49..5b078c988 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -189,14 +189,14 @@ MATCH is a string regexp. Only entries that match it will be included." ;; (defmacro FILE! () - "TODO" + "Return the emacs lisp file this macro is called from." `(cond ((bound-and-true-p byte-compile-current-file)) ((stringp (car-safe current-load-list)) (car current-load-list)) (load-file-name) (buffer-file-name))) (defmacro DIR! () - "TODO" + "Returns the directory of the emacs lisp file this macro is called from." `(let ((file (FILE!))) (and file (file-name-directory file))))