Hi,
I was trying to write a function that would help in creating various abbreviation functions.


(defun makeAbrevFun (name val) 
  (eval 
   (defun name () (insert val))))

The intention is that the below code would create a function called "aa" 
(makeAbrevFun 'aa "aaaaaaaaaaaaaa")
That can be invoked by doing (aa)C-X C-e
This does not work. Could someone please let me know how I can achieve this?
Regards,
Kashyap