Skip to content

Instantly share code, notes, and snippets.

@tkurtbond

tkurtbond/indent-cl-symbols.el

Created February 6, 2023 23:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tkurtbond/4d581980fb3362323d89db807d7a83a9 to your computer and use it in GitHub Desktop.
Save tkurtbond/4d581980fb3362323d89db807d7a83a9 to your computer and use it in GitHub Desktop.
Download ZIP
Make all the cl-* symbols indent properly in emacs lisp
Raw
indent-cl-symbols.el
(load-library "cl-indent") ; defines the common-lisp-indent-function properties
(setq lisp-indent-function 'common-lisp-indent-function)
(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))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment