/[emacs]/emacs/lisp/cus-face.el
ViewVC logotype

Diff of /emacs/lisp/cus-face.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by rms, Sat Jun 25 14:12:45 2005 UTC revision 1.38 by teirllm, Mon Jul 4 01:44:38 2005 UTC
# Line 320  FACE's list property `theme-face' \(usin Line 320  FACE's list property `theme-face' \(usin
320                    (spec (nth 1 entry))                    (spec (nth 1 entry))
321                    (now (nth 2 entry))                    (now (nth 2 entry))
322                    (comment (nth 3 entry)))                    (comment (nth 3 entry)))
323                  ;; If FACE is actually an alias, customize the face it
324                  ;; is aliased to.
325                  (if (get face 'face-alias)
326                      (setq face (get face 'face-alias)))
327                (put face 'saved-face spec)                (put face 'saved-face spec)
328                (put face 'saved-face-comment comment)                (put face 'saved-face-comment comment)
329                (custom-push-theme 'theme-face face theme 'set spec)                (custom-push-theme 'theme-face face theme 'set spec)
# Line 334  FACE's list property `theme-face' \(usin Line 338  FACE's list property `theme-face' \(usin
338          ;; Old format, a plist of FACE SPEC pairs.          ;; Old format, a plist of FACE SPEC pairs.
339          (let ((face (nth 0 args))          (let ((face (nth 0 args))
340                (spec (nth 1 args)))                (spec (nth 1 args)))
341              (if (get face 'face-alias)
342                      (setq face (get face 'face-alias)))
343            (put face 'saved-face spec)            (put face 'saved-face spec)
344            (custom-push-theme 'theme-face face theme 'set spec))            (custom-push-theme 'theme-face face theme 'set spec))
345          (setq args (cdr (cdr args))))))))          (setq args (cdr (cdr args))))))))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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