diff options
| author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-13 05:49:19 +0000 |
|---|---|---|
| committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-13 05:49:19 +0000 |
| commit | f7fd6a73897f915c5079c9e7877e5a19b03948ba (patch) | |
| tree | adb8057c2b03be5f6451e3667d991c294dcd965f /emacs | |
| parent | 1a92274c8e2b588f917231586deb93f4b85c7c53 (diff) | |
| download | guile-f7fd6a73897f915c5079c9e7877e5a19b03948ba.tar.gz | |
* guile-c.el (guile-c-window-configuration): New variable.
(guile-c-edit-docstring, guile-c-edit-finish):
Save/restore window-configuration.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/ChangeLog | 6 | ||||
| -rw-r--r-- | emacs/guile-c.el | 5 |
2 files changed, 10 insertions, 1 deletions
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 <kxn30@po.cwru.edu> + + * 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 <kxn30@po.cwru.edu> * 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))) |