Question

cl-flet目前的缩进对我来说真的很难看。例如，见：

(defun foo (lst)
  (cl-flet ((unusually-long-bar (x)
                                (1+ x)
                                (1+ x)
                                (1+ x)))
    (mapcar #'unusually-long-bar lst)))

我想将它设置为更合理的东西，例如：

(defun foo (lst)
  (cl-flet ((unusually-long-bar (x)
              (1+ x)
              (1+ x)
              (1+ x)))
    (mapcar #'unusually-long-bar lst)))

我该怎么做？

Answer 1

以下内容应该有效：

(setq lisp-indent-function 'common-lisp-indent-function)
(eval-after-load "cl-indent"
  '(progn

    (put 'cl-flet 'common-lisp-indent-function 
     (get 'flet 'common-lisp-indent-function))

    ))

Answer 2

作为对Sabof的回答的补充，这里有一个片段，它将所有Common Lisp符号的缩进规则复制到它们的cl-前缀Emacs等价物中，当后者存在时：

(load-library "cl-indent") ; defines the common-lisp-indent-function properties
(cl-loop for symbol being the symbols
         for cl-indent-rule = (get symbol 'common-lisp-indent-function)
         for elisp-equivalent = (intern-soft (concat "cl-" (symbol-name symbol)))
         when (and cl-indent-rule elisp-equivalent (fboundp elisp-equivalent))
         do (put elisp-equivalent 'common-lisp-indent-function cl-indent-rule))

Emacs适当的cl-flet缩进？

2 个答案: