[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/longlines.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/longlines.el,v |
Date: |
Fri, 06 Jun 2008 20:31:11 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/06/06 20:31:11
Index: longlines.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/longlines.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- longlines.el 6 May 2008 07:57:43 -0000 1.45
+++ longlines.el 6 Jun 2008 20:31:10 -0000 1.46
@@ -119,6 +119,10 @@
(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 @@
(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 @@
(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 ()
- [Emacs-diffs] Changes to emacs/lisp/longlines.el,v,
Chong Yidong <=