summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@suse.de>2003-11-19 13:23:30 +0000
committerAndreas Schwab <schwab@suse.de>2003-11-19 13:23:30 +0000
commit7dcd2d16f18fbcc84c3d4e22963e3f75edf4347c (patch)
treee4eb247aaabfe4b10c76bd7274c821f71fa3df18
parent29b3ea63f264a8a324c6fc756e8983273de17d12 (diff)
downloademacs-7dcd2d16f18fbcc84c3d4e22963e3f75edf4347c.tar.gz
(set-variable): Fix indentation.
-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."
(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))