From: Juri Linkov <juri@jurta.org>
Date: Thu, 8 Dec 2005 07:49:07 +0000 (+0000)
Subject: (defun-cvs-mode): Put `definition-name' property on
X-Git-Tag: emacs-pretest-22.0.90~5452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd9fa00e04c97527be1b82b3da26dc8221d50c59;p=emacs.git

(defun-cvs-mode): Put `definition-name' property on
the constructed function name fun-1.
---

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.
 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")