Remove XEmacs compat code from viper-macs.el

* lisp/emulation/viper-macs.el (viper-char-array-to-macro):
Remove XEmacs compat code.

diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 37ab81d78efdf82d18c103a54fe13269744f3d1b..1a7f70103db3ad55520ed1cc9e633702fef1a54d 100644 (file)
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -815,12 +815,7 @@ mistakes in macro names to be passed to this function is to use
 
 ;; convert strings or arrays of characters to Viper macro form
 (defun viper-char-array-to-macro (array)
-  (let ((vec (vconcat array))
-       macro)
-    (if (featurep 'xemacs)
-       (setq macro (mapcar 'character-to-event vec))
-      (setq macro vec))
-    (vconcat (mapcar 'viper-event-key macro))))
+  (vconcat (mapcar 'viper-event-key (vconcat array))))
 
 ;; For macros bodies and names, goes over MACRO and checks if all members are
 ;; names of keys (actually, it only checks if they are symbols or lists