[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el,v

[Michael Kifer]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Kifer <kifer>   06/08/25 16:06:58

Index: emulation/viper-ex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-ex.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- emulation/viper-ex.el       6 Feb 2006 11:37:05 -0000       1.57
+++ emulation/viper-ex.el       25 Aug 2006 16:06:57 -0000      1.58
@@ -208,12 +208,12 @@
 
 ;; If this is a one-letter magic command, splice in args.
 (defun ex-splice-args-in-1-letr-cmd (key list)
-  (let ((onelet (ex-cmd-is-one-letter (assoc (substring key 0 1) list))))
-    (if onelet
+  (let ((oneletter (ex-cmd-is-one-letter (assoc (substring key 0 1) list))))
+    (if oneletter
        (list key
-             (append (cadr onelet)
+             (append (cadr oneletter)
                      (if (< 1 (length key)) (list (substring key 1))))
-             (caddr onelet)))
+             (car (cdr (cdr oneletter))) ))
        ))