diff options
| author | Chong Yidong | 2005-10-16 23:46:15 +0000 |
|---|---|---|
| committer | Chong Yidong | 2005-10-16 23:46:15 +0000 |
| commit | 625fca9a902a069f814c7b1a3fa2306090b16d97 (patch) | |
| tree | 2b55300bcc5a48cbea2272a754943705fe5db45e | |
| parent | 72147c533b3528e66e74ce748266111e69754469 (diff) | |
| download | emacs-625fca9a902a069f814c7b1a3fa2306090b16d97.tar.gz emacs-625fca9a902a069f814c7b1a3fa2306090b16d97.zip | |
* longlines.el (longlines-search-forward)
(longlines-search-backward): Match any number of spaces.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/longlines.el | 4 |
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 @@ | |||
| 1 | 2005-10-16 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * longlines.el (longlines-search-forward) | ||
| 4 | (longlines-search-backward): Match any number of spaces. | ||
| 5 | |||
| 1 | 2005-10-16 Thien-Thi Nguyen <ttn@gnu.org> | 6 | 2005-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 |