Changeset 4098 for trunk/lisp/emulation/viper-util.el

Timestamp:

2006年07月01日 08時27分06秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/emulation/viper-util.el (modified) (1 diff)

trunk/lisp/emulation/viper-util.el

@@ -140 +140 @@
-(defsubst viper-get-cursor-color ()
-  (viper-cond-compile-for-xemacs-or-emacs
-;; xemacs
-(color-instance-name (frame-property (selected-frame) 'cursor-color))
+(color-instance-name
+ (frame-property (selected-frame) 'cursor-color)) ; xemacs
-   (cdr (assoc 'cursor-color (frame-parameters))) ; emacs
-   ))