emacs - Emacsの適切なcl-fletインデント?

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の回答に加えてcl-、後者が存在する場合、すべてのCommon Lispシンボルから接頭辞付きの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))