andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(custom-theme-set-faces): Undo previous change.

Browse source
This commit is contained in:
Richard M. Stallman 2007-09-17 02:55:37 +00:00
parent 01d2eac830
commit 578b4e9dee
2 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2007-09-17 Richard Stallman <rms@gnu.org>
* cus-face.el (custom-theme-set-faces): Undo previous change.
* faces.el (face-spec-set): When FRAME nil, look up each frame in SPEC.
2007-09-17 Glenn Morris <rgm@gnu.org>
* textmodes/tex-mode.el (tex-region): Simplify previous change,

21
lisp/cus-face.el
View file

@ -342,17 +342,16 @@ FACE's list property `theme-face' \(using `custom-push-theme')."
(unless (facep face)
(make-empty-face face))
(put face 'face-comment comment)
(dolist (frame (frame-list))
(face-spec-set face spec frame)))
(setq args (cdr args)))
;; Old format, a plist of FACE SPEC pairs.
(let ((face (nth 0 args))
(spec (nth 1 args)))
(if (get face 'face-alias)
(setq face (get face 'face-alias)))
(put face 'saved-face spec)
(custom-push-theme 'theme-face face theme 'set spec))
(setq args (cdr (cdr args))))))))
(face-spec-set face spec nil))
(setq args (cdr args)))
;; Old format, a plist of FACE SPEC pairs.
(let ((face (nth 0 args))
(spec (nth 1 args)))
(if (get face 'face-alias)
(setq face (get face 'face-alias)))
(put face 'saved-face spec)
(custom-push-theme 'theme-face face theme 'set spec))
(setq args (cdr (cdr args))))))))
;; XEmacs compability function. In XEmacs, when you reset a Custom
;; Theme, you have to specify the theme to reset it to. We just apply