From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 19 Jun 2019 22:11:42 +0000 (+0200)
Subject: Remove XEmacs compat code from viper-macs.el
X-Git-Tag: emacs-27.0.90~2363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82aeaf16061e5c79b5d936ae8af33783b572a40f;p=emacs.git

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 37ab81d78ef..1a7f70103db 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