[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	slime-fontifying-fu.el ChangeLog 
Log Message:
	* slime-fontifying-fu.el (slime-search-suppressed-forms): Add
	clause for new condition `slime-incorrect-feature-expression'.
	([test] font-lock-magic): Add new test case.


--- /project/slime/cvsroot/slime/contrib/slime-fontifying-fu.el	2009/07/04 09:54:16	1.14
+++ /project/slime/cvsroot/slime/contrib/slime-fontifying-fu.el	2009/10/10 07:58:20	1.15
@@ -69,16 +69,18 @@
       (while (and (eq result 'retry) (<= (point) limit))
         (condition-case condition
             (setq result (slime-search-suppressed-forms-internal limit))
-          (end-of-file                      ; e.g. #+(
+          (end-of-file                        ; e.g. #+(
            (setq result nil)) 
           ;; We found a reader conditional we couldn't process for
           ;; some reason; however, there may still be other reader
           ;; conditionals before `limit'.
-          (invalid-read-syntax              ; e.g. #+#.foo
+          (invalid-read-syntax                ; e.g. #+#.foo
            (setq result 'retry))
-          (scan-error                       ; e.g. #+nil (foo ...
+          (scan-error                         ; e.g. #+nil (foo ...
            (setq result 'retry)) 
-          (slime-unknown-feature-expression ; e.g. #+(foo)
+          (slime-incorrect-feature-expression ; e.g. #+(not foo bar)
+           (setq result 'retry))
+          (slime-unknown-feature-expression   ; e.g. #+(foo)
            (setq result 'retry)) 
           (error
            (setq result nil)
@@ -300,6 +302,17 @@
    *YES*
 \)
 
+*NO*")
+      ("#-(not) *YES* *NO*
+
+*NO*
+
+#+(not) *NO* *NO*
+
+*NO*
+
+#+(not a b c) *NO* *NO*
+
 *NO*"))
   (slime-check-top-level)
   (with-temp-buffer
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/09 14:57:45	1.252
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/10 07:58:20	1.253
@@ -1,3 +1,9 @@
+2009-10-10  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-fontifying-fu.el (slime-search-suppressed-forms): Add
+	clause for new condition `slime-incorrect-feature-expression'.
+	([test] font-lock-magic): Add new test case.
+
 2009-10-09  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-sprof.lisp: Add ability to exclude functions which symbols