# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1134028147 0
# Node ID f031a0708433a1d71cf3f19ecee38a6d88b9ed01
# Parent  a57102d7cc7eee2ef7ad4310e045747a6d9a1582
(defun-cvs-mode): Put `definition-name' property on
the constructed function name fun-1.

diff -r a57102d7cc7e -r f031a0708433 lisp/pcvs.el
--- 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")