mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(defun-cvs-mode): Put `definition-name' property on

Browse source 
the constructed function name fun-1.
This commit is contained in:
Juri Linkov 2005-12-08 07:49:07 +00:00
parent 82b1b71e49
commit bd9fa00e04
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/pcvs.el
View file

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