From f7fd6a73897f915c5079c9e7877e5a19b03948ba Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Tue, 13 Mar 2001 05:49:19 +0000 Subject: [PATCH] * guile-c.el (guile-c-window-configuration): New variable. (guile-c-edit-docstring, guile-c-edit-finish): Save/restore window-configuration. --- emacs/ChangeLog | 6 ++++++ emacs/guile-c.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/emacs/ChangeLog b/emacs/ChangeLog index a816ff5df..deb07922b 100644 --- a/emacs/ChangeLog +++ b/emacs/ChangeLog @@ -1,3 +1,9 @@ +2001-03-13 Keisuke Nishida + + * guile-c.el (guile-c-window-configuration): New variable. + (guile-c-edit-docstring, guile-c-edit-finish): + Save/restore window-configuration. + 2001-03-12 Keisuke Nishida * guile-c.el (guile-c-deprecate-region): New command. diff --git a/emacs/guile-c.el b/emacs/guile-c.el index 3c7344985..ada1dedf5 100644 --- a/emacs/guile-c.el +++ b/emacs/guile-c.el @@ -98,12 +98,15 @@ ;;; Edit docstrings ;;; +(defvar guile-c-window-configuration nil) + (defun guile-c-edit-docstring () (interactive) (let* ((region (guile-c-find-docstring)) (doc (if region (buffer-substring (car region) (cdr region))))) (if (not doc) (error "No docstring!") + (setq guile-c-window-configuration (current-window-configuration)) (with-current-buffer (get-buffer-create "*Guile Docstring*") (erase-buffer) (insert doc) @@ -140,7 +143,7 @@ (forward-line 1))) (let ((doc (buffer-string))) (kill-buffer (current-buffer)) - (delete-window (selected-window)) + (set-window-configuration guile-c-window-configuration) (let ((region (guile-c-find-docstring))) (goto-char (car region)) (delete-region (car region) (cdr region)))