[Emacs-diffs] master 82aeaf1 07/18: Remove XEmacs compat code from viper-macs.el

[Lars Ingebrigtsen]

branch: master
commit 82aeaf16061e5c79b5d936ae8af33783b572a40f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Remove XEmacs compat code from viper-macs.el
    
    * lisp/emulation/viper-macs.el (viper-char-array-to-macro):
    Remove XEmacs compat code.
---
 lisp/emulation/viper-macs.el | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 37ab81d..1a7f701 100644
--- 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