[MLton-commit] r5115

[Vesa Karvonen]

Changed quote to function (which is recommended for functions).

----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/esml-mlb-mode.el

----------------------------------------------------------------------

Modified: mlton/trunk/ide/emacs/esml-mlb-mode.el
===================================================================
--- mlton/trunk/ide/emacs/esml-mlb-mode.el	2007-02-03 12:52:05 UTC (rev 5114)
+++ mlton/trunk/ide/emacs/esml-mlb-mode.el	2007-02-03 12:53:12 UTC (rev 5115)
@@ -200,7 +200,7 @@
 
 (defun esml-mlb-parse-path-variables-from-string (path-map-string)
   (mapcar (function
-           (lambda (s) (apply 'cons (esml-split-string s "[ \t]+"))))
+           (lambda (s) (apply (function cons) (esml-split-string s "[ \t]+"))))
           (esml-split-string path-map-string "[ \t]*\n+[ \t]*")))
 
 (defun esml-mlb-parse-path-variables ()
@@ -247,7 +247,7 @@
                 parts)
           (delete-char (- 1 (point))))
         (goto-char 0)))
-    (apply 'concat (reverse parts))))
+    (apply (function concat) (reverse parts))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Syntax and highlighting
@@ -320,7 +320,7 @@
            . font-lock-constant-face)
           ;; annotations
           (,(apply
-             'concat
+             (function concat)
              "\"[ \t]*" esml-mlb-compiler-ann-prefix "?\\("
              (reduce
               (function