diff options
| author | Artur Malabarba | 2015-07-17 12:22:24 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-07-17 12:39:01 +0100 |
| commit | eed81d277f5f095399611d52b4ff814622d44f1c (patch) | |
| tree | e45036d06ad0b1dc7dbcd939ef495c5f58bf9d9f | |
| parent | 5bd8e67c6e47f672847a9e85a527fe17a0345d01 (diff) | |
| download | emacs-eed81d277f5f095399611d52b4ff814622d44f1c.tar.gz emacs-eed81d277f5f095399611d52b4ff814622d44f1c.zip | |
* lisp/obsolete/longlines.el (longlines-search-function):
Fallback on `isearch-search-fun-default'.
| -rw-r--r-- | lisp/obsolete/longlines.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/obsolete/longlines.el b/lisp/obsolete/longlines.el index a27c43be9df..01939daa709 100644 --- a/lisp/obsolete/longlines.el +++ b/lisp/obsolete/longlines.el | |||
| @@ -464,14 +464,9 @@ This is called by `window-configuration-change-hook'." | |||
| 464 | 464 | ||
| 465 | (defun longlines-search-function () | 465 | (defun longlines-search-function () |
| 466 | (cond | 466 | (cond |
| 467 | (isearch-word | 467 | ((or isearch-word isearch-regexp) (isearch-search-fun-default)) |
| 468 | (if isearch-forward 'word-search-forward 'word-search-backward)) | 468 | (isearch-forward #'longlines-search-forward) |
| 469 | (isearch-regexp | 469 | (t #'longlines-search-backward))) |
| 470 | (if isearch-forward 're-search-forward 're-search-backward)) | ||
| 471 | (t | ||
| 472 | (if isearch-forward | ||
| 473 | 'longlines-search-forward | ||
| 474 | 'longlines-search-backward)))) | ||
| 475 | 470 | ||
| 476 | (defun longlines-search-forward (string &optional bound noerror count) | 471 | (defun longlines-search-forward (string &optional bound noerror count) |
| 477 | (let ((search-spaces-regexp " *[ \n]")) | 472 | (let ((search-spaces-regexp " *[ \n]")) |