From 9f8ae3fb6c0f81824643180cbc9a53ca2acaa82a Mon Sep 17 00:00:00 2001 From: niceume Date: Sun, 24 Mar 2024 12:29:56 +0900 Subject: [PATCH 3/3] remove unused arguments from scheme-syntax-propertize-sexp-comment --- lisp/progmodes/scheme.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index fa272dd5c5c..fcaeafb4a75 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -409,12 +409,12 @@ scheme-sexp-comment-syntax-table (defun scheme-syntax-propertize (beg end) (goto-char beg) - (scheme-syntax-propertize-sexp-comment (point) end) + (scheme-syntax-propertize-sexp-comment end) (scheme-syntax-propertize-regexp end) (funcall (syntax-propertize-rules ("\\(#\\);" (1 (prog1 "< cn" - (scheme-syntax-propertize-sexp-comment (point) end)))) + (scheme-syntax-propertize-sexp-comment end)))) ("\\(#\\)/" (1 (when (null (nth 8 (save-excursion (syntax-ppss (match-beginning 0))))) @@ -427,7 +427,7 @@ scheme-syntax-propertize ))) (point) end)) -(defun scheme-syntax-propertize-sexp-comment (_ end) +(defun scheme-syntax-propertize-sexp-comment (end) (let ((state (syntax-ppss))) (when (eq 2 (nth 7 state)) ;; It's a sexp-comment. Tell parse-partial-sexp where it ends. -- 2.44.0