[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el |
Date: |
Sun, 12 May 2002 11:18:50 -0400 |
Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.154 emacs/lisp/cus-edit.el:1.155
*** emacs/lisp/cus-edit.el:1.154 Fri May 3 18:50:08 2002
--- emacs/lisp/cus-edit.el Sun May 12 11:18:50 2002
***************
*** 748,754 ****
(list var val))))
;;;###autoload
! (defun customize-set-value (var val &optional comment)
"Set VARIABLE to VALUE, and return VALUE. VALUE is a Lisp object.
If VARIABLE has a `variable-interactive' property, that is used as if
--- 748,754 ----
(list var val))))
;;;###autoload
! (defun customize-set-value (variable value &optional comment)
"Set VARIABLE to VALUE, and return VALUE. VALUE is a Lisp object.
If VARIABLE has a `variable-interactive' property, that is used as if
***************
*** 763,772 ****
current-prefix-arg))
(cond ((string= comment "")
! (put var 'variable-comment nil))
(comment
! (put var 'variable-comment comment)))
! (set var val))
;;;###autoload
(defun customize-set-variable (variable value &optional comment)
--- 763,772 ----
current-prefix-arg))
(cond ((string= comment "")
! (put variable 'variable-comment nil))
(comment
! (put variable 'variable-comment comment)))
! (set variable value))
;;;###autoload
(defun customize-set-variable (variable value &optional comment)
***************
*** 801,807 ****
value)
;;;###autoload
! (defun customize-save-variable (var value &optional comment)
"Set the default for VARIABLE to VALUE, and save it for future sessions.
Return VALUE.
--- 801,807 ----
value)
;;;###autoload
! (defun customize-save-variable (variable value &optional comment)
"Set the default for VARIABLE to VALUE, and save it for future sessions.
Return VALUE.
***************
*** 821,834 ****
(interactive (custom-prompt-variable "Set and save variable: "
"Set and save value for %s as: "
current-prefix-arg))
! (funcall (or (get var 'custom-set) 'set-default) var value)
! (put var 'saved-value (list (custom-quote value)))
(cond ((string= comment "")
! (put var 'variable-comment nil)
! (put var 'saved-variable-comment nil))
(comment
! (put var 'variable-comment comment)
! (put var 'saved-variable-comment comment)))
(custom-save-all)
value)
--- 821,834 ----
(interactive (custom-prompt-variable "Set and save variable: "
"Set and save value for %s as: "
current-prefix-arg))
! (funcall (or (get variable 'custom-set) 'set-default) variable value)
! (put variable 'saved-value (list (custom-quote value)))
(cond ((string= comment "")
! (put variable 'variable-comment nil)
! (put variable 'saved-variable-comment nil))
(comment
! (put variable 'variable-comment comment)
! (put variable 'saved-variable-comment comment)))
(custom-save-all)
value)