[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Pavel Janík]

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)