Re: [elpa] externals/literate-scratch c22a15e86a: * literate-scratch: Import version 1.0

[Stefan Monnier <monnier@iro.umontreal.ca>]

Hi Sean,

> +(defun literate-scratch--extend (start end)
> +  (save-excursion
> +    (let ((res1
> +	   (and (goto-char start)
> +		(not (looking-at paragraph-separate))
> +		(and-let* ((new (car (bounds-of-thing-at-point 'paragraph))))
> +		  (and (< new start)
> +		       (setq start new)))))
> +	  (res2
> +	   (and (goto-char end)
> +		(not (looking-at paragraph-separate))
> +		(and-let* ((new (cdr (bounds-of-thing-at-point 'paragraph))))
> +		  (and (> new end)
> +		       (setq end new))))))
> +      (and (or res1 res2)
> +	   (cons start end)))))

I think you can extend a lot less.  Or even not at all.  Just look at
the previous line:

- if it's empty, you're at the beginning of a paragraph and you set the
  `syntax-table` property of the current line's first char according to
  whether it's a ;([# or something else.

- If the previous line is not empty, just copy the `syntax-table`
  property you find on the first char of the previous line.


        Stefan