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

Diff of /emacs/lisp/custom.el

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

revision 1.63 by rost, Tue Jan 7 18:33:18 2003 UTC revision 1.64 by jpw, Wed Jan 29 21:45:07 2003 UTC
# Line 817  this sets the local binding in that buff Line 817  this sets the local binding in that buff
817    
818  If the default value of SYMBOL is different from the standard value,  If the default value of SYMBOL is different from the standard value,
819  set the `saved-value' property to a list whose car evaluates to the  set the `saved-value' property to a list whose car evaluates to the
820  default value. Otherwise, set it til nil.  default value.  Otherwise, set it to nil.
821    
822  To actually save the value, call `custom-save-all'.  To actually save the value, call `custom-save-all'.
823    
# Line 847  Return non-nil iff the `saved-value' pro Line 847  Return non-nil iff the `saved-value' pro
847  If the default value of SYMBOL is different from the saved value if any,  If the default value of SYMBOL is different from the saved value if any,
848  or else if it is different from the standard value, set the  or else if it is different from the standard value, set the
849  `customized-value' property to a list whose car evaluates to the  `customized-value' property to a list whose car evaluates to the
850  default value. Otherwise, set it til nil.  default value.  Otherwise, set it to nil.
851    
852  Return non-nil iff the `customized-value' property actually changed."  Return non-nil iff the `customized-value' property actually changed."
853    (let* ((get (or (get symbol 'custom-get) 'default-value))    (let* ((get (or (get symbol 'custom-get) 'default-value))
# Line 896  by `custom-make-theme-feature'." Line 896  by `custom-make-theme-feature'."
896                 (custom-make-theme-feature theme))))                 (custom-make-theme-feature theme))))
897    
898  (defun custom-remove-theme (spec-alist theme)  (defun custom-remove-theme (spec-alist theme)
899    "Detelete all elements from SPEC-ALIST whose car is THEME."    "Delete all elements from SPEC-ALIST whose car is THEME."
900    (let ((elt (assoc theme spec-alist)))    (let ((elt (assoc theme spec-alist)))
901      (while elt      (while elt
902          (setq spec-alist (delete elt spec-alist)          (setq spec-alist (delete elt spec-alist)

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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