diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-17 12:22:24 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-17 12:39:01 +0100 |
| commit | eed81d277f5f095399611d52b4ff814622d44f1c (patch) | |
| tree | e45036d06ad0b1dc7dbcd939ef495c5f58bf9d9f | |
| parent | 5bd8e67c6e47f672847a9e85a527fe17a0345d01 (diff) | |
| download | emacs-eed81d277f5f095399611d52b4ff814622d44f1c.tar.gz | |
* 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'." (defun longlines-search-function () (cond - (isearch-word - (if isearch-forward 'word-search-forward 'word-search-backward)) - (isearch-regexp - (if isearch-forward 're-search-forward 're-search-backward)) - (t - (if isearch-forward - 'longlines-search-forward - 'longlines-search-backward)))) + ((or isearch-word isearch-regexp) (isearch-search-fun-default)) + (isearch-forward #'longlines-search-forward) + (t #'longlines-search-backward))) (defun longlines-search-forward (string &optional bound noerror count) (let ((search-spaces-regexp " *[ \n]")) |