Commit bd9fa00e authored by Juri Linkov's avatar Juri Linkov
Browse files

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

the constructed function name fun-1.
parent 82b1b71e
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment