/[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.79 by rms, Thu Feb 10 06:41:26 2005 UTC revision 1.80 by teirllm, Sat Feb 12 17:56:32 2005 UTC
# Line 777  in SYMBOL's list property `theme-value' Line 777  in SYMBOL's list property `theme-value'
777      (while args      (while args
778        (let ((entry (car args)))        (let ((entry (car args)))
779          (if (listp entry)          (if (listp entry)
780              (let* ((symbol (nth 0 entry))              (let* ((symbol (indirect-variable (nth 0 entry)))
781                     (value (nth 1 entry))                     (value (nth 1 entry))
782                     (now (nth 2 entry))                     (now (nth 2 entry))
783                     (requests (nth 3 entry))                     (requests (nth 3 entry))
# Line 809  in SYMBOL's list property `theme-value' Line 809  in SYMBOL's list property `theme-value'
809            (message "Warning: old format `custom-set-variables'")            (message "Warning: old format `custom-set-variables'")
810            (ding)            (ding)
811            (sit-for 2)            (sit-for 2)
812            (let ((symbol (nth 0 args))            (let ((symbol (indirect-variable (nth 0 args)))
813                  (value (nth 1 args)))                  (value (nth 1 args)))
814              (put symbol 'saved-value (list value))              (put symbol 'saved-value (list value))
815              (custom-push-theme 'theme-value symbol theme 'set value))              (custom-push-theme 'theme-value symbol theme 'set value))

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

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