Re: master c4d34d2: CC Mode: Enhance C++ Mode raw strings to multi-line strings for any language

[Alan Mackenzie]

Hello, Lars.

On Fri, Aug 13, 2021 at 16:20:52 +0200, Lars Ingebrigtsen wrote:
> acm@muc.de (Alan Mackenzie) writes:

> > +(defun c-ml-string-opener-around-point ()
> > +  ;; If point is inside an ml string opener, return a dotted list of the 
> > start
> > +  ;; and end of that opener, and the position of its double-quote.  That 
> > list

> I'm not quite sure that it's this patch, but the some electric tests
> started failing today with the following backtrace:

Yes, sorry, it's that patch indeed.  It's a rather serious bug which
might have left C Mode unusable.  I'll fix it right now.

> Test 
> electric-pair-electric-quote-replace-double-escaped-close-at-point-12-in-c-mode-in-strings
>  backtrace:
>   c-ml-string-opener-at-or-around-point(1)
>   c-before-change-check-unbalanced-strings(12 12)
>   #f(compiled-function (fn) #<bytecode 0x1aaf1ff2c636a263>)(c-before-c
>   mapc(#f(compiled-function (fn) #<bytecode 0x1aaf1ff2c636a263>) (c-ex
>   c-before-change(12 12)
>   self-insert-command(1 34)
>   funcall-interactively(self-insert-command 1 34)
>   call-interactively(self-insert-command)
>   (closure ((vals) (syms) (temp-buffer . #<killed buffer>) (doc-string
>   funcall((closure ((vals) (syms) (temp-buffer . #<killed buffer>) (do
>   (let ((electric-quote-replace-double 't) (electric-quote-comment 't)
>   eval((let ((electric-quote-replace-double 't) (electric-quote-commen
>   (let* ((syms (mapcar #'car bindings)) (vals (mapcar #'cdr bindings))
>   (progn (let* ((syms (mapcar #'car bindings)) (vals (mapcar #'cdr bin
>   (let ((last-command-event char) (transient-mark-mode 'lambda)) (goto
>   (closure ((temp-buffer . #<killed buffer>) (doc-string . "Electricit
>   funcall((closure ((temp-buffer . #<killed buffer>) (doc-string . "El
>   (unwind-protect (funcall fn) (electric-pair-mode saved-electric) (el
>   (let ((saved-electric (if electric-pair-mode 1 -1)) (saved-layout (i
>   call-with-saved-electric-modes((closure ((temp-buffer . #<killed buf
>   (progn (funcall mode) (insert fixture) (call-with-saved-electric-mod
>   (unwind-protect (progn (funcall mode) (insert fixture) (call-with-sa
>   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
>   (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
>   electric-pair-test-for("\"foo \\“foo\\\"" 12 34 "\"foo \\“foo\\”\"" 
>   (closure (t) nil (electric-pair-test-for "\"foo \\“foo\\\"" 12 34 "\
>   ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
>   ert-run-test(#s(ert-test :name electric-pair-electric-quote-replace-
>   ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
>   ert-run-tests((not (or (tag :unstable) (tag :nativecomp))) #f(compil
>   ert-run-tests-batch((not (or (tag :unstable) (tag :nativecomp))))
>   ert-run-tests-batch-and-exit((not (or (tag :unstable) (tag :nativeco
>   eval((ert-run-tests-batch-and-exit '(not (or (tag :unstable) (tag :n
>   command-line-1(("-L" ":." "-L" "./../../elpa/packages/url-http-ntlm/
>   command-line()
>   normal-top-level()
> Test 
> electric-pair-electric-quote-replace-double-escaped-close-at-point-12-in-c-mode-in-strings
>  condition:
>     (wrong-type-argument number-or-marker-p nil)


> -- 
> (domestic pets only, the antidote for overdose, milk.)
>    bloggy blog: http://lars.ingebrigtsen.no

-- 
Alan Mackenzie (Nuremberg, Germany).