From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Clinton Ebadi Newsgroups: gmane.lisp.guile.devel Subject: Re: GDS Result Display Bug Date: Wed, 31 Jan 2007 16:53:07 -0500 Message-ID: <87veim983g.fsf@unknownlamer.org> References: <87mz3yan4q.fsf@unknownlamer.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1170280413 32108 80.91.229.12 (31 Jan 2007 21:53:33 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 31 Jan 2007 21:53:33 +0000 (UTC) To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Wed Jan 31 22:53:17 2007 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HCNOD-000794-Sb for guile-devel@m.gmane.org; Wed, 31 Jan 2007 22:53:14 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HCNOD-0004PR-G9 for guile-devel@m.gmane.org; Wed, 31 Jan 2007 16:53:13 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HCNOB-0004Od-85 for guile-devel@gnu.org; Wed, 31 Jan 2007 16:53:11 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HCNO9-0004NK-Gr for guile-devel@gnu.org; Wed, 31 Jan 2007 16:53:10 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HCNO9-0004NG-DO for guile-devel@gnu.org; Wed, 31 Jan 2007 16:53:09 -0500 Original-Received: from sccrmhc11.comcast.net ([63.240.77.81]) by monty-python.gnu.org with esmtp (Exim 4.52) id 1HCNO8-0000f1-6k for guile-devel@gnu.org; Wed, 31 Jan 2007 16:53:09 -0500 Original-Received: from kz.homeip.net ([68.49.172.183]) by comcast.net (sccrmhc11) with ESMTP id <2007013121530701100ng1une>; Wed, 31 Jan 2007 21:53:07 +0000 Original-Received: by kz.homeip.net (Postfix, from userid 1000) id 716073CCF753; Wed, 31 Jan 2007 16:53:07 -0500 (EST) In-Reply-To: <87mz3yan4q.fsf@unknownlamer.org> (Clinton Ebadi's message of "Wed, 31 Jan 2007 16:43:01 -0500") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.92 (gnu/linux) X-detected-kernel: NetCache Data OnTap 5.x X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:6509 Archived-At: --=-=-= Oops, forgot .diff --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=gds-scheme.el.diff Index: gds-scheme.el =================================================================== RCS file: /cvsroot/guile/guile/guile-core/emacs/gds-scheme.el,v retrieving revision 1.4 diff -u -r1.4 gds-scheme.el --- gds-scheme.el 17 Jan 2007 13:38:17 -0000 1.4 +++ gds-scheme.el 31 Jan 2007 21:37:45 -0000 @@ -382,39 +382,39 @@ '(nil . "*Guile Evaluation*")))) (helpp (car helpp+bufname))) (let ((buf (get-buffer-create (cdr helpp+bufname)))) - (save-excursion - (set-buffer buf) - (gds-dissociate-buffer) - (erase-buffer) - (scheme-mode) - (insert (cdr correlator) "\n\n") - (while results - (insert (car results)) - (or (bolp) (insert "\\\n")) - (if helpp - nil - (if (cadr results) - (mapcar (function (lambda (value) - (insert " => " value "\n"))) - (cadr results)) - (insert " => no (or unspecified) value\n")) - (insert "\n")) - (setq results (cddr results))) - (if stack-available - (let ((beg (point)) - (map (make-sparse-keymap))) - (define-key map [mouse-1] 'gds-show-last-stack) - (define-key map "\C-m" 'gds-show-last-stack) - (insert "[click here to show error stack]") - (add-text-properties beg (point) - (list 'keymap map - 'mouse-face 'highlight)) - (insert "\n"))) - (goto-char (point-min)) - (gds-associate-buffer client)) - (pop-to-buffer buf) - (run-hooks 'temp-buffer-show-hook) - (other-window 1)))) + (save-selected-window + (save-excursion + (set-buffer buf) + (gds-dissociate-buffer) + (erase-buffer) + (scheme-mode) + (insert (cdr correlator) "\n\n") + (while results + (insert (car results)) + (or (bolp) (insert "\\\n")) + (if helpp + nil + (if (cadr results) + (mapcar (function (lambda (value) + (insert " => " value "\n"))) + (cadr results)) + (insert " => no (or unspecified) value\n")) + (insert "\n")) + (setq results (cddr results))) + (if stack-available + (let ((beg (point)) + (map (make-sparse-keymap))) + (define-key map [mouse-1] 'gds-show-last-stack) + (define-key map "\C-m" 'gds-show-last-stack) + (insert "[click here to show error stack]") + (add-text-properties beg (point) + (list 'keymap map + 'mouse-face 'highlight)) + (insert "\n"))) + (goto-char (point-min)) + (gds-associate-buffer client)) + (pop-to-buffer buf) + (run-hooks 'temp-buffer-show-hook))))) (defun gds-show-last-stack () "Show stack of the most recent error." --=-=-= -- http://unknownlamer.org Jabber:clinton@hcoop.net I'm just thinking aloud; isn't thinking allowed? 443E 4F1A E213 7C54 A306 E328 7601 A1F0 F403 574B --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel --=-=-=--