/[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.102 by cyd, Tue Sep 6 03:14:46 2005 UTC revision 1.103 by cyd, Mon Sep 12 22:05:17 2005 UTC
# Line 649  See `custom-known-themes' for a list of Line 649  See `custom-known-themes' for a list of
649          (progn          (progn
650            (setcar (cdr setting) mode)            (setcar (cdr setting) mode)
651            (setcar (cddr setting) value))            (setcar (cddr setting) value))
652        (if (and (null old)        ;; If no custom theme has been applied yet, first save the
653                 (boundp symbol))        ;; current values to the 'standard theme.
654            (setq old        (if (null old)
655                  (list            (if (and (eq prop 'theme-value)
656                   (list 'standard 'set                     (boundp symbol))
657                         (if (eq prop 'theme-value)                (setq old
658                             (symbol-value symbol)                      (list (list 'standard 'set (symbol-value symbol))))
659                           (list              (if (facep symbol)
660                            (append                  (setq old (list (list 'standard 'set (list
661                             '(t)                    (append '(t) (custom-face-attributes-get symbol nil)))))))))
                            (custom-face-attributes-get symbol nil))))))))  
662        (put symbol prop (cons (list theme mode value) old)))        (put symbol prop (cons (list theme mode value) old)))
663      ;; Record, for each theme, all its settings.      ;; Record, for each theme, all its settings.
664      (put theme 'theme-settings      (put theme 'theme-settings

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

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