Add copy-func-prototype defun

2014-10-10 00:00:58 +02:00
parent 786aff4067
commit 9d9f289b26
1 changed files with 11 additions and 0 deletions
--- a/init.el
+++ b/init.el
@@ -215,3 +215,14 @@
  (interactive)
  (beginning-of-line)
  (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)))