mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 13:11:14 -08:00
Code Issues Projects Releases Wiki Activity

(copy-face): Doc fix.

Browse source
This commit is contained in:
Richard M. Stallman 1994-02-08 18:22:09 +00:00
parent a7a0dbf52b
commit 2f2ddd1e4a
1 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/faces.el
View file

@ -293,25 +293,31 @@ If the face already exists, it is unmodified."
)))
face)
(defun copy-face (old-face new-name &optional frame new-frame)
"Define a face just like OLD-FACE, with name NEW-NAME.
If NEW-NAME already exists as a face, it is modified to be like OLD-FACE.
If the optional argument FRAME is given, this applies only to that frame.
Otherwise it applies to each frame separately.
(defun copy-face (old-face new-face &optional frame new-frame)
"Define a face just like OLD-FACE, with name NEW-FACE.
If NEW-FACE already exists as a face, it is modified to be like OLD-FACE.
If it doesn't already exist, it is created.
If the optional argument FRAME is given as a frame,
NEW-FACE is changed on FRAME only.
If FRAME is t, the frame-independent default specification for OLD-FACE
is copied to NEW-FACE.
If FRAME is nil, copying is done for the frame-independent defaults
and for each existing frame.
If the optional fourth argument NEW-FRAME is given,
copy the information from face OLD-FACE on frame FRAME
to face NEW-NAME on frame NEW-FRAME."
to NEW-FACE on frame NEW-FRAME."
(or new-frame (setq new-frame frame))
(setq old-face (internal-get-face old-face frame))
(let* ((inhibit-quit t)
(new-face (or (internal-find-face new-name new-frame)
(make-face new-name))))
(new-face (or (internal-find-face new-face new-frame)
(make-face new-face))))
(if (null frame)
(let ((frames (frame-list)))
(while frames
(copy-face old-face new-name (car frames))
(copy-face old-face new-face (car frames))
(setq frames (cdr frames)))
(copy-face old-face new-name t))
(copy-face old-face new-face t))
(set-face-font new-face (face-font old-face frame) new-frame)
(set-face-foreground new-face (face-foreground old-face frame) new-frame)
(set-face-background new-face (face-background old-face frame) new-frame)