Mercurial > emacs
changeset 76705:e61171cf2862
(testcover-start, testcover-end, testcover-mark-all, testcover-unmark-all): Add
prompts to interactive specs.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 24 Mar 2007 15:53:07 +0000 |
| parents | f3c1d3af8518 |
| children | e9df3e8b7437 |
| files | lisp/emacs-lisp/testcover.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/testcover.el Sat Mar 24 15:52:22 2007 +0000 +++ b/lisp/emacs-lisp/testcover.el Sat Mar 24 15:53:07 2007 +0000 @@ -190,7 +190,7 @@ changes the instrumentation from edebug to testcover--much faster, no problems with type-ahead or post-command-hook, etc. If BYTE-COMPILE is non-nil, byte-compiles each function after instrumenting." - (interactive "f") + (interactive "fStart covering file: ") (let ((buf (find-file filename)) (load-read-function 'testcover-read) (edebug-all-defs t)) @@ -428,10 +428,10 @@ list) result)) -(defun testcover-end (buffer) +(defun testcover-end (filename) "Turn off instrumentation of all macros and functions in FILENAME." - (interactive "b") - (let ((buf (find-file-noselect buffer))) + (interactive "fStop covering file: ") + (let ((buf (find-file-noselect filename))) (eval-buffer buf t))) @@ -513,7 +513,7 @@ (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") + (interactive "bMark forms in buffer: ") (if buffer (switch-to-buffer buffer)) (goto-char 1) @@ -523,7 +523,7 @@ (defun testcover-unmark-all (buffer) "Remove all overlays from FILENAME." - (interactive "b") + (interactive "bUnmark forms in buffer: ") (condition-case nil (progn (set-buffer buffer)