From 820f08e9bf8119999b9f940c69dea8e8f1bf71b2 Mon Sep 17 00:00:00 2001 From: bdunahu Date: Thu, 19 Mar 2026 00:11:31 -0400 Subject: tanelorn: Add emacs-next-alpha-fix * modules/tanelorn/packages/emacs.scm (emacs-next-alpha-fix): New variable. * README: Add emacs-next-alpha-fix. --- .../patches/emacs-fix-scheme-indent-function.patch | 29 ++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 modules/tanelorn/packages/patches/emacs-fix-scheme-indent-function.patch (limited to 'modules/tanelorn/packages/patches/emacs-fix-scheme-indent-function.patch') diff --git a/modules/tanelorn/packages/patches/emacs-fix-scheme-indent-function.patch b/modules/tanelorn/packages/patches/emacs-fix-scheme-indent-function.patch new file mode 100644 index 0000000..4b7904e --- /dev/null +++ b/modules/tanelorn/packages/patches/emacs-fix-scheme-indent-function.patch @@ -0,0 +1,29 @@ +Fix 'scheme-indent-function' to indent s-expressions starting with a keyword +properly, like this: + +(#:foo 1 + #:bar 2) + +instead of like this: + +(#:foo 1 + #:bar 2) + +The fix is made by Mark H Weaver : + + +--- a/lisp/progmodes/scheme.el ++++ b/lisp/progmodes/scheme.el +@@ -494,6 +494,12 @@ indentation." + (> (length function) 3) + (string-match "\\`def" function))) + (lisp-indent-defform state indent-point)) ++ ((and (null method) ++ (> (length function) 1) ++ ;; The '#' in '#:' seems to get lost, not sure why ++ (string-match "\\`:" function)) ++ (let ((lisp-body-indent 1)) ++ (lisp-indent-defform state indent-point))) + ((integerp method) + (lisp-indent-specform method state + indent-point normal-indent)) -- cgit v1.2.3