From 82aeaf16061e5c79b5d936ae8af33783b572a40f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 20 Jun 2019 00:11:42 +0200 Subject: [PATCH] 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 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 -- 2.39.2