/[emacs]/emacs/lisp/longlines.el
ViewVC logotype

Diff of /emacs/lisp/longlines.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by cyd, Fri Oct 14 19:56:38 2005 UTC revision 1.12 by cyd, Sun Oct 16 23:46:15 2005 UTC
# Line 398  This is called by `window-size-change-fu Line 398  This is called by `window-size-change-fu
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

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26