Make defvar-setq checks boundp at runtime

2016-06-28 17:54:31 -07:00 · 2016-06-28 17:54:31 -07:00 · 88e18783de
commit 88e18783de
parent cf907059a4
1 changed files with 3 additions and 3 deletions
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@ -906,9 +906,9 @@ For composing functions with an apply so that they can be used with the ~:around
     (org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))

  (defmacro defvar-setq (name value)
-    (if (boundp name)
-        `(setq ,name ,value)
-      `(defvar ,name ,value)))
+    `(if (boundp ,name)
+         (setq ,name ,value)
+       (defvar ,name ,value)))

  (defun eval-region-or-last-sexp ()
    (interactive)