From 2a88f578e9b4d07904c01510fcd17ea9465fd1ab Mon Sep 17 00:00:00 2001 From: niceume Date: Sun, 24 Mar 2024 12:29:56 +0900 Subject: [PATCH] (scheme-syntax-propertize-sexp-comment): Remove unused argument * lisp/progmodes/scheme.el (scheme-syntax-propertize-sexp-comment): Remove first arg, unused. (scheme-syntax-propertize): Adjust calls accordingly. (cherry picked from commit c4e7eec8c096219ddc6b3a981eef03ce421b8877) --- 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 dc46f0fbbb8..8652abeb817 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -409,12 +409,12 @@ See `run-hooks'." (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))))) (put-text-property @@ -425,7 +425,7 @@ See `run-hooks'." nil)))) (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.39.5