Make defvar-setq checks boundp at runtime

This commit is contained in:
Ivan Malison 2016-06-28 17:54:31 -07:00
parent cf907059a4
commit 88e18783de

View File

@ -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)