Re: Patch: Syntax and Hard Newlines

[Stefan Monnier]

> *************** (defun longlines-wrap-line ()
> *** 243,248 ****
> --- 245,257 ----
>        (progn (insert-before-markers ?\n)
>             (backward-char 1)
>               (delete-char -1)
> +            (let* ((point (point))
> +                   (state (syntax-ppss point)))
> +              (if (nth 4 state)
> +                  ;; We are in a comment context.
> +                  (add-text-properties point
> +                                       (1+ point)
> +                                       '(syntax-table (14)))))
>             (forward-char 1)
>               nil)
>      (if (longlines-merge-lines-p)

Why not just unconditionally do

                  (put-text-property (point)
                                     (1+ (point))
                                     'syntax-table '(0))

Or even just:

      (progn (insert-before-markers (propertize "\n" 'syntax-table '(0)))
             ...)


-- Stefan