Commit 0e52cd13 authored by Glenn Morris's avatar Glenn Morris
Browse files

Expand all viper-cond-compile-for-xemacs-or-emacs calls to a featurep test.

parent fe4f1247
...@@ -1022,7 +1022,7 @@ It also can't undo some Viper settings." ...@@ -1022,7 +1022,7 @@ It also can't undo some Viper settings."
(setq global-mode-string (setq global-mode-string
(append '("" viper-mode-string) (cdr global-mode-string)))) (append '("" viper-mode-string) (cdr global-mode-string))))
(viper-cond-compile-for-xemacs-or-emacs (if (featurep 'xemacs)
;; XEmacs ;; XEmacs
(defadvice describe-key (before viper-describe-key-ad protect activate) (defadvice describe-key (before viper-describe-key-ad protect activate)
"Force to read key via `viper-read-key-sequence'." "Force to read key via `viper-read-key-sequence'."
...@@ -1052,9 +1052,9 @@ It also can't undo some Viper settings." ...@@ -1052,9 +1052,9 @@ It also can't undo some Viper settings."
(eventp (aref key 1)) (eventp (aref key 1))
(memq 'down (event-modifiers (aref key 1))))) (memq 'down (event-modifiers (aref key 1)))))
(read-event)))))) (read-event))))))
) ; viper-cond-compile-for-xemacs-or-emacs ) ; (if (featurep 'xemacs)
(viper-cond-compile-for-xemacs-or-emacs (if (featurep 'xemacs)
;; XEmacs ;; XEmacs
(defadvice describe-key-briefly (defadvice describe-key-briefly
(before viper-describe-key-briefly-ad protect activate) (before viper-describe-key-briefly-ad protect activate)
...@@ -1078,7 +1078,7 @@ It also can't undo some Viper settings." ...@@ -1078,7 +1078,7 @@ It also can't undo some Viper settings."
(if current-prefix-arg (if current-prefix-arg
(prefix-numeric-value current-prefix-arg)) (prefix-numeric-value current-prefix-arg))
1)))) 1))))
) ;; viper-cond-compile-for-xemacs-or-emacs ) ; (if (featurep 'xemacs)
(defadvice find-file (before viper-add-suffix-advice activate) (defadvice find-file (before viper-add-suffix-advice activate)
"Use `read-file-name' for reading arguments." "Use `read-file-name' for reading arguments."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment