(cua--update-indications): Fix last change.

2004-05-03 13:39:24 +00:00
parent d83e1f9d7d
commit 6aa06cd8d2
1 changed files with 1 additions and 1 deletions
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1039,7 +1039,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
 	(set-cursor-color color))
    (if (and type
 	     (symbolp type)
-	     (not (eq type (frame-parameter nil 'cursor-type))))
+	     (not (eq type default-cursor-type)))
 	(setq default-cursor-type type))))