[MLton-commit] r7457

Matthew Fluet fluet at mlton.org
Mon May 3 08:41:58 PDT 2010


Updates to mlton.el, from Sean McLaughlin.

* Replace removed elisp function (sub1 x) with (- x 1)
* Replace old-style backquotes with new-style backquotes.


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

U   mlton/trunk/ide/emacs/mlton.el

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

Modified: mlton/trunk/ide/emacs/mlton.el
===================================================================
--- mlton/trunk/ide/emacs/mlton.el	2010-05-02 11:40:23 UTC (rev 7456)
+++ mlton/trunk/ide/emacs/mlton.el	2010-05-03 15:41:57 UTC (rev 7457)
@@ -44,7 +44,7 @@
                  (marker (save-excursion
                            (find-file file)
                            (goto-line line)
-                           (forward-char (sub1 col))
+                           (forward-char (- col 1))
                            (set-marker (make-marker) (point)))))
             (beginning-of-line)
             (forward-line)
@@ -72,9 +72,9 @@
    "\\(\\([-a-zA-Z0-9/.]\\)+\\)\\(\\.\\)\\(\\(cm\\)\\|\\(fun\\)\\|\\(grm\\)\\|\\(lex\\)\\|\\(mlb\\)\\|\\(sig\\)\\|\\(sml\\)\\|\\(ML\\)\\)")
 
 (defmacro save-buffer-excursion (&rest exps)
-  (` (let ((old-buffer (current-buffer)))
-       (,@ exps)
-       (set-buffer old-buffer))))
+  `(let ((old-buffer (current-buffer)))
+     (,@ exps)
+     (set-buffer old-buffer)))
 
 (defun sml-save-buffers ()
   (save-buffer-excursion




More information about the MLton-commit mailing list