--- a/.emacs-my	Fri Jun 01 17:38:24 2012 +0300
+++ b/.emacs-my	Sat Jun 02 22:30:07 2012 +0300
@@ -2005,6 +2005,14 @@
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "SML, Standard ML")
+
+(eval-after-load 'sml
+  '(progn
+     (define-key sml-mode-map (kbd "C-c C-p") 'sml-send-function)
+     ))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "javascript, js")
 
 ;; (if (>= emacs-major-version 23)