Make defvar-setq checks boundp at runtime
This commit is contained in:
parent
cf907059a4
commit
88e18783de
@ -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")))
|
(org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))
|
||||||
|
|
||||||
(defmacro defvar-setq (name value)
|
(defmacro defvar-setq (name value)
|
||||||
(if (boundp name)
|
`(if (boundp ,name)
|
||||||
`(setq ,name ,value)
|
(setq ,name ,value)
|
||||||
`(defvar ,name ,value)))
|
(defvar ,name ,value)))
|
||||||
|
|
||||||
(defun eval-region-or-last-sexp ()
|
(defun eval-region-or-last-sexp ()
|
||||||
(interactive)
|
(interactive)
|
||||||
|
Loading…
Reference in New Issue
Block a user