emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add docstrings to FILE! & DIR! macros

Browse source
This commit is contained in:
Henrik Lissner 2018-06-12 00:25:11 +02:00
parent 1c3183b298
commit fe6afa19a3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/core-lib.el
View file

@ -189,14 +189,14 @@ MATCH is a string regexp. Only entries that match it will be included."
;; ;;
(defmacro FILE! () (defmacro FILE! ()
"TODO" "Return the emacs lisp file this macro is called from."
`(cond ((bound-and-true-p byte-compile-current-file)) `(cond ((bound-and-true-p byte-compile-current-file))
((stringp (car-safe current-load-list)) (car current-load-list)) ((stringp (car-safe current-load-list)) (car current-load-list))
(load-file-name) (load-file-name)
(buffer-file-name))) (buffer-file-name)))
(defmacro DIR! () (defmacro DIR! ()
"TODO" "Returns the directory of the emacs lisp file this macro is called from."
`(let ((file (FILE!))) `(let ((file (FILE!)))
(and file (file-name-directory file)))) (and file (file-name-directory file))))