bug#24870: 26.0.50; parse-partial-sexp ignores comment-end

[npostavs@users.sourceforge.net]

[-- Attachment #1: Type: text/plain, Size: 288 bytes --]

tags 24870 = confirmed
merge 24870 25063
quit

This is the same as your report in 25063, as you noted there, the
comment starter is being counted as a list opener (although the comment
closer is not being recognized as a list closer).

Here's a recipe that doesn't require haskell-mode:


[-- Attachment #2: bug reproducer --]
[-- Type: text/plain, Size: 499 bytes --]

(defconst 24870-syntax-table
  (let ((table (make-syntax-table)))
    (modify-syntax-entry ?\{  "(}1nb" table)
    (modify-syntax-entry ?\}  "){4nb" table)
    (modify-syntax-entry ?-  ". 123" table)
    table))

(defun 24870-test ()
  (interactive)
  (with-current-buffer (get-buffer-create "*24870 test*")
    (set-syntax-table 24870-syntax-table)
    (insert "{-C-}\nX")
    (message "pps nesting: %d" (nth 0 (parse-partial-sexp (point-min) (point-max))))
    (display-buffer (current-buffer))))

[-- Attachment #3: Type: text/plain, Size: 65 bytes --]


I have tracked the issue down to scan_sexps_forward in syntax.c