[Emacs-diffs] Changes to emacs/lisp/emulation/viper-init.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/11/09 05:20:59

Index: emulation/viper-init.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-init.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- emulation/viper-init.el     21 Oct 2007 17:22:03 -0000      1.45
+++ emulation/viper-init.el     9 Nov 2007 05:20:24 -0000       1.46
@@ -49,10 +49,6 @@
   (interactive)
   (message "Viper version is %s" viper-version))
 
-;; Is it XEmacs?
-(defconst viper-xemacs-p (featurep 'xemacs))
-;; Is it Emacs?
-(defconst viper-emacs-p (not viper-xemacs-p))
 ;; Tell whether we are running as a window application or on a TTY
 
 ;; This is used to avoid compilation warnings. When emacs/xemacs forms can
@@ -116,8 +112,8 @@
   (cond ((viper-window-display-p))
        (viper-force-faces)
        ((viper-color-display-p))
-       (viper-emacs-p (memq (viper-device-type) '(pc)))
-       (viper-xemacs-p (memq (viper-device-type) '(tty pc)))))
+       ((featurep 'emacs) (memq (viper-device-type) '(pc)))
+       ((featurep 'xemacs) (memq (viper-device-type) '(tty pc)))))
 
 
 ;;; Macros
@@ -356,9 +352,9 @@
                   "")))))
 
 (defun viper-inactivate-input-method ()
-  (cond ((and viper-emacs-p (fboundp 'inactivate-input-method))
+  (cond ((and (featurep 'emacs) (fboundp 'inactivate-input-method))
         (inactivate-input-method))
-       ((and viper-xemacs-p (boundp 'current-input-method))
+       ((and (featurep 'xemacs) (boundp 'current-input-method))
         ;; XEmacs had broken quil-mode for some time, so we are working around
         ;; it here
         (setq quail-mode nil)
@@ -370,7 +366,7 @@
         (force-mode-line-update))
        ))
 (defun viper-activate-input-method ()
-  (cond ((and viper-emacs-p (fboundp 'activate-input-method))
+  (cond ((and (featurep 'emacs) (fboundp 'activate-input-method))
         (activate-input-method default-input-method))
        ((featurep 'xemacs)
         (if (fboundp 'quail-mode) (quail-mode 1)))))
@@ -475,7 +471,7 @@
   :group 'viper)
 (defcustom viper-use-replace-region-delimiters
   (or (not (viper-has-face-support-p))
-      (and viper-xemacs-p (eq (viper-device-type) 'tty)))
+      (and (featurep 'xemacs) (eq (viper-device-type) 'tty)))
   "*If non-nil, Viper will always use `viper-replace-region-end-delimiter' and
 `viper-replace-region-start-delimiter' to delimit replacement regions, even on
 color displays.  By default, the delimiters are used only on TTYs."
@@ -1018,13 +1014,13 @@
 
 (defun viper-restore-cursor-type ()
   (condition-case nil
-      (if viper-xemacs-p
+      (if (featurep 'xemacs)
          (set (make-local-variable 'bar-cursor) nil)
        (setq cursor-type default-cursor-type))
     (error nil)))
 
 (defun viper-set-insert-cursor-type ()
-  (if viper-xemacs-p
+  (if (featurep 'xemacs)
       (set (make-local-variable 'bar-cursor) 2)
     (setq cursor-type '(bar . 2))))