Skip to content

Fix puni-forward-sexp and puni-backward-sexp in indented comment blocks #76

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
djr7C4 wants to merge 4 commits into
base: master
Choose a base branch
from
Open

Fix puni-forward-sexp and puni-backward-sexp in indented comment blocks #76

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
4b9c9ee
Fix puni-forward-sexp and puni-backward-sexp in indented comment blocks
djr7C4 Apr 10, 2025
daeeff6
Don't test if blanks were skipped
djr7C4 Apr 10, 2025
c402d7b
Bind parse-sexp-ignore-comments to nil to allow movement in comments …
djr7C4 Apr 10, 2025
082748c
Fix the code for the case when there isn't a comment on the line afte…
djr7C4 Apr 10, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 14 additions & 4 deletions puni.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -919,13 +919,23 @@ hit the ending quote), return nil.

Notice that a point inside the (multichar) quote is not
considered as in the comment."
(puni--strict-primitive-forward-sexp-in-thing #'puni--in-comment-p
"comment"))
;; Binding `parse-sexp-ignore-comments' is necessary because it is
;; buffer-locally set to t in prog-mode.el.
(let ((parse-sexp-ignore-comments nil))
(puni--strict-primitive-forward-sexp-in-thing (lambda ()
(save-excursion
(skip-syntax-forward "-")
(puni--in-comment-p)))
"comment")))

(defun puni-strict-backward-sexp-in-comment ()
"Backward version of `puni-strict-forward-sexp-in-comment'."
(puni--strict-primitive-backward-sexp-in-thing #'puni--in-comment-p
"comment"))
(let ((parse-sexp-ignore-comments nil))
(puni--strict-primitive-backward-sexp-in-thing (lambda ()
(save-excursion
(skip-syntax-forward "-")
(puni--in-comment-p)))
"comment")))

;;;;; Indent

Expand Down
Loading