[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv20279

Modified Files:
	ChangeLog slime.el 
Log Message:
Rename slime-insert-possibly-as-rectangle to slime-insert-indented.

* slime.el (slime-insert-indented): Renamed. Update callers.



--- /project/slime/cvsroot/slime/ChangeLog	2007/08/31 13:11:03	1.1192
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/04 09:42:41	1.1193
@@ -1,3 +1,9 @@
+2007-09-04  Helmut Eller  <heller at common-lisp.net>
+
+	Rename slime-insert-possibly-as-rectangle to slime-insert-indented.
+
+	* slime.el (slime-insert-indented): Renamed. Update callers.
+
 2007-08-31  Helmut Eller  <heller at common-lisp.net>
 
 	Move compound prefix completion and autodoc to contrib.
--- /project/slime/cvsroot/slime/slime.el	2007/08/31 13:10:47	1.841
+++ /project/slime/cvsroot/slime/slime.el	2007/09/04 09:42:41	1.842
@@ -1146,7 +1146,7 @@
 (put 'slime-with-rigid-indentation 'lisp-indent-function 1)
 
 (defun slime-indent-rigidly (start end column)
-  "Similar to `indent-rigidly' but doesn't inherit text props."
+  ;; Similar to `indent-rigidly' but doesn't inherit text props.
   (save-excursion
     (goto-char end)
     (beginning-of-line)
@@ -1155,7 +1155,8 @@
                   (save-excursion (insert-char ?\  column))
                   (zerop (forward-line -1)))))))
 
-(defun slime-insert-possibly-as-rectangle (&rest strings)
+(defun slime-insert-indented (&rest strings)
+  "Insert all arguments rigidly indented."
   (slime-with-rigid-indentation nil
     (apply #'insert strings)))
 
@@ -6966,7 +6967,7 @@
       (slime-propertize-region props
         (slime-propertize-region '(mouse-face highlight)
           (insert " " (in-sldb-face frame-label (format "%2d:" number)) " ")
-          (slime-insert-possibly-as-rectangle
+          (slime-insert-indented
            (slime-add-face (or face 'sldb-frame-line-face)
                            string)))
         (insert "\n")))))
@@ -9712,7 +9713,6 @@
           slime-print-apropos
           slime-show-note-counts
           slime-insert-propertized
-          slime-insert-possibly-as-rectangle
           slime-tree-insert)))
 
 (run-hooks 'slime-load-hook)