Re: GDS Result Display Bug

[Clinton Ebadi]

Oops, forgot .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:address@hidden
I'm just thinking aloud; isn't thinking allowed?
443E 4F1A E213 7C54 A306  E328 7601 A1F0 F403 574B