[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-extend-region-for-font-lock): (nth 0
	<parser-state>) may return negative numbers.


--- /project/slime/cvsroot/slime/ChangeLog	2009/04/29 17:11:13	1.1730
+++ /project/slime/cvsroot/slime/ChangeLog	2009/04/29 22:05:16	1.1731
@@ -1,5 +1,10 @@
 2009-04-29  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-extend-region-for-font-lock): (nth 0
+	<parser-state>) may return negative numbers.
+
+2009-04-29  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el: Fix infinite loop during fontification introduced
 	by yesterday's changeset.
 
--- /project/slime/cvsroot/slime/slime.el	2009/04/29 17:11:13	1.1156
+++ /project/slime/cvsroot/slime/slime.el	2009/04/29 22:05:16	1.1157
@@ -6749,14 +6749,14 @@
   ;; reader-conditional, or point in mid of one.
   (let ((changedp nil))
     (goto-char font-lock-beg)
-    (unless (zerop (nth 0 (slime-current-parser-state)))
+    (when (plusp (nth 0 (slime-current-parser-state)))
       ;; N.B. take initial reader-conditional into account, otherwise
       ;; fontification wouldn't know the whole function definition may
       ;; be suppressed. 
       (setq font-lock-beg (first (slime-region-for-extended-tlf-at-point)))
       (setq changedp t))
     (goto-char font-lock-end)
-    (unless (zerop (nth 0 (slime-current-parser-state)))
+    (when (plusp (nth 0 (slime-current-parser-state)))
       (setq font-lock-end (second (slime-region-for-tlf-at-point)))
       (setq changedp t))
     changedp))