diff options
| author | Lars Ingebrigtsen | 2019-06-20 00:11:42 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-20 12:51:38 +0200 |
| commit | 82aeaf16061e5c79b5d936ae8af33783b572a40f (patch) | |
| tree | 3a25115bc9cfd2d18917419c202124f5f5eddf28 /lisp/emulation | |
| parent | a4047f9d9817c6b39bff4ce31fb4a1270598cdad (diff) | |
| download | emacs-82aeaf16061e5c79b5d936ae8af33783b572a40f.tar.gz emacs-82aeaf16061e5c79b5d936ae8af33783b572a40f.zip | |
Remove XEmacs compat code from viper-macs.el
* lisp/emulation/viper-macs.el (viper-char-array-to-macro):
Remove XEmacs compat code.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-macs.el | 7 |
1 files changed, 1 insertions, 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 | |||
| 815 | 815 | ||
| 816 | ;; convert strings or arrays of characters to Viper macro form | 816 | ;; convert strings or arrays of characters to Viper macro form |
| 817 | (defun viper-char-array-to-macro (array) | 817 | (defun viper-char-array-to-macro (array) |
| 818 | (let ((vec (vconcat array)) | 818 | (vconcat (mapcar 'viper-event-key (vconcat array)))) |
| 819 | macro) | ||
| 820 | (if (featurep 'xemacs) | ||
| 821 | (setq macro (mapcar 'character-to-event vec)) | ||
| 822 | (setq macro vec)) | ||
| 823 | (vconcat (mapcar 'viper-event-key macro)))) | ||
| 824 | 819 | ||
| 825 | ;; For macros bodies and names, goes over MACRO and checks if all members are | 820 | ;; For macros bodies and names, goes over MACRO and checks if all members are |
| 826 | ;; names of keys (actually, it only checks if they are symbols or lists | 821 | ;; names of keys (actually, it only checks if they are symbols or lists |