add apply-partially defun

from http://www.emacswiki.org/emacs/anything-match-plugin.el

coffee-mode.el

@@ -143,6 +143,20 @@ to the error, of course."
 (defvar coffee-mode-map (make-keymap)
   "Keymap for CoffeeScript major mode.")
 
+;;
+;; Compat
+;;
+
+(unless (fboundp 'apply-partially)
+  (defun apply-partially (fun &rest args)
+    "Return a function that is a partial application of FUN to ARGS.
+ARGS is a list of the first N arguments to pass to FUN.
+The result is a new function which does the same as FUN, except that
+the first N arguments are fixed at the values with which this function
+was called."
+    (lexical-let ((fun fun) (args1 args))
+      (lambda (&rest args2) (apply fun (append args1 args2))))))
+
 ;;
 ;; Macros
 ;;