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

[Lars Ingebrigtsen]

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:

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