bug#56335: 29.0.50; [PATCH] Add more breakpoint chars support to longlines-mode

[Manuel Giraud <manuel@ledu-giraud.fr>]

[-- Attachment #1: Type: text/plain, Size: 421 bytes --]

Hi,

Here is a new patch for longlines-mode. It updates substring filtering
to the new interface and do not replace soft newlines with spaces
anymore. So now, copy/pasting from a longlines buffer should work as
intended.

I'm now trying to update the search/query-replace but I don't understand
how 'search-spaces-regex' works. It seems that with it I should be able
to jump above soft newlines during search, but how ?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-longlines-substring-update.patch --]
[-- Type: text/x-patch, Size: 3528 bytes --]

From 1a7eb36393aba16680765d34ae3e4329df7f397e Mon Sep 17 00:00:00 2001
From: Manuel Giraud <manuel@ledu-giraud.fr>
Date: Tue, 5 Jul 2022 14:38:43 +0200
Subject: [PATCH] [longlines] substring update

* lisp/longlines.el (longlines-mode, longlines-encode-string): Update
from `buffer-substring-filters' to `filter-buffer-substring-function'.
Remove soft newlines in substring.
---
 lisp/longlines.el | 32 ++++++++++++++++++++------------
 1 file changed, 20 insertions(+), 12 deletions(-)

diff --git a/lisp/longlines.el b/lisp/longlines.el
index a6cf93a039..855fbc6e0e 100644
--- a/lisp/longlines.el
+++ b/lisp/longlines.el
@@ -118,7 +118,6 @@ longlines-mode
         (add-to-list 'buffer-file-format 'longlines)
         (add-hook 'change-major-mode-hook #'longlines-mode-off nil t)
 	(add-hook 'before-revert-hook #'longlines-before-revert-hook nil t)
-        (make-local-variable 'buffer-substring-filters)
         (make-local-variable 'longlines-auto-wrap)
 	(set (make-local-variable 'isearch-search-fun-function)
 	     #'longlines-search-function)
@@ -126,7 +125,8 @@ longlines-mode
 	     #'longlines-search-forward)
 	(set (make-local-variable 'replace-re-search-function)
 	     #'longlines-re-search-forward)
-        (add-to-list 'buffer-substring-filters 'longlines-encode-string)
+        (add-function :filter-return (local 'filter-buffer-substring-function)
+                      #'longlines-encode-string)
         (when longlines-wrap-follows-window-size
 	  (let ((dw (if (and (integerp longlines-wrap-follows-window-size)
 			     (>= longlines-wrap-follows-window-size 0)
@@ -143,7 +143,7 @@ longlines-mode
 	      (inhibit-modification-hooks t)
               (mod (buffer-modified-p))
 	      buffer-file-name buffer-file-truename)
-          ;; Turning off undo is OK since (spaces + newlines) is
+          ;; Turning off undo is OK since (separators + newlines) is
           ;; conserved, except for a corner case in
           ;; longlines-wrap-lines that we'll never encounter from here
 	  (save-restriction
@@ -202,7 +202,8 @@ longlines-mode
     (kill-local-variable 'replace-search-function)
     (kill-local-variable 'replace-re-search-function)
     (kill-local-variable 'require-final-newline)
-    (kill-local-variable 'buffer-substring-filters)
+    (remove-function (local 'filter-buffer-substring-function)
+                     #'longlines-encode-string)
     (kill-local-variable 'use-hard-newlines)))
 
 (defun longlines-mode-off ()
@@ -385,15 +386,22 @@ longlines-encode-region
       end)))
 
 (defun longlines-encode-string (string)
-  "Return a copy of STRING with each soft newline replaced by a space.
+  "Return a copy of STRING with each soft newline removed.
 Hard newlines are left intact."
-  (let* ((str (copy-sequence string))
-         (pos (string-search "\n" str)))
-    (while pos
-      (if (null (get-text-property pos 'hard str))
-          (aset str pos ? ))
-      (setq pos (string-search "\n" str (1+ pos))))
-    str))
+  (let ((str (copy-sequence string))
+        (start 0)
+        (result nil))
+    (while (setq pos (string-search "\n" str start))
+      (unless (= start pos)
+        (push (substring str start pos) result))
+      (when (get-text-property pos 'hard str)
+        (push (substring str pos (1+ pos)) result))
+      (setq start (1+ pos)))
+    (if (null result)
+        str
+      (unless (= start (length str))
+        (push (substring str start) result))
+      (apply #'concat (nreverse result)))))
 
 ;;; Auto wrap
 
-- 
2.36.1


[-- Attachment #3: Type: text/plain, Size: 18 bytes --]

-- 
Manuel Giraud