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

Diff of /emacs/lisp/subr.el

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

revision 1.354 by lektu, Thu May 22 20:59:57 2003 UTC revision 1.355 by lektu, Fri May 30 23:11:35 2003 UTC
# Line 1820  STRING should be given if the last searc Line 1820  STRING should be given if the last searc
1820          (buffer-substring-no-properties (match-beginning num)          (buffer-substring-no-properties (match-beginning num)
1821                                          (match-end num)))))                                          (match-end num)))))
1822    
1823    (defun looking-back (regexp)
1824      "Return t if text before point matches regular expression REGEXP.
1825    This function modifies the match data that `match-beginning',
1826    `match-end' and `match-data' access; save and restore the match
1827    data if you want to preserve them."
1828      (save-excursion
1829        (let ((beg (point)))
1830          (if (re-search-backward regexp nil t)
1831              (if (= (match-end 0) beg)
1832                  t
1833                nil)
1834            nil))))
1835    
1836  (defconst split-string-default-separators "[ \f\t\n\r\v]+"  (defconst split-string-default-separators "[ \f\t\n\r\v]+"
1837    "The default value of separators for `split-string'.    "The default value of separators for `split-string'.
1838    

Legend:
Removed from v.1.354  
changed lines
  Added in v.1.355

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