Mercurial > emacs
comparison lisp/longlines.el @ 66132:3fe20f1edf7b
* longlines.el (longlines-search-forward)
(longlines-search-backward): Match any number of spaces.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 16 Oct 2005 23:46:15 +0000 |
| parents | b63142efae15 |
| children | ce840b1d13ad |
comparison
equal
deleted
inserted
replaced
| 66131:698673f02315 | 66132:3fe20f1edf7b |
|---|---|
| 396 (if isearch-forward | 396 (if isearch-forward |
| 397 'longlines-search-forward | 397 'longlines-search-forward |
| 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 |
| 409 | 409 |
| 410 (add-to-list | 410 (add-to-list |