Mercurial > emacs

changeset 95855:5bef95d2d506

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(longlines-search-forward, longlines-search-backward) (longlines-re-search-forward): Use a smarter search-spaces-regexp.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 12 Jun 2008 17:28:00 +0000
parents 9ca85a90dfac
children f13a77e0e34f
files lisp/longlines.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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