Add copy-func-prototype defun

This commit is contained in:
Gergely Polonkai 2014-10-10 00:00:58 +02:00
parent 786aff4067
commit 9d9f289b26

11
init.el
View File

@ -215,3 +215,14 @@
(interactive) (interactive)
(beginning-of-line) (beginning-of-line)
(kill-line 1)) (kill-line 1))
(defun copy-func-prototype ()
"Copy the current function's prototype to the kill-ring"
(interactive)
(save-excursion (beginning-of-defun)
(setq protocopy-begin (point))
(forward-list)
(setq protocopy-end (point))
(kill-ring-save protocopy-begin protocopy-end)))