# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941470063 0
# Node ID 6de035f92990a1b864544d540735b21d24f8fdf1
# Parent  8ec2e5b1bed489aa65a07d75e4e057c0e752dd1b
Many doc fixes.

diff -r 8ec2e5b1bed4 -r 6de035f92990 lisp/frame.el
--- a/lisp/frame.el	Mon Nov 01 15:18:26 1999 +0000
+++ b/lisp/frame.el	Mon Nov 01 15:27:43 1999 +0000
@@ -792,12 +792,12 @@
 ;;; Blinking cursor
 
 (defgroup cursor nil
-  "Cursor on frames."
+  "Displaying text cursors."
   :version "21.1"
   :group 'frames)
 
 (defcustom blink-cursor-delay 0.5
-  "*Seconds of Emacs idle time after which cursor starts to blink."
+  "*Seconds of idle time after which cursor starts to blink."
   :tag "Delay in seconds."
   :type 'number
   :group 'cursor)
@@ -809,12 +809,12 @@
   :group 'cursor)
 
 (defvar blink-cursor-idle-timer nil
-  "Timer started after blink-cursor-delay seconds of Emacs idle time.
-The function blink-cursor-start is called when the timer fires.")
+  "Timer started after `blink-cursor-delay' seconds of Emacs idle time.
+The function `blink-cursor-start' is called when the timer fires.")
 
 (defvar blink-cursor-timer nil
-  "Time started from blink-cursor-start.  This timer calls blink-cursor
-every blink-cursor-interval seconds.")
+  "Timer started from `blink-cursor-start'.
+This timer calls `blink-cursor' every `blink-cursor-interval' seconds.")
 
 (defvar blink-cursor-mode nil
   "Non-nil means blinking cursor is active.")
@@ -846,7 +846,7 @@
 	  (setq blink-cursor-mode t)))))
 
 (defcustom blink-cursor (not (eq system-type 'ms-dos))
-  "*Non-nil means blink-cursor-mode is active."
+  "*Non-nil means blinking cursor mode is active."
   :tag "Blinking cursor"
   :type 'boolean
   :group 'cursor
@@ -855,10 +855,10 @@
 	   (blink-cursor-mode (or value 0))))
 
 (defun blink-cursor-start ()
-  "Timer function called from timer blink-cursor-idle-timer.
-Starts the timer blink-cursor-timer which lets the cursor blink
-if the selected frame has a non-nil `cursor-blinking' frame parameter.
-Arranges to cancel that timer by installing a pre command hook."
+  "Timer function called from the timer `blink-cursor-idle-timer'.
+This starts the timer `blink-cursor-timer', which makes the cursor blink
+if appropriate.  It also arranges to cancel that timer when the next
+command starts, by installing a pre-command hook."
   (when (null blink-cursor-timer)
     (add-hook 'pre-command-hook 'blink-cursor-end)
     (setq blink-cursor-timer
@@ -867,8 +867,9 @@
 
 (defun blink-cursor-end ()
   "Stop cursor blinking.
-Installed as a pre-command hook by blink-cursor-start.  Cancels
-the timer blink-cursor-timer and removes itself from the hook."
+This is installed as a pre-command hook by `blink-cursor-start'.
+When run, it cancels the timer `blink-cursor-timer' and removes 
+itself as a pre-command hook."
   (remove-hook 'pre-command-hook 'blink-cursor-end)
   (internal-show-cursor 0)
   (cancel-timer blink-cursor-timer)
@@ -879,7 +880,7 @@
 ;;; Busy-cursor.
 
 (defcustom busy-cursor t
-  "*Non-nil means show a busy-cursor when running under a window-system."
+  "*Non-nil means show a busy-cursor when running under a window system."
   :tag "Busy-cursor"
   :type 'boolean
   :group 'cursor