[slime-cvs] CVS slime/contrib
CVS User sboukarev
sboukarev at common-lisp.net
Wed May 5 16:00:44 UTC 2010
Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv20353/contrib
Modified Files:
slime-autodoc.el slime-clipboard.el
slime-compiler-notes-tree.el slime-mrepl.el
slime-presentations.el slime-repl.el slime-scratch.el
slime-sprof.el slime-typeout-frame.el slime-xref-browser.el
Log Message:
* Make buffer names more consistent.
Patch by Leo Liu.
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el 2010/04/12 18:51:02 1.44
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el 2010/05/05 16:00:44 1.45
@@ -114,7 +114,7 @@
(defun slime-fontify-string (string)
"Fontify STRING as `font-lock-mode' does in Lisp mode."
- (with-current-buffer (get-buffer-create " *slime-fontify*")
+ (with-current-buffer (get-buffer-create (slime-buffer-name :fontify 'hidden))
(erase-buffer)
(unless (eq major-mode 'lisp-mode)
;; Just calling (lisp-mode) will turn slime-mode on in that buffer,
--- /project/slime/cvsroot/slime/contrib/slime-clipboard.el 2010/04/17 18:10:20 1.5
+++ /project/slime/cvsroot/slime/contrib/slime-clipboard.el 2010/05/05 16:00:44 1.6
@@ -64,7 +64,7 @@
#'slime-clipboard-display-entries))
(defun slime-clipboard-display-entries (entries)
- (slime-with-popup-buffer ("*Slime Clipboard*"
+ (slime-with-popup-buffer ((slime-buffer-name :clipboard)
:mode 'slime-clipboard-mode)
(slime-clipboard-insert-entries entries)))
--- /project/slime/cvsroot/slime/contrib/slime-compiler-notes-tree.el 2010/04/17 18:10:20 1.4
+++ /project/slime/cvsroot/slime/contrib/slime-compiler-notes-tree.el 2010/05/05 16:00:44 1.5
@@ -22,7 +22,7 @@
"Show the compiler notes NOTES in tree view."
(interactive (list (slime-compiler-notes)))
(with-temp-message "Preparing compiler note tree..."
- (slime-with-popup-buffer ("*SLIME Compiler-Notes*"
+ (slime-with-popup-buffer ((slime-buffer-name :notes)
:mode 'slime-compiler-notes-mode)
(when (null notes)
(insert "[no notes]"))
--- /project/slime/cvsroot/slime/contrib/slime-mrepl.el 2009/01/04 20:53:06 1.2
+++ /project/slime/cvsroot/slime/contrib/slime-mrepl.el 2010/05/05 16:00:44 1.3
@@ -115,7 +115,7 @@
(slime-rcurry
(lambda (result channel)
(destructuring-bind (remote thread-id package prompt) result
- (pop-to-buffer (generate-new-buffer "*slime-listener*"))
+ (pop-to-buffer (generate-new-buffer (slime-buffer-name :listener)))
(slime-mrepl-mode)
(setq slime-current-thread thread-id)
(setq slime-buffer-connection (slime-connection))
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el 2010/04/18 01:35:10 1.31
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el 2010/05/05 16:00:44 1.32
@@ -1,4 +1,4 @@
-;;; swank-presentations.el --- imitat LispM' presentations
+;;; swank-presentations.el --- imitate LispM' presentations
;;;
;;; Authors: Alan Ruttenberg <alanr-l at mumble.net>
;;; Matthias Koeppe <mkoeppe at mail.math.uni-magdeburg.de>
@@ -485,7 +485,7 @@
(defun slime-describe-presentation (presentation)
(slime-eval-describe
`(swank::describe-to-string
- (swank::lookup-presented-object ',(slime-presentation-id presentation)))))
+ (swank:lookup-presented-object ',(slime-presentation-id presentation)))))
(defun slime-describe-presentation-at-mouse (event)
(interactive "@e")
@@ -502,7 +502,7 @@
(slime-eval-describe
`(swank::swank-pprint
(cl:list
- (swank::lookup-presented-object ',(slime-presentation-id presentation))))))
+ (swank:lookup-presented-object ',(slime-presentation-id presentation))))))
(defun slime-pretty-print-presentation-at-mouse (event)
(interactive "@e")
--- /project/slime/cvsroot/slime/contrib/slime-repl.el 2010/05/01 06:12:30 1.41
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el 2010/05/05 16:00:44 1.42
@@ -1426,7 +1426,7 @@
(defun slime-redirect-trace-output ()
"Redirect the trace output to a separate Emacs buffer."
(interactive)
- (let ((buffer (get-buffer-create "*SLIME Trace Output*")))
+ (let ((buffer (get-buffer-create (slime-buffer-name :trace))))
(with-current-buffer buffer
(let ((marker (copy-marker (buffer-size)))
(target (incf slime-last-output-target-id)))
--- /project/slime/cvsroot/slime/contrib/slime-scratch.el 2008/10/11 17:13:18 1.5
+++ /project/slime/cvsroot/slime/contrib/slime-scratch.el 2010/05/05 16:00:44 1.6
@@ -32,11 +32,11 @@
(defun slime-scratch-buffer ()
"Return the scratch buffer, create it if necessary."
- (or (get-buffer "*slime-scratch*")
+ (or (get-buffer (slime-buffer-name :scratch))
(with-current-buffer (if slime-scratch-file
(find-file slime-scratch-file)
- (get-buffer-create "*slime-scratch*"))
- (rename-buffer "*slime-scratch*")
+ (get-buffer-create (slime-buffer-name :scratch)))
+ (rename-buffer (slime-buffer-name :scratch))
(lisp-mode)
(use-local-map slime-scratch-mode-map)
(slime-mode t)
@@ -50,4 +50,4 @@
"*slime-scratch* buffer."
(slime-scratch-buffer)))
-(provide 'slime-scratch)
\ No newline at end of file
+(provide 'slime-scratch)
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el 2010/04/17 18:10:20 1.8
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el 2010/05/05 16:00:44 1.9
@@ -44,7 +44,7 @@
;; Reporting
(defun slime-sprof-format (graph)
- (with-current-buffer "*slime-sprof-browser*"
+ (with-current-buffer (slime-buffer-name :sprof)
(let ((inhibit-read-only t))
(erase-buffer)
(insert (format "%4s %-54s %6s %6s %6s\n"
@@ -64,7 +64,7 @@
(defun slime-sprof-browser ()
(interactive)
- (slime-with-popup-buffer ("*slime-sprof-browser*"
+ (slime-with-popup-buffer ((slime-buffer-name :sprof)
:connection t
:select t
:mode 'slime-sprof-browser-mode)
--- /project/slime/cvsroot/slime/contrib/slime-typeout-frame.el 2009/08/15 08:35:04 1.8
+++ /project/slime/cvsroot/slime/contrib/slime-typeout-frame.el 2010/05/05 16:00:44 1.9
@@ -24,7 +24,7 @@
"The typeout frame properties (passed to `make-frame').")
(defun slime-typeout-buffer ()
- (with-current-buffer (get-buffer-create "*SLIME Typeout*")
+ (with-current-buffer (get-buffer-create (slime-buffer-name :typeout))
(setq buffer-read-only t)
(current-buffer)))
--- /project/slime/cvsroot/slime/contrib/slime-xref-browser.el 2009/02/27 17:37:14 1.3
+++ /project/slime/cvsroot/slime/contrib/slime-xref-browser.el 2010/05/05 16:00:44 1.4
@@ -26,7 +26,7 @@
"Read the name of a class and show its subclasses."
(interactive (list (slime-read-symbol-name "Class Name: ")))
(slime-call-with-browser-setup
- "*slime class browser*" (slime-current-package) "Class Browser"
+ (slime-buffer-name :browser) (slime-current-package) "Class Browser"
(lambda ()
(widget-create 'tree-widget :tag name
:expander 'slime-expand-class-node
@@ -96,7 +96,7 @@
'(":callers" ":callees" ":calls"))
nil t ":"))))
(slime-call-with-browser-setup
- "*slime xref browser*" (slime-current-package) "Xref Browser"
+ (slime-buffer-name :xref) (slime-current-package) "Xref Browser"
(lambda ()
(widget-create 'tree-widget :tag name :xref-type type :xref-dspec name
:expander 'slime-expand-xrefs :has-echildren t))))
More information about the slime-cvs
mailing list