mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

* guile-c.el (guile-c-window-configuration): New variable.

Browse source 
(guile-c-edit-docstring, guile-c-edit-finish):
	Save/restore window-configuration.
This commit is contained in:
Keisuke Nishida 2001-03-13 05:49:19 +00:00
parent 1a92274c8e
commit f7fd6a7389
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
emacs/ChangeLog
View file

@ -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> 2001-03-12 Keisuke Nishida <kxn30@po.cwru.edu>
* guile-c.el (guile-c-deprecate-region): New command. * guile-c.el (guile-c-deprecate-region): New command.

5
emacs/guile-c.el
View file

@ -98,12 +98,15 @@
;;; Edit docstrings ;;; Edit docstrings
;;; ;;;
(defvar guile-c-window-configuration nil)
(defun guile-c-edit-docstring () (defun guile-c-edit-docstring ()
(interactive) (interactive)
(let* ((region (guile-c-find-docstring)) (let* ((region (guile-c-find-docstring))
(doc (if region (buffer-substring (car region) (cdr region))))) (doc (if region (buffer-substring (car region) (cdr region)))))
(if (not doc) (if (not doc)
(error "No docstring!") (error "No docstring!")
(setq guile-c-window-configuration (current-window-configuration))
(with-current-buffer (get-buffer-create "*Guile Docstring*") (with-current-buffer (get-buffer-create "*Guile Docstring*")
(erase-buffer) (erase-buffer)
(insert doc) (insert doc)
@ -140,7 +143,7 @@
(forward-line 1))) (forward-line 1)))
(let ((doc (buffer-string))) (let ((doc (buffer-string)))
(kill-buffer (current-buffer)) (kill-buffer (current-buffer))
(delete-window (selected-window)) (set-window-configuration guile-c-window-configuration)
(let ((region (guile-c-find-docstring))) (let ((region (guile-c-find-docstring)))
(goto-char (car region)) (goto-char (car region))
(delete-region (car region) (cdr region))) (delete-region (car region) (cdr region)))