From 58e271fc5e4a992e5352f69cc8c87aa61433129a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 26 Oct 2021 11:39:32 -0400 Subject: [PATCH] * lisp/xdg.el (xdg--dir-home): Make it a function --- lisp/xdg.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/xdg.el b/lisp/xdg.el index aee0dcad67f..05fc3d711aa 100644 --- a/lisp/xdg.el +++ b/lisp/xdg.el @@ -41,13 +41,11 @@ ;; XDG Base Directory Specification ;; https://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html -(defmacro xdg--dir-home (environ default-path) - (declare (debug (stringp stringp))) - (let ((env (make-symbol "env"))) - `(let ((,env (getenv ,environ))) - (if (or (null ,env) (not (file-name-absolute-p ,env))) - (expand-file-name ,default-path) - ,env)))) +(defun xdg--dir-home (environ default-path) + (let ((env (getenv environ))) + (if (or (null env) (not (file-name-absolute-p env))) + (expand-file-name default-path) + env))) (defun xdg-config-home () "Return the base directory for user specific configuration files. -- 2.39.5