aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2005-10-16 23:46:15 +0000
committerChong Yidong2005-10-16 23:46:15 +0000
commit625fca9a902a069f814c7b1a3fa2306090b16d97 (patch)
tree2b55300bcc5a48cbea2272a754943705fe5db45e
parent72147c533b3528e66e74ce748266111e69754469 (diff)
downloademacs-625fca9a902a069f814c7b1a3fa2306090b16d97.tar.gz
emacs-625fca9a902a069f814c7b1a3fa2306090b16d97.zip
* longlines.el (longlines-search-forward)
(longlines-search-backward): Match any number of spaces.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/longlines.el4
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ac616dbe46..b448ead1d47 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12005-10-16 Chong Yidong <cyd@stupidchicken.com>
2
3 * longlines.el (longlines-search-forward)
4 (longlines-search-backward): Match any number of spaces.
5
12005-10-16 Thien-Thi Nguyen <ttn@gnu.org> 62005-10-16 Thien-Thi Nguyen <ttn@gnu.org>
2 7
3 * diff-mode.el (diff-mode): Doc fix. 8 * diff-mode.el (diff-mode): Doc fix.
diff --git a/lisp/longlines.el b/lisp/longlines.el
index 9665931e046..00a2782d0a3 100644
--- a/lisp/longlines.el
+++ b/lisp/longlines.el
@@ -398,11 +398,11 @@ This is called by `window-size-change-functions'."
398 'longlines-search-backward)))) 398 'longlines-search-backward))))
399 399
400(defun longlines-search-forward (string &optional bound noerror count) 400(defun longlines-search-forward (string &optional bound noerror count)
401 (let ((search-spaces-regexp "[ \n]")) 401 (let ((search-spaces-regexp "[ \n]+"))
402 (re-search-forward (regexp-quote string) bound noerror count))) 402 (re-search-forward (regexp-quote string) bound noerror count)))
403 403
404(defun longlines-search-backward (string &optional bound noerror count) 404(defun longlines-search-backward (string &optional bound noerror count)
405 (let ((search-spaces-regexp "[ \n]")) 405 (let ((search-spaces-regexp "[ \n]+"))
406 (re-search-backward (regexp-quote string) bound noerror count))) 406 (re-search-backward (regexp-quote string) bound noerror count)))
407 407
408;; Loading and saving 408;; Loading and saving