diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-07-31 08:51:41 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-07-31 08:54:36 +0200 |
commit | 30e7416589502273fa24b3ff5f21becb1dd7e10a (patch) | |
tree | d4584589664059cbea40555d7d5e387a9df1cb0f /helm-elisp.el | |
parent | 5beadb8be4aef69065fa59dd72f6ca519107c3b5 (diff) |
No need to quote numbers
* helm-elisp.el (helm-set-variable): Don't quote numbers.
Diffstat (limited to 'helm-elisp.el')
-rw-r--r-- | helm-elisp.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/helm-elisp.el b/helm-elisp.el index 60c83dea..4a5df6f1 100644 --- a/helm-elisp.el +++ b/helm-elisp.el @@ -839,13 +839,16 @@ i.e the `symbol-name' of any existing symbol." :buffer "*helm locate library*")) (defun helm-set-variable (var) - "Set value to VAR interactively." + "Set VAR value interactively." (let* ((sym (helm-symbolify var)) (val (default-value sym))) - (set-default sym (eval-minibuffer (format "Set `%s': " var) - (if (or (stringp val) (memq val '(nil t))) - (prin1-to-string val) - (format "'%s" (prin1-to-string val))))))) + (set-default sym (eval-minibuffer + (format "Set `%s': " var) + (if (or (stringp val) + (memq val '(nil t)) + (numberp val)) + (prin1-to-string val) + (format "'%s" (prin1-to-string val))))))) ;;; Elisp Timers. |