Commit 667adde1 authored by Chong Yidong's avatar Chong Yidong
Browse files

(longlines-search-forward, longlines-search-backward)

(longlines-re-search-forward): Use a smarter search-spaces-regexp.
parent a70b4e6e
......@@ -464,15 +464,15 @@ This is called by `window-configuration-change-hook'."
'longlines-search-backward))))
(defun longlines-search-forward (string &optional bound noerror count)
(let ((search-spaces-regexp "[ \n]+"))
(let ((search-spaces-regexp " *[ \n]"))
(re-search-forward (regexp-quote string) bound noerror count)))
(defun longlines-search-backward (string &optional bound noerror count)
(let ((search-spaces-regexp "[ \n]+"))
(let ((search-spaces-regexp " *[ \n]"))
(re-search-backward (regexp-quote string) bound noerror count)))
(defun longlines-re-search-forward (string &optional bound noerror count)
(let ((search-spaces-regexp "[ \n]"))
(let ((search-spaces-regexp " *[ \n]"))
(re-search-forward string bound noerror count)))
;; Loading and saving
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment