From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Orm Finnendahl Newsgroups: gmane.emacs.help Subject: no connection lisp-mode buffer and *inferior-lisp* Date: Sun, 12 Oct 2003 12:23:26 +0200 Organization: Folkwang-Hochschule, Essen, Germany Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <20031012102326.GB1128@finnendahl.de> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 X-Trace: sea.gmane.org 1065954338 16798 80.91.224.253 (12 Oct 2003 10:25:38 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 12 Oct 2003 10:25:38 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Oct 12 12:25:36 2003 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 1A8dPs-0002U8-00 for ; Sun, 12 Oct 2003 12:25:36 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1A8dOw-0005N1-Cy for geh-help-gnu-emacs@m.gmane.org; Sun, 12 Oct 2003 06:24:38 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1A8dOT-0005Lz-L4 for help-gnu-emacs@gnu.org; Sun, 12 Oct 2003 06:24:09 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1A8dNx-0005Ci-GH for help-gnu-emacs@gnu.org; Sun, 12 Oct 2003 06:24:08 -0400 Original-Received: from [193.175.156.129] (helo=icemserv.folkwang-hochschule.de) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.24) id 1A8dNw-0005Aj-Gw for help-gnu-emacs@gnu.org; Sun, 12 Oct 2003 06:23:36 -0400 Original-Received: from grisey.local (root@icemserv.folkwang-hochschule.de [193.175.156.129]) by icemserv.folkwang-hochschule.de (8.11.6/8.11.6) with ESMTP id h9CAToS94897 for ; Sun, 12 Oct 2003 12:29:50 +0200 (CEST) (envelope-from finnendahl@folkwang-hochschule.de) Original-Received: from orm by grisey.local with local (Exim 3.36 #1 (Debian)) id 1A8dNm-0000T4-00 for ; Sun, 12 Oct 2003 12:23:26 +0200 Original-To: help-gnu-emacs-mailing-list Mail-Followup-To: help-gnu-emacs-mailing-list Content-Disposition: inline X-Operating-System: Linux User-Agent: Mutt/1.5.4i X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 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:13146 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:13146 Hi, since upgrading to emacs 21.3 I can't get the connection between a source lisp file and an inferior lisp buffer. It used to work fine before. I started up an inferior lisp with "M-x run-lisp", which establishes an *inferior-lisp* buffer. Trying to evaluate an expression in a lisp-mode buffer, I get the error "You must start an inferior LISP with run-ilisp" in the command buffer. Doing that and specifying "lisp" as the Dialect won't help either. Below is my configuration concerning lisp/scheme in my .emacs. I had the same problem with scheme but found out that this goes away if I switch to scheme-mode in an arbitrary buffer *before* issuing "M-x run-scheme". After that it works with all scheme-mode buffers. I suspect some scheme-mode hook taking care of establishing a link between scheme mode buffers and the scheme process but couldn't find the culprit. Now I just have (scheme-mode) in my .emacs as a workaround. I'd rather solve that cleaner though. Thanx for any hints, Orm -------------------------------------------------------------------- (setq inferior-lisp-program "/usr/local/bin/clisp") (load-library "ilisp-scheme-easy-menu") (setq scheme-program-name "guile -l /usr/share/guile/site/siteinit.scm") (setq guile-program "guile -l /usr/share/guile/site/siteinit.scm") ;; Add new keybindings: C-x C-e evaluates the *next* form, ;; C-x C-m macroexpands the next form. (defun lisp-eval-sexp (&optional and-go) "Send the next sexp to the inferior Lisp process. Prefix argument means switch to the Lisp buffer afterwards." (interactive "P") (lisp-eval-region (point) (save-excursion (forward-sexp) (point)) and-go ) ) (defun lisp-macroexpand-region (start end &optional and-go) "Macroexpand the current region in the inferior Lisp process. Prefix argument means switch to the Lisp buffer afterwards." (interactive "r\nP") (comint-send-string (inferior-lisp-proc) (format "(macroexpand-1 (quote %s))\n" (buffer-substring start end)) ) (if and-go (switch-to-lisp t)) ) (defun lisp-macroexpand-sexp (&optional and-go) "Macroexpand the next sexp in the inferior Lisp process. Prefix argument means switch to the Lisp buffer afterwards." (interactive "P") (lisp-macroexpand-region (point) (save-excursion (forward-sexp) (point)) and-go ) ) ;; Define the great keybindings. (inferior-lisp-install-letter-bindings) ------------------------------------------------------------------------