From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Paulo Jorge de Oliveira Cantante de Matos Newsgroups: gmane.emacs.help Subject: Problem with some Elisp to start NuPRL5 Date: Sun, 21 Mar 2004 20:41:27 +0000 Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <1079901687.17852.6.camel@localhost> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1079901870 2688 80.91.224.253 (21 Mar 2004 20:44:30 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 21 Mar 2004 20:44:30 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Mar 21 21:44:24 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B59nz-0007el-01 for ; Sun, 21 Mar 2004 21:44:24 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B59lz-00078C-SG for geh-help-gnu-emacs@m.gmane.org; Sun, 21 Mar 2004 15:42:19 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1B59lm-00077x-RO for help-gnu-emacs@gnu.org; Sun, 21 Mar 2004 15:42:06 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1B59lG-00073m-0C for help-gnu-emacs@gnu.org; Sun, 21 Mar 2004 15:42:05 -0500 Original-Received: from [213.228.128.91] (helo=front3.netvisao.pt) by monty-python.gnu.org with smtp (Exim 4.30) id 1B59lF-00073i-Gd for help-gnu-emacs@gnu.org; Sun, 21 Mar 2004 15:41:33 -0500 Original-Received: (qmail 16147 invoked by uid 103); 21 Mar 2004 20:44:18 -0000 Original-Received: from unknown (HELO front4.netvisao.pt) (213.228.128.143) by front3.netvisao.pt with SMTP; 21 Mar 2004 20:44:18 -0000 Original-Received: (qmail 12519 invoked by uid 503); 21 Mar 2004 20:44:29 -0000 Original-Received: from unknown (HELO descartes) (217.129.147.210) by mail.netvisao.pt with SMTP; 21 Mar 2004 20:44:29 -0000 Original-To: Emacs ML X-Mailer: Ximian Evolution 1.4.5 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:17616 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:17616 Hi all, Some instruction and elisp code comes with NuPRL5 to start the program. http://www.cs.cornell.edu/Info/Projects/NuPrl/html/NuprlSystem.html The issue is that the code is not running correctly in the latest emacs version I have. The code is as follows: ------------------------------------------------- (defun nuprl5 () (interactive) (message "Starting NuPRL 5 Library, Editor, and Refiner ...") (nulib) (sleep-for 5) (nuedit) (nurefine) ) (defun nuprl-frame (bufname height top-corner cmd) (save-excursion (set-buffer (make-comint bufname "/bin/csh" nil "-v")) (switch-to-buffer-other-frame (concat "*" bufname "*")) (let ((NuPRLframe (car (cadr (current-frame-configuration))))) (set-frame-size NuPRLframe 81 height) (set-frame-position NuPRLframe 515 top-corner) ) (set-default-font "6x10") (while (= (buffer-size) 0) (sleep-for 1)) (comint-send-string bufname "limit coredumpsize 0\n") (comint-send-string bufname cmd) ) ) (defun nulib () (interactive) (nuprl-frame "NuLibrary" 10 76 "/home/pmatos/nuprl/bin/nulib\n") (message "Starting Library ...") (set-foreground-color "Red") (set-background-color "#ddddff") (comint-send-string "NuLibrary" "(top)\n") (comint-send-string "NuLibrary" "go.\n") ) (defun nurefine () (interactive) (nuprl-frame "NuRefine" 10 280 "/home/pmatos/nuprl/bin/nuref\n") (message "Starting Refiner ...") (set-foreground-color "Green4") (set-background-color "#ffffbb") (comint-send-string "NuRefine" "(top)\n") (comint-send-string "NuRefine" "go.\n") ) (defun nuedit () (interactive) (nuprl-frame "NuEditor" 10 178 "/home/pmatos/nuprl/bin/nuedd\n") (message "Starting Editor ... please be patient") (set-foreground-color "midnightblue") (set-background-color "#ffd8ff") (comint-send-string "NuEditor" "(top)\n") (comint-send-string "NuEditor" "go.\n") (comint-send-string "NuEditor" "win.\n") ) (defun nuxit () (interactive) (message "Shutting Down NuPRL 5 Library, Editor, and Refiner ...") (comint-send-string "NuEditor" "stop.\n") (comint-send-string "NuRefiner" "stop.\n") (sleep-for 5) ) ------------------------------ when I do M-x nuprl5 I get: save-excursion: Wrong type argument: stringp, nil I really don't know what's going on. I read http://www-2.cs.cmu.edu/cgi-bin/info2www?(elisp)Excursions however, I can't understand what's wrong with the code, can somebody please help? Cheers, -- Paulo J. Matos : pocm [_at_] mega . ist . utl . pt Instituto Superior Tecnico - Lisbon Computer and Software Eng. - A.I. - > http://mega.ist.utl.pt/~pocm --- -> God had a deadline... So, he wrote it all in Lisp!