[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv336

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (slime-symbol-at-point): Sometimes we can be too good,
	e.g. in "|# (defun foo () (getf" the above would return nil
	because the vertical bar is not terminated. The user probably
	wants "getf" nontheless.

	Reported by Madhu.


--- /project/slime/cvsroot/slime/slime.el	2009/05/19 20:42:22	1.1176
+++ /project/slime/cvsroot/slime/slime.el	2009/05/21 09:41:50	1.1177
@@ -8370,7 +8370,13 @@
     ;;           (>= (point) slime-repl-input-start-mark))
     ;;  (narrow-to-region slime-repl-input-start-mark (point-max)))
     (save-excursion
-      (let ((string (thing-at-point 'slime-symbol)))
+      (let ((string (or (thing-at-point 'slime-symbol)
+                        ;; Sometimes we can be too good, e.g.  in "|#
+                        ;; (defun foo () (getf" the above would return
+                        ;; nil because the vertical bar is not
+                        ;; terminated. The user probably wants "getf"
+                        ;; nontheless.
+                        (thing-at-point 'symbol))))
         (and string
              ;; (thing-at-point 'symbol) returns "" instead of nil
              ;; when called from an empty (or narrowed-to-empty)
--- /project/slime/cvsroot/slime/ChangeLog	2009/05/19 20:42:22	1.1768
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/21 09:41:50	1.1769
@@ -1,5 +1,14 @@
 2009-05-19  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-symbol-at-point): Sometimes we can be too good,
+	e.g. in "|# (defun foo () (getf" the above would return nil
+	because the vertical bar is not terminated. The user probably
+	wants "getf" nontheless.
+
+	Reported by Madhu.
+
+2009-05-19  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (sldb-restartable-frame-line-face): Set a default value.
 	(sldb-frame-restartable-p): New.
 	(sldb-compute-frame-face): Use it.