Mercurial > emacs
changeset 67377:f031a0708433
(defun-cvs-mode): Put `definition-name' property on
the constructed function name fun-1.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 08 Dec 2005 07:49:07 +0000 |
| parents | a57102d7cc7e |
| children | 3fe860e6e6eb |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Thu Dec 08 07:48:29 2005 +0000 +++ b/lisp/pcvs.el Thu Dec 08 07:49:07 2005 +0000 @@ -775,6 +775,7 @@ For interactive use, use `" (symbol-name fun) "' instead.") ,interact ,@body) + (put ',fun-1 'definition-name ',fun) (defun ,fun () ,(concat line1 "\nWrapper function that switches to a *cvs* buffer before calling the real function `" (symbol-name fun-1) "'.\n")