mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

* longlines.el (longlines-search-forward)

Browse Source 
(longlines-search-backward): Match any number of spaces.
This commit is contained in:
Chong Yidong 2005-10-16 23:46:15 +00:00
parent 72147c533b
commit 625fca9a90
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2005-10-16 Chong Yidong <cyd@stupidchicken.com>
* longlines.el (longlines-search-forward)
(longlines-search-backward): Match any number of spaces.
2005-10-16 Thien-Thi Nguyen <ttn@gnu.org>
* diff-mode.el (diff-mode): Doc fix.

4
lisp/longlines.el
View File

@ -398,11 +398,11 @@ This is called by `window-size-change-functions'."
'longlines-search-backward))))
(defun longlines-search-forward (string &optional bound noerror count)
(let ((search-spaces-regexp "[ \n]"))
(let ((search-spaces-regexp "[ \n]+"))
(re-search-forward (regexp-quote string) bound noerror count)))
(defun longlines-search-backward (string &optional bound noerror count)
(let ((search-spaces-regexp "[ \n]"))
(let ((search-spaces-regexp "[ \n]+"))
(re-search-backward (regexp-quote string) bound noerror count)))
;; Loading and saving