Commit 2f2ddd1e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(copy-face): Doc fix.

parent a7a0dbf5
...@@ -293,25 +293,31 @@ If the face already exists, it is unmodified." ...@@ -293,25 +293,31 @@ If the face already exists, it is unmodified."
))) )))
face) face)
(defun copy-face (old-face new-name &optional frame new-frame) (defun copy-face (old-face new-face &optional frame new-frame)
"Define a face just like OLD-FACE, with name NEW-NAME. "Define a face just like OLD-FACE, with name NEW-FACE.
If NEW-NAME already exists as a face, it is modified to be like OLD-FACE. If NEW-FACE 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. If it doesn't already exist, it is created.
Otherwise it applies to each frame separately.
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, If the optional fourth argument NEW-FRAME is given,
copy the information from face OLD-FACE on frame FRAME 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)) (or new-frame (setq new-frame frame))
(setq old-face (internal-get-face old-face frame)) (setq old-face (internal-get-face old-face frame))
(let* ((inhibit-quit t) (let* ((inhibit-quit t)
(new-face (or (internal-find-face new-name new-frame) (new-face (or (internal-find-face new-face new-frame)
(make-face new-name)))) (make-face new-face))))
(if (null frame) (if (null frame)
(let ((frames (frame-list))) (let ((frames (frame-list)))
(while frames (while frames
(copy-face old-face new-name (car frames)) (copy-face old-face new-face (car frames))
(setq frames (cdr 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-font new-face (face-font old-face frame) new-frame)
(set-face-foreground new-face (face-foreground 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) (set-face-background new-face (face-background old-face frame) new-frame)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment