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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/testcover.el
diff -c emacs/lisp/emacs-lisp/testcover.el:1.2.2.1 
emacs/lisp/emacs-lisp/testcover.el:1.2.2.2
*** emacs/lisp/emacs-lisp/testcover.el:1.2.2.1  Fri Apr  4 01:20:16 2003
--- emacs/lisp/emacs-lisp/testcover.el  Tue Oct 14 19:32:21 2003
***************
*** 2,9 ****
  
  ;; Copyright (C) 2002 Free Software Foundation, Inc.
  
! ;; Author: Jonathan Yavner <address@hidden>
! ;; Maintainer: Jonathan Yavner <address@hidden>
  ;; Keywords: lisp utility
  
  ;; This file is part of GNU Emacs.
--- 2,9 ----
  
  ;; Copyright (C) 2002 Free Software Foundation, Inc.
  
! ;; Author: Jonathan Yavner <address@hidden>
! ;; Maintainer: Jonathan Yavner <address@hidden>
  ;; Keywords: lisp utility
  
  ;; This file is part of GNU Emacs.
***************
*** 334,341 ****
      result))
  
  (defun testcover-reinstrument-clauses (clauselist)
!   "Reinstruments each list in CLAUSELIST.  Result is t if every
! clause is 1-valued."
    (let ((result t))
      (mapc #'(lambda (x)
              (setq result (and (testcover-reinstrument-list x) result)))
--- 334,341 ----
      result))
  
  (defun testcover-reinstrument-clauses (clauselist)
!   "Reinstrument each list in CLAUSELIST.
! Result is t if every clause is 1-valued."
    (let ((result t))
      (mapc #'(lambda (x)
              (setq result (and (testcover-reinstrument-list x) result)))
***************
*** 349,361 ****
      (eval-buffer buf t)))
  
  (defmacro 1value (form)
!   "For code-coverage testing, indicate that FORM is expected to always have
! the same value."
    form)
  
  (defmacro noreturn (form)
!   "For code-coverage testing, indicate that FORM will always signal an error."
!   form)
  
  
  ;;;=========================================================================
--- 349,361 ----
      (eval-buffer buf t)))
  
  (defmacro 1value (form)
!   "For coverage testing, indicate FORM should always have the same value."
    form)
  
  (defmacro noreturn (form)
!   "For coverage testing, indicate that FORM will never return."
!   `(prog1 ,form
!      (error "Form marked with `noreturn' did return")))
  
  
  ;;;=========================================================================
***************
*** 445,448 ****
--- 445,449 ----
    (goto-char (next-overlay-change (point)))
    (end-of-line))
  
+ ;;; arch-tag: 72324a4a-4a2e-4142-9249-cc56d6757588
  ;; testcover.el ends here.