X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=.emacs;h=2befd3353099bb85051e133de2f447dc647531a2;hb=56d132e026c7713254bd98cdf8c7334989e4d720;hp=a1b2e7b8ca8c196882cef90e3ad7415ee93a9935;hpb=a67fad4f12619c0d247f79fb68cf16c7d7e1a5ca;p=emacs.git

diff --git a/.emacs b/.emacs
index a1b2e7b..2befd33 100644
--- a/.emacs
+++ b/.emacs
@@ -351,8 +351,10 @@ Maildir, or by Message-ID."
 	  (auto-fill-mode nil)
 	  )
 
-(fset 'insert-function-documentation
-   [?\C-x ?i home ?\C-k ?/ ?h ?o ?m ?e ?/ ?d ?o ?n ?/ ?l ?i ?b ?/ ?t ?e ?m ?p ?l ?a ?t ?e ?s ?/ ?p ?e ?r ?l ?_ ?f ?u ?n ?c ?t ?i ?o ?n ?_ ?d ?o ?c ?u ?m ?e ?n ?t ?a ?t ?i ?o ?n return])
+(defun insert-function-documentation ()
+  "Insert function documentation"
+  (interactive)
+  (insert-file-contents "/home/don/lib/templates/perl_function_documentation" nil))
 (global-set-key "\M-f" 'insert-function-documentation)
 
 (eval-after-load "lilypond-mode"