[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el |
Date: |
Fri, 04 Apr 2003 01:22:00 -0500 |
Index: emacs/lisp/emacs-lisp/testcover.el
diff -c emacs/lisp/emacs-lisp/testcover.el:1.1
emacs/lisp/emacs-lisp/testcover.el:1.2
*** emacs/lisp/emacs-lisp/testcover.el:1.1 Sat Sep 28 14:45:54 2002
--- emacs/lisp/emacs-lisp/testcover.el Fri Mar 28 11:45:19 2003
***************
*** 87,95 ****
(defcustom testcover-1value-functions
'(backward-char barf-if-buffer-read-only beginning-of-line
buffer-disable-undo buffer-enable-undo current-global-map deactivate-mark
! delete-char delete-region ding error forward-char insert
insert-and-inherit
! kill-all-local-variables lambda mapc narrow-to-region noreturn push-mark
! put-text-property run-hooks set-text-properties signal
substitute-key-definition suppress-keymap throw undo use-local-map while
widen yank)
"Functions that always return the same value. No brown splotch is shown
--- 87,95 ----
(defcustom testcover-1value-functions
'(backward-char barf-if-buffer-read-only beginning-of-line
buffer-disable-undo buffer-enable-undo current-global-map deactivate-mark
! delete-char delete-region ding error forward-char function* insert
! insert-and-inherit kill-all-local-variables lambda mapc narrow-to-region
! noreturn push-mark put-text-property run-hooks set-text-properties signal
substitute-key-definition suppress-keymap throw undo use-local-map while
widen yank)
"Functions that always return the same value. No brown splotch is shown
***************
*** 403,433 ****
ov j item)
(or (and def-mark points coverage)
(error "Missing edebug data for function %s" def))
! (set-buffer (marker-buffer def-mark))
! (mapc 'delete-overlay (overlays-in def-mark
! (+ def-mark (aref points (1- len)) 1)))
! (while (> len 0)
! (setq len (1- len)
! data (aref coverage len))
! (when (and (not (eq data 'ok-coverage))
! (setq j (+ def-mark (aref points len))))
(setq ov (make-overlay (1- j) j))
(overlay-put ov 'face
(if (memq data '(unknown 1value))
'testcover-nohits-face
'testcover-1value-face))))
! (set-buffer-modified-p changed)))
(defun testcover-mark-all (&optional buffer)
"Mark all forms in BUFFER that did not get completley tested during
! coverage tests. This function creates many overlays. SKIPFUNCS is a list
! of function-symbols that should not be marked."
(interactive "b")
(if buffer
(switch-to-buffer buffer))
(goto-char 1)
(dolist (x edebug-form-data)
! (if (fboundp (car x))
(testcover-mark (car x)))))
(defun testcover-unmark-all (buffer)
--- 403,433 ----
ov j item)
(or (and def-mark points coverage)
(error "Missing edebug data for function %s" def))
! (when len
! (set-buffer (marker-buffer def-mark))
! (mapc 'delete-overlay
! (overlays-in def-mark (+ def-mark (aref points (1- len)) 1)))
! (while (> len 0)
! (setq len (1- len)
! data (aref coverage len))
! (when (and (not (eq data 'ok-coverage))
! (setq j (+ def-mark (aref points len))))
(setq ov (make-overlay (1- j) j))
(overlay-put ov 'face
(if (memq data '(unknown 1value))
'testcover-nohits-face
'testcover-1value-face))))
! (set-buffer-modified-p changed))))
(defun testcover-mark-all (&optional buffer)
"Mark all forms in BUFFER that did not get completley tested during
! coverage tests. This function creates many overlays."
(interactive "b")
(if buffer
(switch-to-buffer buffer))
(goto-char 1)
(dolist (x edebug-form-data)
! (if (get (car x) 'edebug)
(testcover-mark (car x)))))
(defun testcover-unmark-all (buffer)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el,
Miles Bader <=