Mercurial > emacs
changeset 53097:bb31cf348e05
(set-variable): Fix indentation.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 19 Nov 2003 13:23:30 +0000 |
| parents | 0393f4b21967 |
| children | dc99e50c977c |
| files | lisp/simple.el |
| diffstat | 1 files changed, 19 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Nov 18 23:44:11 2003 +0000 +++ b/lisp/simple.el Wed Nov 19 13:23:30 2003 +0000 @@ -3830,25 +3830,25 @@ (read-variable (format "Set variable (default %s): " default-var) default-var) (read-variable "Set variable: "))) - (minibuffer-help-form '(describe-variable var)) - (prop (get var 'variable-interactive)) - (prompt (format "Set %s%s to value: " var - (cond ((local-variable-p var) - " (buffer-local)") - ((or current-prefix-arg - (local-variable-if-set-p var)) - " buffer-locally") - (t " globally")))) - (val (if prop - ;; Use VAR's `variable-interactive' property - ;; as an interactive spec for prompting. - (call-interactively `(lambda (arg) - (interactive ,prop) - arg)) - (read - (read-string prompt nil - 'set-variable-value-history))))) - (list var val current-prefix-arg))) + (minibuffer-help-form '(describe-variable var)) + (prop (get var 'variable-interactive)) + (prompt (format "Set %s%s to value: " var + (cond ((local-variable-p var) + " (buffer-local)") + ((or current-prefix-arg + (local-variable-if-set-p var)) + " buffer-locally") + (t " globally")))) + (val (if prop + ;; Use VAR's `variable-interactive' property + ;; as an interactive spec for prompting. + (call-interactively `(lambda (arg) + (interactive ,prop) + arg)) + (read + (read-string prompt nil + 'set-variable-value-history))))) + (list var val current-prefix-arg))) (and (custom-variable-p var) (not (get var 'custom-type))