diff options
| author | Juri Linkov | 2005-12-08 07:49:07 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-08 07:49:07 +0000 |
| commit | bd9fa00e04c97527be1b82b3da26dc8221d50c59 (patch) | |
| tree | f1075ea2c9fa549bc06d9b70bc2bfaab300a5af4 | |
| parent | 82b1b71e4905ce029f90b9aab0e6b39fb4f6e77b (diff) | |
| download | emacs-bd9fa00e04c97527be1b82b3da26dc8221d50c59.tar.gz emacs-bd9fa00e04c97527be1b82b3da26dc8221d50c59.zip | |
(defun-cvs-mode): Put `definition-name' property on
the constructed function name fun-1.
| -rw-r--r-- | lisp/pcvs.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 1e9f1bce7ce..0f0ff76ed0c 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el | |||
| @@ -775,6 +775,7 @@ clear what alternative to use. | |||
| 775 | For interactive use, use `" (symbol-name fun) "' instead.") | 775 | For interactive use, use `" (symbol-name fun) "' instead.") |
| 776 | ,interact | 776 | ,interact |
| 777 | ,@body) | 777 | ,@body) |
| 778 | (put ',fun-1 'definition-name ',fun) | ||
| 778 | (defun ,fun () | 779 | (defun ,fun () |
| 779 | ,(concat line1 "\nWrapper function that switches to a *cvs* buffer | 780 | ,(concat line1 "\nWrapper function that switches to a *cvs* buffer |
| 780 | before calling the real function `" (symbol-name fun-1) "'.\n") | 781 | before calling the real function `" (symbol-name fun-1) "'.\n") |