missing prompts in testcover.el commands

[Ryan Yeske]

The testcover.el package is missing prompts in interactive specs.
The following patch supplies them.

*** testcover.el        02 Mar 2007 16:00:42 -0800      1.15
--- testcover.el        14 Mar 2007 23:20:28 -0800      
***************
*** 190,196 ****
  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")
    (let ((buf                (find-file filename))
        (load-read-function 'testcover-read)
        (edebug-all-defs t))
--- 190,196 ----
  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 "fStart covering file: ")
    (let ((buf                (find-file filename))
        (load-read-function 'testcover-read)
        (edebug-all-defs t))
***************
*** 428,437 ****
          list)
      result))
  
! (defun testcover-end (buffer)
    "Turn off instrumentation of all macros and functions in FILENAME."
!   (interactive "b")
!   (let ((buf (find-file-noselect buffer)))
      (eval-buffer buf t)))
  
  
--- 428,437 ----
          list)
      result))
  
! (defun testcover-end (filename)
    "Turn off instrumentation of all macros and functions in FILENAME."
!   (interactive "fStop covering file: ")
!   (let ((buf (find-file-noselect filename)))
      (eval-buffer buf t)))
  
  
***************
*** 513,519 ****
  (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)
--- 513,519 ----
  (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 "bMark forms in buffer: ")
    (if buffer
        (switch-to-buffer buffer))
    (goto-char 1)
***************
*** 523,529 ****
  
  (defun testcover-unmark-all (buffer)
    "Remove all overlays from FILENAME."
!   (interactive "b")
    (condition-case nil
        (progn
        (set-buffer buffer)
--- 523,529 ----
  
  (defun testcover-unmark-all (buffer)
    "Remove all overlays from FILENAME."
!   (interactive "bUnmark forms in buffer: ")
    (condition-case nil
        (progn
        (set-buffer buffer)



In GNU Emacs 22.0.95.2 (i386-unknown-openbsd4.0, X toolkit)
 of 2007-03-06 on owie.yeske.ca
X server distributor `The X.Org Foundation', version 11.0.60900000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Diff

Minor modes in effect:
  vc-parent-buffer: testcover.el
  shell-dirtrack-mode: t
  display-battery-mode: t
  auto-insert-mode: t
  display-time-mode: t
  iswitchb-mode: t
  show-paren-mode: t
  rcirc-track-minor-mode: t
  auto-image-file-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  size-indication-mode: t
  line-number-mode: t

Recent input:
C-u C-b C-b C-b M-d C-d M-c SPC f i l e C-x o C-x o 
M-b C-b C-b C-b C-b C-b C-b S t a r t SPC M-l i n g 
C-x o M-f M-f SPC f i l e : SPC C-a C-n C-p C-p C-p 
C-s f i l e C-w C-s C-a C-n C-n C-e M-b M-d f i l e 
n a m e C-a C-x C-s C-x v / C-g C-x v = C-x 1 M-x r 
e p o r t - e m a c s - b u g <return>

Recent messages:
Searched 1 buffer; 6 matches for `interactive'
Auto-saving...done
Type C-x 1 to remove help window.  
mouse-2, RET: find function's definition
Quit
Mark set
Mark saved where search started
Wrote /home/rcyeske/emacs/lisp/emacs-lisp/testcover.el
Quit
Loading emacsbug...done


-- 
http://www.yeske.ca