aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/simple.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/simple.el')
-rw-r--r--lisp/simple.el38
1 files changed, 19 insertions, 19 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 7584b72da0a..ade177c5b8e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3830,25 +3830,25 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
3830 (read-variable (format "Set variable (default %s): " default-var) 3830 (read-variable (format "Set variable (default %s): " default-var)
3831 default-var) 3831 default-var)
3832 (read-variable "Set variable: "))) 3832 (read-variable "Set variable: ")))
3833 (minibuffer-help-form '(describe-variable var)) 3833 (minibuffer-help-form '(describe-variable var))
3834 (prop (get var 'variable-interactive)) 3834 (prop (get var 'variable-interactive))
3835 (prompt (format "Set %s%s to value: " var 3835 (prompt (format "Set %s%s to value: " var
3836 (cond ((local-variable-p var) 3836 (cond ((local-variable-p var)
3837 " (buffer-local)") 3837 " (buffer-local)")
3838 ((or current-prefix-arg 3838 ((or current-prefix-arg
3839 (local-variable-if-set-p var)) 3839 (local-variable-if-set-p var))
3840 " buffer-locally") 3840 " buffer-locally")
3841 (t " globally")))) 3841 (t " globally"))))
3842 (val (if prop 3842 (val (if prop
3843 ;; Use VAR's `variable-interactive' property 3843 ;; Use VAR's `variable-interactive' property
3844 ;; as an interactive spec for prompting. 3844 ;; as an interactive spec for prompting.
3845 (call-interactively `(lambda (arg) 3845 (call-interactively `(lambda (arg)
3846 (interactive ,prop) 3846 (interactive ,prop)
3847 arg)) 3847 arg))
3848 (read 3848 (read
3849 (read-string prompt nil 3849 (read-string prompt nil
3850 'set-variable-value-history))))) 3850 'set-variable-value-history)))))
3851 (list var val current-prefix-arg))) 3851 (list var val current-prefix-arg)))
3852 3852
3853 (and (custom-variable-p var) 3853 (and (custom-variable-p var)
3854 (not (get var 'custom-type)) 3854 (not (get var 'custom-type))