summaryrefslogtreecommitdiff
path: root/lisp/pcvs.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2005-12-08 07:49:07 +0000
committerJuri Linkov <juri@jurta.org>2005-12-08 07:49:07 +0000
commita323259be506cceebe1e5b09f0a82bf44fe1d6c5 (patch)
treede968a89d3830920bb4bd1dabf28bb3be7ea98c4 /lisp/pcvs.el
parent183c51ab615ff6107fc6058a2b78dd665b7809e5 (diff)
downloademacs-a323259be506cceebe1e5b09f0a82bf44fe1d6c5.tar.gz
(defun-cvs-mode): Put `definition-name' property on
the constructed function name fun-1.
Diffstat (limited to 'lisp/pcvs.el')
-rw-r--r--lisp/pcvs.el1
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.
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")