/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.734 by rms, Fri Jun 24 21:11:58 2005 UTC revision 1.735 by lektu, Wed Jun 29 23:48:58 2005 UTC
# Line 4538  With a prefix argument, set VARIABLE to Line 4538  With a prefix argument, set VARIABLE to
4538                        (read-variable "Set variable: ")))                        (read-variable "Set variable: ")))
4539            (minibuffer-help-form '(describe-variable var))            (minibuffer-help-form '(describe-variable var))
4540            (prop (get var 'variable-interactive))            (prop (get var 'variable-interactive))
4541            (prompt (format "Set %s%s to value: " var            (obsolete (car (get var 'byte-obsolete-variable)))
4542              (prompt (format "Set %s %s to value: " var
4543                            (cond ((local-variable-p var)                            (cond ((local-variable-p var)
4544                                   " (buffer-local)")                                   "(buffer-local)")
4545                                  ((or current-prefix-arg                                  ((or current-prefix-arg
4546                                       (local-variable-if-set-p var))                                       (local-variable-if-set-p var))
4547                                   " buffer-locally")                                   "buffer-locally")
4548                                  (t " globally"))))                                  (t "globally"))))
4549            (val (if prop            (val (progn
4550                     ;; Use VAR's `variable-interactive' property                   (when obsolete
4551                     ;; as an interactive spec for prompting.                     (message (concat "`%S' is obsolete; "
4552                     (call-interactively `(lambda (arg)                                      (if (symbolp obsolete) "use `%S' instead" "%s"))
4553                                            (interactive ,prop)                              var obsolete)
4554                                            arg))                     (sit-for 3))
4555                   (read                   (if prop
4556                    (read-string prompt nil                       ;; Use VAR's `variable-interactive' property
4557                                 'set-variable-value-history)))))                       ;; as an interactive spec for prompting.
4558                         (call-interactively `(lambda (arg)
4559                                                (interactive ,prop)
4560                                                arg))
4561                       (read
4562                        (read-string prompt nil
4563                                     'set-variable-value-history))))))
4564       (list var val current-prefix-arg)))       (list var val current-prefix-arg)))
4565    
4566    (and (custom-variable-p variable)    (and (custom-variable-p variable)

Legend:
Removed from v.1.734  
changed lines
  Added in v.1.735

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26