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

[Marco Baringer]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
See ChangeLog entry 2004-04-09 Lawrence Mitchell

Date: Fri Apr  9 16:48:14 2004
Author: mbaringer

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.330 slime/ChangeLog:1.331
--- slime/ChangeLog:1.330	Thu Apr  8 11:26:44 2004
+++ slime/ChangeLog	Fri Apr  9 16:48:13 2004
@@ -1,3 +1,9 @@
+2004-04-09  Lawrence Mitchell  <wence at gmx.li>
+
+	* slime.el (slime-same-line-p): Use `line-end-position', rather
+	than searching for a newline manually.
+	(slime-repl-defparameter): Use VALUE, not VALUE-FORM.
+
 2004-04-08  Marco Baringer  <mb at bese.it>
 
 	* slime.el (slime-repl-package-stack): New buffer local variable.


Index: slime/slime.el
diff -u slime/slime.el:1.258 slime/slime.el:1.259
--- slime/slime.el:1.258	Thu Apr  8 11:26:44 2004
+++ slime/slime.el	Fri Apr  9 16:48:13 2004
@@ -2951,9 +2951,9 @@
                            (point))))))))
 
 (defun slime-same-line-p (pos1 pos2)
-  "Return true if buffer positions PoS1 and POS2 are on the same line."
-  (save-excursion (goto-char (min pos1 pos2))
-                  (not (search-forward "\n" (max pos1 pos2) t))))
+  "Return t if buffer positions POS1 and POS2 are on the same line."
+    (save-excursion (goto-char (min pos1 pos2))
+                    (<= (max pos1 pos2) (line-end-position))))
 
 (defun slime-severity-face (severity)
   "Return the name of the font-lock face representing SEVERITY."
@@ -5839,7 +5839,7 @@
   (:handler (lambda (name value)
               (interactive (list (slime-read-symbol-name "Name (symbol): " t)
                                  (slime-read-from-minibuffer "Value: " "nil")))
-              (insert "(cl:defparameter " name " " value-form " \"REPL generated global variable.\")")
+              (insert "(cl:defparameter " name " " value " \"REPL generated global variable.\")")
               (slime-repl-send-input)))
   (:one-liner "Define a new global, special, variable."))