398 |
'longlines-search-backward)))) |
'longlines-search-backward)))) |
399 |
|
|
400 |
(defun longlines-search-forward (string &optional bound noerror count) |
(defun longlines-search-forward (string &optional bound noerror count) |
401 |
(let ((search-spaces-regexp "[ \n]")) |
(let ((search-spaces-regexp "[ \n]+")) |
402 |
(re-search-forward (regexp-quote string) bound noerror count))) |
(re-search-forward (regexp-quote string) bound noerror count))) |
403 |
|
|
404 |
(defun longlines-search-backward (string &optional bound noerror count) |
(defun longlines-search-backward (string &optional bound noerror count) |
405 |
(let ((search-spaces-regexp "[ \n]")) |
(let ((search-spaces-regexp "[ \n]+")) |
406 |
(re-search-backward (regexp-quote string) bound noerror count))) |
(re-search-backward (regexp-quote string) bound noerror count))) |
407 |
|
|
408 |
;; Loading and saving |
;; Loading and saving |