diff options
Diffstat (limited to 'lisp/emulation/viper-macs.el')
| -rw-r--r-- | lisp/emulation/viper-macs.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el index 94ab8178925..fb60f6a5458 100644 --- a/lisp/emulation/viper-macs.el +++ b/lisp/emulation/viper-macs.el @@ -166,7 +166,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., (if (member key '(?\b ?\d '^? '^H (control h) (control \?) backspace delete)) - (setq key-seq (viper-subseq key-seq 0 (- (length key-seq) 2)))) + (setq key-seq (seq-subseq key-seq 0 (- (length key-seq) 2)))) (setq message (format ":map%s %s" @@ -230,9 +230,9 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., (cond ((member key '(?\b ?\d '^? '^H (control h) (control \?) backspace delete)) - (setq key-seq (viper-subseq key-seq 0 (- (length key-seq) 2)))) + (setq key-seq (cl-subseq key-seq 0 (- (length key-seq) 2)))) ((member key '(tab (control i) ?\t)) - (setq key-seq (viper-subseq key-seq 0 (1- (length key-seq)))) + (setq key-seq (cl-subseq key-seq 0 (1- (length key-seq)))) (setq message (format ":unmap%s %s" @@ -611,7 +611,7 @@ mistakes in macro names to be passed to this function is to use (if (null macro-alist-elt) (setq macro-alist-elt (car next-best-match) - unmatched-suffix (viper-subseq event-seq (cdr next-best-match)))) + unmatched-suffix (cl-subseq event-seq (cdr next-best-match)))) (cond ((null macro-alist-elt)) ((setq macro-body (viper-kbd-buf-definition macro-alist-elt))) @@ -693,7 +693,7 @@ mistakes in macro names to be passed to this function is to use (let ((len1 (length seq1)) (len2 (length seq2))) (if (<= len1 len2) - (equal seq1 (viper-subseq seq2 0 len1))))) + (equal seq1 (cl-subseq seq2 0 len1))))) ;; find the longest common prefix (defun viper-common-seq-prefix (&rest seqs) @@ -757,7 +757,7 @@ mistakes in macro names to be passed to this function is to use (setq macro-def (car lis) def-len (length (car macro-def))) (if (and (>= str-len def-len) - (equal (car macro-def) (viper-subseq str 0 def-len))) + (equal (car macro-def) (cl-subseq str 0 def-len))) (if (or (viper-kbd-buf-definition macro-def) (viper-kbd-mode-definition macro-def) (viper-kbd-global-definition macro-def)) |