Function: execute-extended-command--shorter-1
execute-extended-command--shorter-1 is a byte-compiled function
defined in simple.el.gz.
Signature
(execute-extended-command--shorter-1 NAME LENGTH)
Source Code
;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun execute-extended-command--shorter-1 (name length)
(cond
((zerop length) (list ""))
((equal name "") nil)
(t
(nconc (mapcar (lambda (s) (concat (substring name 0 1) s))
(execute-extended-command--shorter-1
(substring name 1) (1- length)))
(when (string-match "\\`\\(-\\)?[^-]*" name)
(execute-extended-command--shorter-1
(substring name (match-end 0)) length))))))