amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

maint: Clean-up .dir-locals.el a bit.

Browse source 
* .dir-locals.el (scheme-mode) <lisp-fill-paragraphs-as-doc-string>: Set new
variable to nil. Delete old fill-paragraph-function eval block.

Fixes: <https://bugs.gnu.org/79459>
Change-Id: I3cff48fe12f1662062d1a9342377d8f41a1ec550
This commit is contained in:
Maxim Cournoyer 2025-07-18 11:15:28 +09:00
parent 10482f731e
commit 54b5356488
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

24
.dir-locals.el
View file

@ -98,27 +98,9 @@
((indent-tabs-mode . nil) ((indent-tabs-mode . nil)
;; Emacs 28 changed the behavior of 'lisp-fill-paragraph', which causes the ;; Emacs 28 changed the behavior of 'lisp-fill-paragraph', which causes the
;; first line of package descriptions to extrude past 'fill-column', and ;; first line of package descriptions to extrude past 'fill-column'. The
;; somehow that is deemed more correct upstream (see: ;; following variable reverts its behavior to the previous one.
;; https://issues.guix.gnu.org/56197). (lisp-fill-paragraphs-as-doc-string nil)
(eval . (progn
(require 'lisp-mode)
(defun emacs27-lisp-fill-paragraph (&optional justify)
(interactive "P")
(or (fill-comment-paragraph justify)
(let ((paragraph-start
(concat paragraph-start
"\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
(paragraph-separate
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
(fill-column (if (and (integerp emacs-lisp-docstring-fill-column)
(derived-mode-p 'emacs-lisp-mode))
emacs-lisp-docstring-fill-column
fill-column)))
(fill-paragraph justify))
;; Never return nil.
t))
(setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph)))
;; This notably allows '(' in Paredit to not insert a space when the ;; This notably allows '(' in Paredit to not insert a space when the
;; preceding symbol is one of these. ;; preceding symbol is one of these.