Show
Ignore:
Timestamp:
2005年11月26日 08時33分26秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/cus-face.el

    r3939 r3988  
    321321                  (spec (nth 1 entry)) 
    322322                  (now (nth 2 entry)) 
    323                   (comment (nth 3 entry))) 
     323                  (comment (nth 3 entry)) 
     324                  oldspec) 
    324325              ;; If FACE is actually an alias, customize the face it 
    325326              ;; is aliased to. 
    326327              (if (get face 'face-alias) 
    327328                  (setq face (get face 'face-alias))) 
    328               (put face 'saved-face spec) 
    329               (put face 'saved-face-comment comment) 
     329 
     330              (setq oldspec (get face 'theme-face)) 
     331              (when (not (and oldspec (eq 'user (caar oldspec)))) 
     332                (put face 'saved-face spec) 
     333                (put face 'saved-face-comment comment)) 
     334 
    330335              (custom-push-theme 'theme-face face theme 'set spec) 
    331336              (when (or now immediate)