(sml-font-lock-symbols-alist): Add yet more silly entries.

diff --git a/ChangeLog b/ChangeLog
index d90e38c75d9014a5e7e07abcd82287d477c9c15d..13101a2693cc726f1c700d8e7e128d550c7150e2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,31 @@
+2004-11-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+ 
+       * sml-mode.el (sml-font-lock-symbols-alist): Add yet more silly entries.
+ 
+2004-11-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * sml-mode.el (sml-font-lock-symbols-alist): Add entries for >= and <=.
+       (sml-font-lock-symbols-alist): Add entries for simple type variables.
+       (sml-font-lock-compose-symbol): Add support for non-punctuation syms.
+
 2004-11-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * Makefile (install_startup): Don't add to load-path any more.
 
        * sml-proc.el (sml-make-error): Use match-string.
 
+2004-04-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * sml-proc.el (sml-error-regexp-alist): Use new compile.el features
+       if available.
+       (sml-send-region): Remove unused var `file'.
+       (sml-drag-region): Remove unused function.
+       (sml-update-cursor): Use compilation-fake-loc if available.
+       (compilation-goto-locus): Only advise if necessary.
+
+       * sml-mode.el: Add self to load-path in sml-mode-startup.el.
+       (sml-def-skeleton): Try to use the new `system' abbrev flag.
+
 2004-04-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * testcases.sml: Add a nasty case that is still wrong.

diff --git a/sml-mode.el b/sml-mode.el
index 7186550812e02e29ed4f9f029bd3f37924a5c811..5c882551f6f5e83931bb599c4fbd8671d4ed0c75 100644 (file)
--- a/sml-mode.el
+++ b/sml-mode.el
@@ -191,11 +191,19 @@ and `unicode'."
    (and (fboundp 'make-char) (charsetp 'japanese-jisx0208)
        (memq sml-font-lock-symbols '(t japanese-jisx0208))
        (list (cons "fn" (make-char 'japanese-jisx0208 38 75))
+             (cons "andalso" (make-char 'japanese-jisx0208 34 74))
+             (cons "orelse" (make-char 'japanese-jisx0208 34 75))
+             ;; (cons "as" (make-char 'japanese-jisx0208 34 97))
+             (cons "not" (make-char 'japanese-jisx0208 34 76))
+             (cons "div" (make-char 'japanese-jisx0208 33 96))
+             ;; (cons "*" (make-char 'japanese-jisx0208 33 95))
              (cons "->" (make-char 'japanese-jisx0208 34 42))
              (cons "=>" (make-char 'japanese-jisx0208 34 77))
              (cons "<-" (make-char 'japanese-jisx0208 34 43))
+             (cons "<>" (make-char 'japanese-jisx0208 33 98))
              (cons ">=" (make-char 'japanese-jisx0208 33 102))
              (cons "<=" (make-char 'japanese-jisx0208 33 101))
+             (cons "..." (make-char 'japanese-jisx0208 33 68))
              ;; Some greek letters for type parameters.
              (cons "'a" (make-char 'japanese-jisx0208 38 65))
              (cons "'b" (make-char 'japanese-jisx0208 38 66))
@@ -206,12 +214,20 @@ and `unicode'."
    (and (fboundp 'decode-char)
        (memq sml-font-lock-symbols '(t unicode))
        (list (cons "fn" (decode-char 'ucs 955))
+             (cons "andalso" (decode-char 'ucs 8896))
+             (cons "orelse" (decode-char 'ucs 8897))
+             ;; (cons "as" (decode-char 'ucs 8801))
+             (cons "not" (decode-char 'ucs 160))
+             (cons "div" (decode-char 'ucs 247))
+             (cons "*" (decode-char 'ucs 215))
              (cons "o"  (decode-char 'ucs 9675))
              (cons "->" (decode-char 'ucs 8594))
              (cons "=>" (decode-char 'ucs 8658))
              (cons "<-" (decode-char 'ucs 8592))
+             (cons "<>" (decode-char 'ucs 8800))
              (cons ">=" (decode-char 'ucs 8805))
              (cons "<=" (decode-char 'ucs 8804))
+             (cons "..." (decode-char 'ucs 8943))
              ;; (cons "::" (decode-char 'ucs 8759))
              ;; Some greek letters for type parameters.
              (cons "'a" (decode-char 'ucs 945))