和1楼的方法一样，但对乱七八糟的不行。

(defun cn (x) (let (y) (if (\<= (length x) 1) (list x) (progn (setq
                                   first (substring x 0 1)) (setq y (substring x 1 (length x))) (setq z (cn
                                                                     y)) (list z (list first) (mapcar (lambda (e) (append (list first) e))
                                                                     z))))))


【 在 cppbuilder 的大作中提到: 】
: https://www.emacswiki.org/emacs/ReformatBuffer
:
--
FROM 117.147.23.*