[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el ([test] font-lock-magic): Moved to fontifying-fu contrib.


--- /project/slime/cvsroot/slime/slime.el	2009/06/04 09:08:06	1.1184
+++ /project/slime/cvsroot/slime/slime.el	2009/06/11 08:07:17	1.1185
@@ -7449,91 +7449,6 @@
                  (slime-autodoc-mode -1))))
       (setq lisp-mode-hook hook))))
 
-(def-slime-test font-lock-magic (buffer-content)
-    "Some testing for the font-lock-magic. *YES* should be
-    highlighted as a suppressed form, *NO* should not."
-
-    '(("(defun *NO* (x y) (+ x y))")
-      ("(defun *NO*")
-      ("*NO*) #-(and) (*YES*) (*NO* *NO*")
-      ("\(
-\(defun *NO*")
-      ("\)
-\(defun *NO*
-    \(
-\)")
-      ("#+#.foo
-\(defun *NO* (x y) (+ x y))")
-      ("#+#.foo
-\(defun *NO* (x ")
-      ("#+(
-\(defun *NO* (x ")
-      ("#+(test)
-\(defun *NO* (x ")
-
-      ("(eval-when (...)
-\(defun *NO* (x ")
-
-      ("(eval-when (...)
-#+(and)
-\(defun *NO* (x ")
-
-      ("#-(and) (defun *YES* (x y) (+ x y))")
-      ("
-#-(and) (defun *YES* (x y) (+ x y))
-#+(and) (defun *NO* (x y) (+ x y))")
-
-      ("#+(and) (defun *NO* (x y) #-(and) (+ *YES* y))")
-      ("#| #+(or) |# *NO*")
-      ("#| #+(or) x |# *NO*")
-      ("*NO* \"#| *NO* #+(or) x |# *NO*\" *NO*")
-      ("#+#.foo (defun foo (bar))
-#-(and) *YES* *NO* bar
-")
-      ("#+(foo) (defun foo (bar))
-#-(and) *YES* *NO* bar")
-      ("#| #+(or) |# *NO* foo
-#-(and) *YES* *NO*")
-      ("#- (and)
-\(*YES*)
-\(*NO*)
-#-(and)
-\(*YES*)
-\(*NO*)")
-      ("#+nil (foo)
-
-#-(and)
-#+nil (
-       asdf *YES* a
-            fsdfad)
-
-\( asdf *YES*
-
-       )
-\(*NO*)
-
-")
-      )
-  (slime-check-top-level)
-  (with-temp-buffer
-    (insert buffer-content)
-    (slime-initialize-lisp-buffer-for-test-suite
-     :autodoc t :font-lock-magic t)
-    ;; Can't use `font-lock-fontify-buffer' because for the case when
-    ;; `jit-lock-mode' is enabled. Jit-lock-mode fontifies only on
-    ;; actual display.
-    (font-lock-default-fontify-buffer)
-    (when (search-backward "*NO*" nil t)
-      (slime-test-expect "Not suppressed by reader conditional?"
-                         'slime-reader-conditional-face
-                         (get-text-property (point) 'face)
-                         #'(lambda (x y) (not (eq x y)))))
-    (goto-char (point-max))
-    (when (search-backward "*YES*" nil t)
-      (slime-test-expect "Suppressed by reader conditional?"
-                         'slime-reader-conditional-face
-                         (get-text-property (point) 'face)))))
-
 (def-slime-test narrowing ()
     "Check that narrowing is properly sustained."
     '()
--- /project/slime/cvsroot/slime/ChangeLog	2009/06/05 19:58:53	1.1781
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/11 08:07:17	1.1782
@@ -1,3 +1,7 @@
+2009-06-1  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el ([test] font-lock-magic): Moved to fontifying-fu contrib.
+
 2009-06-05  Helmut Eller  <heller at common-lisp.net>
 
 	Don't clutter compiler messages with source positions.  Especially
@@ -12,7 +16,7 @@
 
 2009-06-04  Helmut Eller  <heller at common-lisp.net>
 
-	* slime.el (slime-dispatch-event [:emcas-rex]): Don't clutter
+	* slime.el (slime-dispatch-event [:emacs-rex]): Don't clutter
 	the main code-path with confusing error handling.
 
 2009-06-04  Helmut Eller  <heller at common-lisp.net>
@@ -49,7 +53,7 @@
 	(slime-skipped-tests): New var.
 	(slime-execute-tests): Adapted accordingly.
 	([test] disconnect): Renamed to `disconnect-and-reconnect'
-	([test] disconnect-one-conneciton): New.
+	([test] disconnect-one-connection): New.
 
 	Adapted from patch by Stas Boukarev.