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

[Marco Baringer]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
See ChangeLog entry 2004-05-14  Marco Baringer

Date: Fri May 14 06:39:08 2004
Author: mbaringer

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.375 slime/ChangeLog:1.376
--- slime/ChangeLog:1.375	Thu May 13 00:47:51 2004
+++ slime/ChangeLog	Fri May 14 06:39:07 2004
@@ -1,3 +1,13 @@
+2004-05-14  Marco Baringer <mb at bese.it>
+
+	* slime.el (slime-with-output-to-temp-buffer): Now takes a
+	package arg specifying what slime-buffer-package should be in the
+	generated buffer. 
+	(slime-show-description): actually pass the package arg.
+	(slime-show-apropos): pass the package arg to
+	slime-with-output-to-temp-buffer.
+	(slime-list-repl-shortcuts): pass a package arg.
+	
 2004-05-12  Alan Ruttenberg  <alanr-l at mumble.net>
 	* swank-openmcl.lisp: Fixes to support openmcl 0.14.2 changes in
 	backtrace protocol, from Gary Byers.


Index: slime/slime.el
diff -u slime/slime.el:1.300 slime/slime.el:1.301
--- slime/slime.el:1.300	Wed May 12 12:21:13 2004
+++ slime/slime.el	Fri May 14 06:39:07 2004
@@ -924,7 +924,7 @@
 (slime-define-keys slime-temp-buffer-mode-map
   ("q" 'slime-temp-buffer-quit))
 
-(defmacro slime-with-output-to-temp-buffer (name &rest body)
+(defmacro slime-with-output-to-temp-buffer (name package &rest body)
   "Similar to `with-output-to-temp-buffer'.
 Also saves the window configuration, and inherits the current
 `slime-connection' in a buffer-local variable."
@@ -946,6 +946,7 @@
          (set-syntax-table lisp-mode-syntax-table)
          (slime-temp-buffer-mode 1)
          (setq buffer-read-only t)
+         (setq slime-buffer-package ,package)
          (unless (get-buffer-window (current-buffer) t)
            (switch-to-buffer-other-window (current-buffer))))))))
 
@@ -4151,8 +4152,7 @@
   (hyperspec-lookup symbol-name))
   
 (defun slime-show-description (string package)
-  (slime-with-output-to-temp-buffer "*SLIME Description*"
-    (princ string)))
+  (slime-with-output-to-temp-buffer "*SLIME Description*" package (princ string)))
 
 (defun slime-describe-symbol (symbol-name)
   "Describe the symbol at point."
@@ -4220,14 +4220,13 @@
 (defun slime-show-apropos (plists string package summary)
   (if (null plists)
       (message "No apropos matches for %S" string)
-    (slime-with-output-to-temp-buffer "*SLIME Apropos*"
+    (slime-with-output-to-temp-buffer "*SLIME Apropos*" package
       (apropos-mode)
       (set-syntax-table lisp-mode-syntax-table)
       (slime-mode t)
       (if (boundp 'header-line-format)
           (setq header-line-format summary)
         (insert summary "\n\n"))
-      (setq slime-buffer-package package)
       (slime-set-truncate-lines)
       (slime-print-apropos plists))))
 
@@ -5987,7 +5986,7 @@
 
 (defun slime-list-repl-short-cuts ()
   (interactive)
-  (slime-with-output-to-temp-buffer "*slime-repl-help*"
+  (slime-with-output-to-temp-buffer "*slime-repl-help*" nil
     (let ((table (sort* slime-repl-shortcut-table #'string<
                         :key (lambda (x) 
                                (car (slime-repl-shortcut.names x))))))