aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndreas Schwab2003-11-19 13:23:30 +0000
committerAndreas Schwab2003-11-19 13:23:30 +0000
commit7dcd2d16f18fbcc84c3d4e22963e3f75edf4347c (patch)
treee4eb247aaabfe4b10c76bd7274c821f71fa3df18
parent29b3ea63f264a8a324c6fc756e8983273de17d12 (diff)
downloademacs-7dcd2d16f18fbcc84c3d4e22963e3f75edf4347c.tar.gz
emacs-7dcd2d16f18fbcc84c3d4e22963e3f75edf4347c.zip
(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."
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))