Show
Ignore:
Timestamp:
2007年04月07日 15時49分28秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/emacs-lisp/testcover.el

    r4190 r4200  
    191191problems with type-ahead or post-command-hook, etc.  If BYTE-COMPILE is 
    192192non-nil, byte-compiles each function after instrumenting." 
    193   (interactive "f") 
     193  (interactive "fStart covering file: ") 
    194194  (let ((buf                (find-file filename)) 
    195195        (load-read-function 'testcover-read) 
    …… 
    429429    result)) 
    430430 
    431 (defun testcover-end (buffer) 
     431(defun testcover-end (filename) 
    432432  "Turn off instrumentation of all macros and functions in FILENAME." 
    433   (interactive "b") 
    434   (let ((buf (find-file-noselect buffer))) 
     433  (interactive "fStop covering file: ") 
     434  (let ((buf (find-file-noselect filename))) 
    435435    (eval-buffer buf t))) 
    436436 
    …… 
    514514  "Mark all forms in BUFFER that did not get completley tested during 
    515515coverage tests.  This function creates many overlays." 
    516   (interactive "b") 
     516  (interactive "bMark forms in buffer: ") 
    517517  (if buffer 
    518518      (switch-to-buffer buffer)) 
    …… 
    524524(defun testcover-unmark-all (buffer) 
    525525  "Remove all overlays from FILENAME." 
    526   (interactive "b") 
     526  (interactive "bUnmark forms in buffer: ") 
    527527  (condition-case nil 
    528528      (progn