# HG changeset patch # User Chong Yidong # Date 1129506375 0 # Node ID 3fe20f1edf7b08b19f804f1c4733855cd098282d # Parent 698673f02315b849b1318d9c0af2d9f20778a221 * longlines.el (longlines-search-forward) (longlines-search-backward): Match any number of spaces. diff -r 698673f02315 -r 3fe20f1edf7b lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 16 21:49:00 2005 +0000 +++ b/lisp/ChangeLog Sun Oct 16 23:46:15 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-16 Chong Yidong + + * longlines.el (longlines-search-forward) + (longlines-search-backward): Match any number of spaces. + 2005-10-16 Thien-Thi Nguyen * diff-mode.el (diff-mode): Doc fix. diff -r 698673f02315 -r 3fe20f1edf7b lisp/longlines.el --- a/lisp/longlines.el Sun Oct 16 21:49:00 2005 +0000 +++ b/lisp/longlines.el Sun Oct 16 23:46:15 2005 +0000 @@ -398,11 +398,11 @@ '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))) ;; Loading and saving