- (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-regexp-function isearch-regexp) (isearch-search-fun-default))
+ (isearch-forward #'longlines-search-forward)
+ (t #'longlines-search-backward)))