775 |
For interactive use, use `" (symbol-name fun) "' instead.") |
For interactive use, use `" (symbol-name fun) "' instead.") |
776 |
,interact |
,interact |
777 |
,@body) |
,@body) |
778 |
|
(put ',fun-1 'definition-name ',fun) |
779 |
(defun ,fun () |
(defun ,fun () |
780 |
,(concat line1 "\nWrapper function that switches to a *cvs* buffer |
,(concat line1 "\nWrapper function that switches to a *cvs* buffer |
781 |
before calling the real function `" (symbol-name fun-1) "'.\n") |
before calling the real function `" (symbol-name fun-1) "'.\n") |