From e87085e6d5606b545ac0ee6039fe15f32ac7ee1c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 6 Jun 2008 20:31:10 +0000 Subject: [PATCH] (longlines-re-search-forward): New function. (longlines-mode): Bind replace-search-function and replace-re-search-function, to ensure that replacement commands treat newlines as spaces. --- lisp/longlines.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/longlines.el b/lisp/longlines.el index d160b808a7c..a4dda4b4ec3 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -119,6 +119,10 @@ are indicated with a symbol." (make-local-variable 'longlines-auto-wrap) (set (make-local-variable 'isearch-search-fun-function) 'longlines-search-function) + (set (make-local-variable 'replace-search-function) + 'longlines-search-forward) + (set (make-local-variable 'replace-re-search-function) + 'longlines-re-search-forward) (add-to-list 'buffer-substring-filters 'longlines-encode-string) (when longlines-wrap-follows-window-size (let ((dw (if (and (integerp longlines-wrap-follows-window-size) @@ -191,6 +195,8 @@ are indicated with a symbol." (when longlines-wrap-follows-window-size (kill-local-variable 'fill-column)) (kill-local-variable 'isearch-search-fun-function) + (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) (kill-local-variable 'use-hard-newlines))) @@ -465,6 +471,10 @@ This is called by `window-configuration-change-hook'." (let ((search-spaces-regexp "[ \n]+")) (re-search-backward (regexp-quote string) bound noerror count))) +(defun longlines-re-search-forward (string &optional bound noerror count) + (let ((search-spaces-regexp "[ \n]")) + (re-search-forward string bound noerror count))) + ;; Loading and saving (defun longlines-before-revert-hook () -- 2.11.4.GIT