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

[Stefan Monnier]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.355 emacs/lisp/subr.el:1.356
*** emacs/lisp/subr.el:1.355    Fri May 30 19:11:35 2003
--- emacs/lisp/subr.el  Wed Jun 18 17:49:16 2003
***************
*** 85,90 ****
--- 85,91 ----
    "Add NEWELT to the list stored in the symbol LISTNAME.
  This is equivalent to (setq LISTNAME (cons NEWELT LISTNAME)).
  LISTNAME must be a symbol."
+   (declare (debug (form sexp)))
    (list 'setq listname
        (list 'cons newelt listname)))
  
***************
*** 93,98 ****
--- 94,100 ----
  LISTNAME must be a symbol whose value is a list.
  If the value is nil, `pop' returns nil but does not actually
  change the list."
+   (declare (debug (sexp)))
    (list 'car
        (list 'prog1 listname
              (list 'setq listname (list 'cdr listname)))))
***************
*** 1630,1635 ****
--- 1632,1638 ----
    "Create a new buffer, evaluate BODY there, and write the buffer to FILE.
  The value returned is the value of the last form in BODY.
  See also `with-temp-buffer'."
+   (declare (debug t))
    (let ((temp-file (make-symbol "temp-file"))
        (temp-buffer (make-symbol "temp-buffer")))
      `(let ((,temp-file ,file)
***************
*** 1652,1657 ****
--- 1655,1661 ----
  MESSAGE is written to the message log buffer if `message-log-max' is non-nil.
  If MESSAGE is nil, the echo area and message log buffer are unchanged.
  Use a MESSAGE of \"\" to temporarily clear the echo area."
+   (declare (debug t))
    (let ((current-message (make-symbol "current-message"))
        (temp-message (make-symbol "with-temp-message")))
      `(let ((,temp-message ,message)
***************
*** 1741,1746 ****
--- 1745,1751 ----
  (defmacro delay-mode-hooks (&rest body)
    "Execute BODY, but delay any `run-mode-hooks'.
  Only affects hooks run in the current buffer."
+   (declare (debug t))
    `(progn
       (make-local-variable 'delay-mode-hooks)
       (let ((delay-mode-hooks t))
***************
*** 1761,1766 ****
--- 1766,1772 ----
  The syntax table of the current buffer is saved, BODY is evaluated, and the
  saved table is restored, even in case of an abnormal exit.
  Value is what BODY returns."
+   (declare (debug t))
    (let ((old-table (make-symbol "table"))
        (old-buffer (make-symbol "buffer")))
      `(let ((,old-table (syntax-table))
***************
*** 1820,1837 ****
        (buffer-substring-no-properties (match-beginning num)
                                        (match-end num)))))
  
! (defun looking-back (regexp)
!   "Return t if text before point matches regular expression REGEXP.
! This function modifies the match data that `match-beginning',
! `match-end' and `match-data' access; save and restore the match
! data if you want to preserve them."
    (save-excursion
!     (let ((beg (point)))
!       (if (re-search-backward regexp nil t)
!         (if (= (match-end 0) beg)
!             t
!           nil)
!       nil))))
  
  (defconst split-string-default-separators "[ \f\t\n\r\v]+"
    "The default value of separators for `split-string'.
--- 1826,1838 ----
        (buffer-substring-no-properties (match-beginning num)
                                        (match-end num)))))
  
! (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'.