procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make sure prog-fill-reindent-defun work for strings too

Browse source 
My previous commit foolishly excluded strings from the
condition, now add them back.

* lisp/progmodes/prog-mode.el (prog-fill-reindent-defun):
Include strings.
This commit is contained in:
Yuan Fu 2025-04-17 16:17:12 -07:00
parent 6702a448c1
commit b75c18f3c6
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/prog-mode.el
View file

@ -154,7 +154,7 @@ or follows point."
;; FIXME: For some reason, the comment-start syntax regexp doesn't
;; work for me. But I kept it around to be safe, and in the hope
;; that if can cover cases where comment-start-skip is unset.
(if (or (nth 4 (syntax-ppss))
(if (or (nth 8 (syntax-ppss))
;; If point is at the beginning of a comment delimiter,
;; syntax-ppss doesn't consider point as being inside a
;; comment.
@ -168,11 +168,11 @@ or follows point."
;; reached EOL or (nth 4 (syntax-ppss)) returns
;; non-nil.
(re-search-forward comment-start-skip (pos-eol) t)
(nth 4 (syntax-ppss))))
(nth 8 (syntax-ppss))))
(save-excursion
(beginning-of-line)
(and (re-search-forward "\\s-*\\s<" (line-end-position) t)
(nth 4 (syntax-ppss)))))
(nth 8 (syntax-ppss)))))
(fill-paragraph argument (region-active-p))
(beginning-of-defun)
(let ((start (point)))