# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1083365697 0
# Node ID d7007197f0577b05b8960b63a76f8b750c65599b
# Parent  b9ef74fa21bf1fb9019a279458b3d615a4036f67
Change cursor-type block to hollow.

diff -r b9ef74fa21bf -r d7007197f057 lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Fri Apr 30 22:53:40 2004 +0000
+++ b/lisp/emulation/cua-base.el	Fri Apr 30 22:54:57 2004 +0000
@@ -416,7 +416,7 @@
 Default is to load cursor color from initial or default frame parameters.
 
 If the value is a COLOR name, then only the `cursor-color' attribute will be
-affected.  If the value is a cursor TYPE (one of: box, block, bar, or hbar),
+affected.  If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),
 then only the `cursor-type' property will be affected.  If the value is
 a cons (TYPE . COLOR), then both properties are affected."
   :initialize 'custom-initialize-default
@@ -426,13 +426,13 @@
 		  (const :tag "Filled box" box)
 		  (const :tag "Vertical bar" bar)
 		  (const :tag "Horisontal bar" hbar)
-		  (const :tag "Hollow box" block))
+		  (const :tag "Hollow box" hollow))
 	  (cons :tag "Color and Type"
 		(choice :tag "Type"
 			(const :tag "Filled box" box)
 			(const :tag "Vertical bar" bar)
 			(const :tag "Horisontal bar" hbar)
-			(const :tag "Hollow box" block))
+			(const :tag "Hollow box" hollow))
 		(color :tag "Color")))
   :group 'cua)
 
@@ -441,7 +441,7 @@
 Only used when `cua-enable-cursor-indications' is non-nil.
 
 If the value is a COLOR name, then only the `cursor-color' attribute will be
-affected.  If the value is a cursor TYPE (one of: box, block, bar, or hbar),
+affected.  If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),
 then only the `cursor-type' property will be affected.  If the value is
 a cons (TYPE . COLOR), then both properties are affected."
   :type '(choice
@@ -450,13 +450,13 @@
 		  (const :tag "Filled box" box)
 		  (const :tag "Vertical bar" bar)
 		  (const :tag "Horisontal bar" hbar)
-		  (const :tag "Hollow box" block))
+		  (const :tag "Hollow box" hollow))
 	  (cons :tag "Color and Type"
 		(choice :tag "Type"
 			(const :tag "Filled box" box)
 			(const :tag "Vertical bar" bar)
 			(const :tag "Horisontal bar" hbar)
-			(const :tag "Hollow box" block))
+			(const :tag "Hollow box" hollow))
 		(color :tag "Color")))
   :group 'cua)
 
@@ -466,7 +466,7 @@
 Only used when `cua-enable-cursor-indications' is non-nil.
 
 If the value is a COLOR name, then only the `cursor-color' attribute will be
-affected.  If the value is a cursor TYPE (one of: box, block, bar, or hbar),
+affected.  If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),
 then only the `cursor-type' property will be affected.  If the value is
 a cons (TYPE . COLOR), then both properties are affected."
   :type '(choice
@@ -475,13 +475,13 @@
 		  (const :tag "Filled box" box)
 		  (const :tag "Vertical bar" bar)
 		  (const :tag "Horisontal bar" hbar)
-		  (const :tag "Hollow box" block))
+		  (const :tag "Hollow box" hollow))
 	  (cons :tag "Color and Type"
 		(choice :tag "Type"
 			(const :tag "Filled box" box)
 			(const :tag "Vertical bar" bar)
 			(const :tag "Horisontal bar" hbar)
-			(const :tag "Hollow box" block))
+			(const :tag "Hollow box" hollow))
 		(color :tag "Color")))
   :group 'cua)
 
@@ -491,7 +491,7 @@
 Only used when `cua-enable-cursor-indications' is non-nil.
 
 If the value is a COLOR name, then only the `cursor-color' attribute will be
-affected.  If the value is a cursor TYPE (one of: box, block, bar, or hbar),
+affected.  If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),
 then only the `cursor-type' property will be affected.  If the value is
 a cons (TYPE . COLOR), then both properties are affected."
   :type '(choice
@@ -500,13 +500,13 @@
 		  (const :tag "Filled box" box)
 		  (const :tag "Vertical bar" bar)
 		  (const :tag "Horisontal bar" hbar)
-		  (const :tag "Hollow box" block))
+		  (const :tag "Hollow box" hollow))
 	  (cons :tag "Color and Type"
 		(choice :tag "Type"
 			(const :tag "Filled box" box)
 			(const :tag "Vertical bar" bar)
 			(const :tag "Horisontal bar" hbar)
-			(const :tag "Hollow box" block))
+			(const :tag "Hollow box" hollow))
 		(color :tag "Color")))
   :group 'cua)