mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

* lisp/obsolete/longlines.el (longlines-search-function):

Browse Source 
Fallback on `isearch-search-fun-default'.
This commit is contained in:
Artur Malabarba 2015-07-17 12:22:24 +01:00
parent 5bd8e67c6e
commit eed81d277f
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/obsolete/longlines.el
View File

@ -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]"))