comparison lisp/textmodes/fill.el @ 44478:2539a7fea37f

(fill-context-prefix): Match the two prefixes differently to avoid pathological exponential-time case.

44477:5bcb255d9dc5

	    (if ;; If the non-whitespace chars match the first line,
		;; just use it (this subsumes the 2 previous checks).
		;; Used when first line is `/* ...' and second-line is
		;; ` * ...'.
		(save-excursion
		  (goto-char firstline)
		  (looking-at
		   (apply 'concat
			  (mapcar (lambda (c)
				    (if (memq c '(?\t ?\ ))
					;; The number of chars might not
					;; match up if there's a mix of
					;; tabs and spaces.
					"\\([ \t]*\\|.\\)"
				      (regexp-quote (string c))))
				  second-line-prefix))))
		second-line-prefix

	      ;; Use the longest common substring of both prefixes,
	      ;; if there is one.
	      (fill-common-string-prefix first-line-prefix

44478:2539a7fea37f

	    (if ;; If the non-whitespace chars match the first line,
		;; just use it (this subsumes the 2 previous checks).
		;; Used when first line is `/* ...' and second-line is
		;; ` * ...'.
		(string-match
		 (concat "\\`"
			 (mapconcat
			  (lambda (c) (regexp-quote (string c)))
			  (replace-regexp-in-string "[ \t]+" "" first-line-prefix)
			  "?")
			 "?\\'")
		 (replace-regexp-in-string "[ \t]+" "" second-line-prefix))
		second-line-prefix

	      ;; Use the longest common substring of both prefixes,
	      ;; if there is one.
	      (fill-common-string-prefix first-line-prefix