changeset 55271:d7007197f057

Change cursor-type block to hollow.
author Kim F. Storm <storm@cua.dk>
date Fri, 30 Apr 2004 22:54:57 +0000
parents b9ef74fa21bf
children ee2b597412c9
files lisp/emulation/cua-base.el
diffstat 1 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- 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)