(vip-custom-file-name): Use convert-standard-filename.

[bpt/emacs.git] / lisp / emulation / mlconvert.el

diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 54b1777..491799c 100644 (file)
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -2,11 +2,14 @@
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: emulations
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;; This package converts Mocklisp code written under a Gosling or UniPress
+;; Emacs for use with GNU Emacs.  The translated code will require runtime
+;; support from the mlsupport.el equivalent.
+
+;;; Code:
+
 ;;;###autoload
 (defun convert-mocklisp-buffer ()
   "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run."
@@ -99,19 +110,19 @@
                       (if (looking-at "setq[ \t\n]+buffer-modified-p")
                           (replace-match "set-buffer-modified-p"))))
 
-(ml-expansion 'while '(lambda ()
-                        (let ((end (progn (forward-sexp 2) (point-marker)))
-                              (start (progn (forward-sexp -1) (point))))
-                          (let ((cond (buffer-substring start end)))
-                            (cond ((equal cond "1")
-                                   (delete-region (point) end)
-                                   (insert "t"))
-                                  (t
-                                   (insert "(not (zerop ")
-                                   (goto-char end)
-                                   (insert "))")))
-                            (set-marker end nil)
-                            (goto-char start)))))
+;;(ml-expansion 'while '(lambda ()
+;;                      (let ((end (progn (forward-sexp 2) (point-marker)))
+;;                            (start (progn (forward-sexp -1) (point))))
+;;                        (let ((cond (buffer-substring start end)))
+;;                          (cond ((equal cond "1")
+;;                                 (delete-region (point) end)
+;;                                 (insert "t"))
+;;                                (t
+;;                                 (insert "(not (zerop ")
+;;                                 (goto-char end)
+;;                                 (insert "))")))
+;;                          (set-marker end nil)
+;;                          (goto-char start)))))
 
 (ml-expansion 'arg "ml-arg")
 (ml-expansion 'nargs "ml-nargs")
@@ -183,6 +194,7 @@
 (ml-expansion 'get-tty-no-blanks-input "read-no-blanks-input")
 (ml-expansion 'get-tty-key "read-key")
 
+(ml-expansion 'concat "ml-concat")
 (ml-expansion 'c= "char-equal")
 (ml-expansion 'goto-character "goto-char")
 (ml-expansion 'substr "ml-substr")
@@ -248,8 +260,8 @@
 (ml-expansion 'file-modified-time "you-lose-on-file-modified-time")
 (ml-expansion 'needs-checkpointing "you-lose-on-needs-checkpointing")
 
-(ml-expansion 'lines-on-screen "set-screen-height")
-(ml-expansion 'columns-on-screen "set-screen-width")
+(ml-expansion 'lines-on-screen "set-frame-height")
+(ml-expansion 'columns-on-screen "set-frame-width")
 
 (ml-expansion 'dumped-emacs "t")