mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* gds-scheme.el (gds-display-results): Use save-selected-window

Browse source 
instead of switching to other-window in order to return to the
        proper window in frames with more than two windows.
This commit is contained in:
Neil Jerram 2007-02-06 23:31:03 +00:00
parent 2656b1b208
commit ed1dec3ce3
2 changed files with 39 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

6
emacs/ChangeLog
View file

@ -1,3 +1,9 @@
2007-02-06 Clinton Ebadi <clinton@unknownlamer.org>
* gds-scheme.el (gds-display-results): Use save-selected-window
instead of switching to other-window in order to return to the
proper window in frames with more than two windows.
2007-01-17 Neil Jerram <neil@ossau.uklinux.net>
* gds-scheme.el (gds-display-results): Add another binding for

4
emacs/gds-scheme.el
View file

@ -382,6 +382,7 @@ region's code."
'(nil . "*Guile Evaluation*"))))
(helpp (car helpp+bufname)))
(let ((buf (get-buffer-create (cdr helpp+bufname))))
(save-selected-window
(save-excursion
(set-buffer buf)
(gds-dissociate-buffer)
@ -413,8 +414,7 @@ region's code."
(goto-char (point-min))
(gds-associate-buffer client))
(pop-to-buffer buf)
(run-hooks 'temp-buffer-show-hook)
(other-window 1))))
(run-hooks 'temp-buffer-show-hook)))))
(defun gds-show-last-stack ()
"Show stack of the most recent error."