Show
Ignore:
Timestamp:
2005年10月02日 09時47分43秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/custom.el

    r3863 r3894  
    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.