[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv5471

Modified Files:
	slime.el 
Log Message:
(slime-list-compiler-notes): Save the window configuration
earlier. This fixes an error under XEmacs when dismissing the
notes buffer.

Date: Fri Jun 18 10:50:03 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.318 slime/slime.el:1.319
--- slime/slime.el:1.318	Fri Jun 18 10:43:14 2004
+++ slime/slime.el	Fri Jun 18 10:50:03 2004
@@ -2858,7 +2858,10 @@
 (defun slime-list-compiler-notes (&optional notes)
   "Show the compiler notes NOTES in tree view."
   (interactive)
-  (let ((notes (or notes (slime-compiler-notes))))
+  (let ((notes (or notes (slime-compiler-notes)))
+        ;; We have to grab the window configuration before switching
+        ;; buffers in XEmacs.
+        (window-config (current-window-configuration)))
     (with-current-buffer (get-buffer-create "*compiler notes*")
       (let ((inhibit-read-only t))
         (erase-buffer)
@@ -2871,7 +2874,7 @@
       (setq buffer-read-only t)
       (make-local-variable 'slime-compiler-notes-saved-window-configuration)
       (setq slime-compiler-notes-saved-window-configuration
-            (current-window-configuration))
+            window-config)
       (goto-char (point-min))
       (pop-to-buffer (current-buffer)))))