244 |
;; just use it (this subsumes the 2 checks used previously). |
;; just use it (this subsumes the 2 checks used previously). |
245 |
;; Used when first line is `/* ...' and second-line is |
;; Used when first line is `/* ...' and second-line is |
246 |
;; ` * ...'. |
;; ` * ...'. |
247 |
(string-match |
(let ((flp (replace-regexp-in-string |
248 |
(concat "\\`" |
"[ \t]+" "" first-line-prefix))) |
249 |
(mapconcat |
(if (equal flp "") |
250 |
(lambda (c) (regexp-quote (string c))) |
(string-match "\\`[ \t]*\\'" second-line-prefix) |
251 |
(replace-regexp-in-string "[ \t]+" "" first-line-prefix) |
(string-match |
252 |
"?") |
(concat "\\`" |
253 |
"?\\'") |
(mapconcat |
254 |
(replace-regexp-in-string "[ \t]+" "" second-line-prefix)) |
(lambda (c) (regexp-quote (string c))) flp "?") |
255 |
|
"?\\'") |
256 |
|
(replace-regexp-in-string "[ \t]+" "" second-line-prefix)))) |
257 |
second-line-prefix |
second-line-prefix |
258 |
|
|
259 |
;; Use the longest common substring of both prefixes, |
;; Use the longest common substring of both prefixes, |