mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

(longlines-re-search-forward): New function.

Browse Source 
(longlines-mode): Bind replace-search-function and
replace-re-search-function, to ensure that replacement commands
treat newlines as spaces.
This commit is contained in:
Chong Yidong 2008-06-06 20:31:10 +00:00
parent 742764a75f
commit e87085e6d5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/longlines.el
View File

@ -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 ()