diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 38 |
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)) |