# HG changeset patch # User Chong Yidong # Date 1213291680 0 # Node ID 5bef95d2d50652d46966f211ea86a719a455cd9a # Parent 9ca85a90dfacb5c5b3b81853871714739706f7b9 (longlines-search-forward, longlines-search-backward) (longlines-re-search-forward): Use a smarter search-spaces-regexp. diff -r 9ca85a90dfac -r 5bef95d2d506 lisp/longlines.el --- a/lisp/longlines.el Thu Jun 12 17:27:45 2008 +0000 +++ b/lisp/longlines.el Thu Jun 12 17:28:00 2008 +0000 @@ -464,15 +464,15 @@ '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