# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841610883 0
# Node ID 182b9268dbadf3a758e066ae76be36735027d472
# Parent  53cf5adf7fd1e512ba41ab6b77923c3aac9ea914
Doc fixes.

diff -r 53cf5adf7fd1 -r 182b9268dbad lisp/frame.el
--- a/lisp/frame.el	Sun Sep 01 20:47:10 1996 +0000
+++ b/lisp/frame.el	Sun Sep 01 20:48:03 1996 +0000
@@ -587,7 +587,8 @@
 
 (defun set-default-font (font-name)
   "Set the font of the selected frame to FONT.
-When called interactively, prompt for the name of the font to use."
+When called interactively, prompt for the name of the font to use.
+To get the frame's current default font, use `frame-parameters'."
   (interactive "sFont name: ")
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'font font-name)))
@@ -596,7 +597,8 @@
 
 (defun set-background-color (color-name)
   "Set the background color of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use."
+When called interactively, prompt for the name of the color to use.
+To get the frame's current background color, use `frame-parameters'."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'background-color color-name)))
@@ -604,7 +606,8 @@
 
 (defun set-foreground-color (color-name)
   "Set the foreground color of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use."
+When called interactively, prompt for the name of the color to use.
+To get the frame's current foreground color, use `frame-parameters'."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'foreground-color color-name)))
@@ -612,21 +615,24 @@
 
 (defun set-cursor-color (color-name)
   "Set the text cursor color of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use."
+When called interactively, prompt for the name of the color to use.
+To get the frame's current cursor color, use `frame-parameters'."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'cursor-color color-name))))
 
 (defun set-mouse-color (color-name)
   "Set the color of the mouse pointer of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use."
+When called interactively, prompt for the name of the color to use.
+To get the frame's current mouse color, use `frame-parameters'."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'mouse-color color-name))))
 
 (defun set-border-color (color-name)
   "Set the color of the border of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use."
+When called interactively, prompt for the name of the color to use.
+To get the frame's current border color, use `frame-parameters'."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'border-color color-name))))