Show
Ignore:
Timestamp:
2006年05月18日 16時19分18秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/custom.el

    r4058 r4085  
    826826        (if (null old) 
    827827            (if (and (eq prop 'theme-value) 
    828                      (boundp symbol) 
    829                      (or (null (get symbol 'standard-value)) 
    830                          (not (equal (eval (car (get symbol 'standard-value))) 
    831                                      (symbol-value symbol))))) 
    832                 (setq old (list (list 'changed (symbol-value symbol)))) 
     828                     (boundp symbol)) 
     829                (let ((sv (get symbol 'standard-value))) 
     830                  (when (and (null sv) (custom-variable-p symbol)) 
     831                    (custom-load-symbol symbol) 
     832                    (setq sv (get symbol 'standard-value))) 
     833                  (if (or (null sv) 
     834                          (not (equal (eval (car (get symbol 'standard-value))) 
     835                                      (symbol-value symbol)))) 
     836                      (setq old (list (list 'changed (symbol-value symbol)))))) 
    833837              (if (and (facep symbol) 
    834838                       (not (face-spec-match-p symbol (get symbol 'face-defface-spec))))