[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M . Stallman]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.418 emacs/lisp/subr.el:1.419
*** emacs/lisp/subr.el:1.418    Wed Oct 13 17:05:55 2004
--- emacs/lisp/subr.el  Sat Oct 16 15:29:46 2004
***************
*** 2023,2033 ****
  
  (defun looking-back (regexp &optional limit)
    "Return non-nil if text before point matches regular expression REGEXP.
! Like `looking-at' except backwards and slower.
  LIMIT if non-nil speeds up the search by specifying how far back the
  match can start."
!   (save-excursion
!     (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t)))
  
  (defconst split-string-default-separators "[ \f\t\n\r\v]+"
    "The default value of separators for `split-string'.
--- 2023,2034 ----
  
  (defun looking-back (regexp &optional limit)
    "Return non-nil if text before point matches regular expression REGEXP.
! Like `looking-at' except matches before point, and is slower.
  LIMIT if non-nil speeds up the search by specifying how far back the
  match can start."
!   (not (null
!       (save-excursion
!         (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t)))))
  
  (defconst split-string-default-separators "[ \f\t\n\r\v]+"
    "The default value of separators for `split-string'.