comparison lisp/emulation/viper-init.el @ 92383:6eac1e449121

(viper-cond-compile-for-xemacs-or-emacs): Delete macro. Expand all viper-cond-compile-for-xemacs-or-emacs calls to a featurep test. Replace obselete frame-local variables with frame-parameters. (viper-replace-overlay-cursor-color, viper-insert-state-cursor-color) (viper-emacs-state-cursor-color, viper-vi-state-cursor-color): Only call make-variable-frame-local on XEmacs.

92382:df1420681df6

  (interactive)
  (message "Viper version is %s" viper-version))

;; 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
;; generate compile time warnings, we use this macro.
;; In this case, the macro will expand into the form that is appropriate to the
;; compiler at hand.
;; Suggested by rms.
(defmacro viper-cond-compile-for-xemacs-or-emacs (xemacs-form emacs-form)
  (if (featurep 'xemacs)
      xemacs-form emacs-form))


(defsubst viper-device-type ()
  (viper-cond-compile-for-xemacs-or-emacs
   (device-type (selected-device))
   window-system
   ))

(defun viper-color-display-p ()
  (condition-case nil
      (viper-cond-compile-for-xemacs-or-emacs
       (eq (device-class (selected-device)) 'color) ; xemacs form
       (if (fboundp 'display-color-p) ; emacs form
	   (display-color-p)
	 (x-display-color-p))
	)
    (error nil)))

;; in XEmacs: device-type is tty on tty and stream in batch.
(defun viper-window-display-p ()
  (and (viper-device-type) (not (memq (viper-device-type) '(tty stream pc)))))

(defun viper-inactivate-input-method ()
  (cond ((and (featurep 'emacs) (fboundp 'inactivate-input-method))
	 (inactivate-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)
	 (if (featurep 'quail)
	     (quail-delete-overlays))
	 (setq describe-current-input-method-function nil)

  :group 'viper)

;; internal var, used to remember the default cursor color of emacs frames
(defvar viper-vi-state-cursor-color nil)

(if (fboundp 'make-variable-frame-local)
    (dolist (v '(viper-replace-overlay-cursor-color
                 viper-insert-state-cursor-color viper-emacs-state-cursor-color
                 viper-vi-state-cursor-color))
      (make-variable-frame-local v)))

(viper-deflocalvar viper-replace-overlay nil "")
(put 'viper-replace-overlay 'permanent-local t)

(defcustom viper-replace-region-end-delimiter "$"

  "Function to use for prompting the user for a buffer name."
  :type 'symbol
  :group 'viper)

;; XEmacs requires glyphs
(viper-cond-compile-for-xemacs-or-emacs
 (progn ; xemacs
   (or (glyphp viper-replace-region-end-delimiter)
       (setq viper-replace-region-end-delimiter
	     (make-glyph viper-replace-region-end-delimiter)))
   (or (glyphp viper-replace-region-start-delimiter)
       (setq viper-replace-region-start-delimiter
	     (make-glyph viper-replace-region-start-delimiter)))
   )
  nil ; emacs
 )



;; These are local marker that must be initialized to nil and moved with
;; `viper-move-marker-locally'
;;
;; Remember the last position inside the replace region.

92383:6eac1e449121

  (interactive)
  (message "Viper version is %s" viper-version))

;; Tell whether we are running as a window application or on a TTY

(defsubst viper-device-type ()
  (if (featurep 'xemacs)
      (device-type (selected-device))
    window-system))

(defun viper-color-display-p ()
  (condition-case nil
      (if (featurep 'xemacs)
          (eq (device-class (selected-device)) 'color)
        (display-color-p))
    (error nil)))

;; in XEmacs: device-type is tty on tty and stream in batch.
(defun viper-window-display-p ()
  (and (viper-device-type) (not (memq (viper-device-type) '(tty stream pc)))))

(defun viper-inactivate-input-method ()
  (cond ((and (featurep 'emacs) (fboundp 'inactivate-input-method))
	 (inactivate-input-method))
	((and (featurep 'xemacs) (boundp 'current-input-method))
	 ;; XEmacs had broken quail-mode for some time, so we are working around
	 ;; it here
	 (setq quail-mode nil)
	 (if (featurep 'quail)
	     (quail-delete-overlays))
	 (setq describe-current-input-method-function nil)

  :group 'viper)

;; internal var, used to remember the default cursor color of emacs frames
(defvar viper-vi-state-cursor-color nil)

;; Frame-local variables are obsolete from Emacs 22.2 onwards, so we
;; do it by hand with viper-frame-value (qv).
(when (and (featurep 'xemacs)
           (fboundp 'make-variable-frame-local))
  (make-variable-frame-local 'viper-replace-overlay-cursor-color)
  (make-variable-frame-local 'viper-insert-state-cursor-color)
  (make-variable-frame-local 'viper-emacs-state-cursor-color)
  (make-variable-frame-local 'viper-vi-state-cursor-color))

(viper-deflocalvar viper-replace-overlay nil "")
(put 'viper-replace-overlay 'permanent-local t)

(defcustom viper-replace-region-end-delimiter "$"

  "Function to use for prompting the user for a buffer name."
  :type 'symbol
  :group 'viper)

;; XEmacs requires glyphs
(when (featurep 'xemacs)
  (or (glyphp viper-replace-region-end-delimiter)
      (setq viper-replace-region-end-delimiter
            (make-glyph viper-replace-region-end-delimiter)))
  (or (glyphp viper-replace-region-start-delimiter)
      (setq viper-replace-region-start-delimiter
            (make-glyph viper-replace-region-start-delimiter))))

;; These are local marker that must be initialized to nil and moved with
;; `viper-move-marker-locally'
;;
;; Remember the last position inside the replace region.