Show
Ignore:
Timestamp:
09/09/06 16:30:10 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/emulation/viper-ex.el

    r4037 r4161  
    209209;; If this is a one-letter magic command, splice in args. 
    210210(defun ex-splice-args-in-1-letr-cmd (key list) 
    211   (let ((onelet (ex-cmd-is-one-letter (assoc (substring key 0 1) list)))) 
    212     (if onelet 
     211  (let ((oneletter (ex-cmd-is-one-letter (assoc (substring key 0 1) list)))) 
     212    (if oneletter 
    213213        (list key 
    214               (append (cadr onelet) 
     214              (append (cadr oneletter) 
    215215                      (if (< 1 (length key)) (list (substring key 1)))) 
    216               (caddr onelet))) 
     216              (car (cdr (cdr oneletter))) )) 
    217217        )) 
    218218