[slime-cvs] CVS slime
CVS User trittweiler
trittweiler at common-lisp.net
Thu Jun 11 08:07:18 UTC 2009
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.
More information about the slime-cvs
mailing list