From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Adam Funk Newsgroups: gmane.emacs.help Subject: Re: Trouble running Emacs-EPL (to run perl in emacs). Date: Wed, 24 Jan 2007 19:03:57 +0000 Message-ID: References: <13vj84-o01.ln1@news.ducksburg.com> NNTP-Posting-Host: lo.gmane.org X-Trace: sea.gmane.org 1169667662 30568 80.91.229.12 (24 Jan 2007 19:41:02 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 24 Jan 2007 19:41:02 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jan 24 20:40:39 2007 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1H9nz0-00080U-Ar for geh-help-gnu-emacs@m.gmane.org; Wed, 24 Jan 2007 20:40:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H9nyz-0006Lt-Q4 for geh-help-gnu-emacs@m.gmane.org; Wed, 24 Jan 2007 14:40:33 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsfeed.news.ucla.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.gamma.ru!Gamma.RU!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!feeder.news-service.com!216.196.110.148.MISMATCH!border1.nntp.ams.giganews.com!nntp.giganews.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail Original-Newsgroups: gnu.emacs.help,comp.lang.perl.misc Original-Lines: 41 Original-X-Trace: individual.net wpLsDtysQf/nJqI8CKOKegnFarl5tjuU41S2dtkhPkCAAWPkAz X-Orig-Path: news.ducksburg.com!news User-Agent: slrn/0.9.8.1pl1 (Debian) Original-Xref: shelby.stanford.edu gnu.emacs.help:144997 comp.lang.perl.misc:602465 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:40604 Archived-At: On 2007-01-24, Stefan Monnier wrote: > know nothing about Emacs-EPL, but if you turn on the > "Enter Debugger on Quit/C-g" in the Options menu, then you should get > a backtrace when you hit C-g. So reproduce the above hang and then press > C-g to interrupt it and then show us the backtrace. OK, here it is. I hope someone can read it! Debugger entered--Lisp error: (quit) accept-process-output(#) (progn (accept-process-output out) (if (eobp) (error "No output from Perl"))) (if (eobp) (progn (accept-process-output out) (if ... ...))) (when (eobp) (accept-process-output out) (if (eobp) (error "No output from Perl"))) (if ch (progn (unless ... ...) (backward-char)) (when (eobp) (accept-process-output out) (if ... ...)) (forward-char) (char-before)) (save-current-buffer (set-buffer (epl-interp-buffer)) (if ch (progn ... ...) (when ... ... ...) (forward-char) (char-before))) (with-current-buffer (epl-interp-buffer) (if ch (progn ... ...) (when ... ... ...) (forward-char) (char-before))) (let* ((out ...)) (with-current-buffer (epl-interp-buffer) (if ch ... ... ... ...))) epl-read-char() read(epl-read-char) (let ((form ...) reply done msg) (epl-debug (format "Emacs(%d)<<< " ...) form "\n") (unwind-protect (setq reply ... done t) (when ... ... ...)) (epl-debug "Reply: " reply " (" (epl-interp-depth) ")\n") (setq msg (car reply) reply (cdr reply)) (cond (... ...) (... ... ... ...) (... nil) (... ... ... ...) (... ...) (... ...) (... ...) (t ...))) (while t (let (... reply done msg) (epl-debug ... form "\n") (unwind-protect ... ...) (epl-debug "Reply: " reply " (" ... ")\n") (setq msg ... reply ...) (cond ... ... ... ... ... ... ... ...)) (or epl-debugging (with-current-buffer ... ...))) (catch (quote return) (epl-debug "+++ " depth "\n") (epl-interp-set-depth (1+ depth)) (while t (let ... ... ... ... ... ...) (or epl-debugging ...))) (unwind-protect (catch (quote return) (epl-debug "+++ " depth "\n") (epl-interp-set-depth ...) (while t ... ...)) (epl-debug "--- " depth "\n") (epl-interp-set-depth depth)) (let ((depth ...)) (unwind-protect (catch ... ... ... ...) (epl-debug "--- " depth "\n") (epl-interp-set-depth depth))) epl-loop() (condition-case err (epl-loop) (error (epl-destroy) (signal ... ...))) (let* ((process-connection-type nil) (out ...) (epl-interp ...)) (condition-case err (epl-loop) (error ... ...)) (epl-interp-set-status (quote ready)) epl-interp) perl-interpreter-new() (setq perl-interpreter (perl-interpreter-new)) (if perl-interpreter (epl-check) (setq perl-interpreter (perl-interpreter-new))) epl-init() (epl-eval (epl-init) nil context "do { package main; " string " }") perl-eval("2+2" scalar-context) (prin1-to-string (perl-eval expression (if prefix ... ...))) (message (prin1-to-string (perl-eval expression ...))) perl-eval-expression("2+2" nil) * call-interactively(perl-eval-expression) execute-extended-command(nil) * call-interactively(execute-extended-command)