Show
Ignore:
Timestamp:
10/02/05 07:23:38 (3 years ago)
Author:
miyoshi
Message:

Update.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/custom.el

    r3861 r3892  
    650650          (setcar (cdr setting) mode) 
    651651          (setcar (cddr setting) value)) 
    652       (if (and (null old) 
    653                (boundp symbol)) 
    654           (setq old 
    655                 (list 
    656                  (list 'standard 'set 
    657                        (if (eq prop 'theme-value) 
    658                            (symbol-value symbol) 
    659                          (list 
    660                           (append 
    661                            '(t) 
    662                            (custom-face-attributes-get symbol nil)))))))) 
     652      ;; If no custom theme has been applied yet, first save the 
     653      ;; current values to the 'standard theme. 
     654      (if (null old) 
     655          (if (and (eq prop 'theme-value) 
     656                   (boundp symbol)) 
     657              (setq old 
     658                    (list (list 'standard 'set (symbol-value symbol)))) 
     659            (if (facep symbol) 
     660                (setq old (list (list 'standard 'set (list 
     661                  (append '(t) (custom-face-attributes-get symbol nil))))))))) 
    663662      (put symbol prop (cons (list theme mode value) old))) 
    664663    ;; Record, for each theme, all its settings.