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

[John Paul Wallington]

Index: emacs/lisp/custom.el
diff -c emacs/lisp/custom.el:1.63 emacs/lisp/custom.el:1.64
*** emacs/lisp/custom.el:1.63   Tue Jan  7 13:33:18 2003
--- emacs/lisp/custom.el        Wed Jan 29 16:45:07 2003
***************
*** 817,823 ****
  
  If the default value of SYMBOL is different from the standard value, 
  set the `saved-value' property to a list whose car evaluates to the
! default value. Otherwise, set it til nil.
  
  To actually save the value, call `custom-save-all'.
  
--- 817,823 ----
  
  If the default value of SYMBOL is different from the standard value, 
  set the `saved-value' property to a list whose car evaluates to the
! default value.  Otherwise, set it to nil.
  
  To actually save the value, call `custom-save-all'.
  
***************
*** 847,853 ****
  If the default value of SYMBOL is different from the saved value if any, 
  or else if it is different from the standard value, set the
  `customized-value' property to a list whose car evaluates to the 
! default value. Otherwise, set it til nil.
  
  Return non-nil iff the `customized-value' property actually changed."
    (let* ((get (or (get symbol 'custom-get) 'default-value))
--- 847,853 ----
  If the default value of SYMBOL is different from the saved value if any, 
  or else if it is different from the standard value, set the
  `customized-value' property to a list whose car evaluates to the 
! default value.  Otherwise, set it to nil.
  
  Return non-nil iff the `customized-value' property actually changed."
    (let* ((get (or (get symbol 'custom-get) 'default-value))
***************
*** 896,902 ****
               (custom-make-theme-feature theme))))
  
  (defun custom-remove-theme (spec-alist theme)
!   "Detelete all elements from SPEC-ALIST whose car is THEME."
    (let ((elt (assoc theme spec-alist)))
      (while elt
        (setq spec-alist (delete elt spec-alist)
--- 896,902 ----
               (custom-make-theme-feature theme))))
  
  (defun custom-remove-theme (spec-alist theme)
!   "Delete all elements from SPEC-ALIST whose car is THEME."
    (let ((elt (assoc theme spec-alist)))
      (while elt
        (setq spec-alist (delete elt spec-alist)