Re: Patch: Syntax and Hard Newlines

[Herbert Euler]

Ok, now we get two patches:

       * longlines.el (longlines-mode): Set
       `parse-sexp-lookup-properties' so that syntax parsing uses text
       properties.
       (longlines-wrap-line): Put the `syntax-table' text property to the
       soft newline if in a comment context.

*** longlines.el.~1.2.2.16.~    Mon Nov 13 10:58:17 2006
--- longlines.el        Wed Nov 15 09:27:18 2006
***************
*** 112,117 ****
--- 112,118 ----
         (make-local-variable 'buffer-substring-filters)
       (set (make-local-variable 'isearch-search-fun-function)
            'longlines-search-function)
+       (set (make-local-variable 'parse-sexp-lookup-properties) t)
         (add-to-list 'buffer-substring-filters 'longlines-encode-string)
         (when longlines-wrap-follows-window-size
           (set (make-local-variable 'fill-column)
***************
*** 156,161 ****
--- 157,163 ----
           (add-hook 'post-command-hook
                     'longlines-post-command-function nil t)))
     ;; Turn off longlines mode
+     (kill-local-variable 'parse-sexp-lookup-properties)
     (setq buffer-file-format (delete 'longlines buffer-file-format))
     (if longlines-showing
         (longlines-unshow-hard-newlines))
*************** (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)

Regards,
Guanpeng Xu

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/