diff options
author | Juri Linkov <juri@jurta.org> | 2005-12-08 07:49:07 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2005-12-08 07:49:07 +0000 |
commit | a323259be506cceebe1e5b09f0a82bf44fe1d6c5 (patch) | |
tree | de968a89d3830920bb4bd1dabf28bb3be7ea98c4 /lisp/pcvs.el | |
parent | 183c51ab615ff6107fc6058a2b78dd665b7809e5 (diff) | |
download | emacs-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.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. 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") |