370 |
(setq args (nthcdr (1+ l) args) |
(setq args (nthcdr (1+ l) args) |
371 |
posns (nthcdr (1+ l) posns)))) |
posns (nthcdr (1+ l) posns)))) |
372 |
(assert (= (length args) (length posns))) |
(assert (= (length args) (length posns))) |
373 |
(when (and args (eq (char-syntax (char-before end)) ? )) |
(when (and args (eq (char-syntax (char-before end)) ? ) |
374 |
|
(not (eq (char-before (1- end)) ?\\))) |
375 |
(nconc args (list "")) |
(nconc args (list "")) |
376 |
(nconc posns (list (point)))) |
(nconc posns (list (point)))) |
377 |
(cons (mapcar |
(cons (mapcar |