Commit 5e9bab6f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Finternal_copy_lisp_face): Small cleanup; doc fix.

parent f90a5bf5
......@@ -3896,12 +3896,13 @@ Otherwise check for the existence of a global face. */)
DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
Sinternal_copy_lisp_face, 4, 4, 0,
doc: /* Copy face FROM to TO.
If FRAME is t, copy the global face definition of FROM to the
global face definition of TO. Otherwise, copy the frame-local
definition of FROM on FRAME to the frame-local definition of TO
on NEW-FRAME, or FRAME if NEW-FRAME is nil.
If FRAME is t, copy the global face definition of FROM.
Otherwise, copy the frame-local definition of FROM on FRAME.
If NEW-FRAME is a frame, copy that data into the frame-local
definition of TO on NEW-FRAME. If NEW-FRAME is nil.
FRAME controls where the data is copied to.
Value is TO. */)
The value is TO. */)
(from, to, frame, new_frame)
Lisp_Object from, to, frame, new_frame;
{
......@@ -3909,8 +3910,6 @@ Value is TO. */)
CHECK_SYMBOL (from);
CHECK_SYMBOL (to);
if (NILP (new_frame))
new_frame = frame;
if (EQ (frame, Qt))
{
......@@ -3922,6 +3921,8 @@ Value is TO. */)
else
{
/* Copy frame-local definition of FROM. */
if (NILP (new_frame))
new_frame = frame;
CHECK_LIVE_FRAME (frame);
CHECK_LIVE_FRAME (new_frame);
lface = lface_from_face_name (XFRAME (frame), from, 1);
......
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