[MLton-commit] r5133

[Vesa Karvonen]

Renamed kind -> class.

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

U   mlton/trunk/ide/emacs/def-use-data.el
U   mlton/trunk/ide/emacs/def-use-mode.el
U   mlton/trunk/ide/emacs/esml-du-mlton.el

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

Modified: mlton/trunk/ide/emacs/def-use-data.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-data.el	2007-02-05 09:56:54 UTC (rev 5132)
+++ mlton/trunk/ide/emacs/def-use-data.el	2007-02-05 10:02:08 UTC (rev 5133)
@@ -24,11 +24,11 @@
       (and (equal (def-use-ref-src lhs) (def-use-ref-src rhs))
            (def-use-pos< (def-use-ref-pos lhs) (def-use-ref-pos rhs)))))
 
-(defun def-use-sym (kind name ref &optional face)
+(defun def-use-sym (class name ref &optional face)
   "Symbol constructor."
-  (cons ref (cons name (cons kind face))))
+  (cons ref (cons name (cons class face))))
 (defalias 'def-use-sym-face (function cdddr))
-(defalias 'def-use-sym-kind (function caddr))
+(defalias 'def-use-sym-class (function caddr))
 (defalias 'def-use-sym-name (function cadr))
 (defalias 'def-use-sym-ref (function car))
 

Modified: mlton/trunk/ide/emacs/def-use-mode.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-mode.el	2007-02-05 09:56:54 UTC (rev 5132)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-02-05 10:02:08 UTC (rev 5133)
@@ -328,7 +328,7 @@
 (defun def-use-format-sym-title (sym)
   "Formats a title for the symbol"
   (concat (def-use-add-face 'font-lock-keyword-face
-            (copy-sequence (def-use-sym-kind sym)))
+            (copy-sequence (def-use-sym-class sym)))
           " "
           (def-use-add-face (def-use-sym-face sym)
             (copy-sequence (def-use-sym-name sym)))))

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 09:56:54 UTC (rev 5132)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 10:02:08 UTC (rev 5133)
@@ -103,7 +103,7 @@
       (skip-chars-forward skipping)
       result)))
 
-(defconst esml-du-kinds ;; XXX Needs customization
+(defconst esml-du-classes ;; XXX Needs customization
   `((,(def-use-intern "variable")    . ,font-lock-variable-name-face)
     (,(def-use-intern "type")        . ,font-lock-variable-name-face)
     (,(def-use-intern "constructor") . ,font-lock-variable-name-face)
@@ -151,15 +151,15 @@
         (goto-char 1)
         (let* ((ref-to-sym (esml-du-ctx-ref-to-sym-table ctx))
                (sym-to-uses (esml-du-ctx-sym-to-uses-table ctx))
-               (kind (def-use-intern (esml-du-read "^ " " ")))
+               (class (def-use-intern (esml-du-read "^ " " ")))
                (name (def-use-intern (esml-du-read "^ " " ")))
                (src (def-use-file-truename (esml-du-read "^ " " ")))
                (line (string-to-int (esml-du-read "^." ".")))
                (col (- (string-to-int (esml-du-read "^\n" "\n")) 1))
                (pos (def-use-pos line col))
                (ref (def-use-ref src pos))
-               (sym (def-use-sym kind name ref
-                      (cdr (assoc kind esml-du-kinds))))
+               (sym (def-use-sym class name ref
+                      (cdr (assoc class esml-du-classes))))
                (uses nil))
           (puthash ref sym ref-to-sym)
           (while (< 0 (skip-chars-forward " "))