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