about summary refs log tree commit diff
path: root/src/guile/skribilo/coloring/lisp.scm
diff options
context:
space:
mode:
authorLudovic Courtes2006-01-25 22:57:34 +0000
committerLudovic Courtes2006-01-25 22:57:34 +0000
commit66e42310c0d6518abb39d52553286b5253bba6fd (patch)
treee9d3fbb7f52ab02973c0283601a52eb7685a345b /src/guile/skribilo/coloring/lisp.scm
parentce4ff568eaf9bb2f56ab0cf341591a9025f35ee7 (diff)
downloadskribilo-66e42310c0d6518abb39d52553286b5253bba6fd.tar.gz
skribilo-66e42310c0d6518abb39d52553286b5253bba6fd.tar.lz
skribilo-66e42310c0d6518abb39d52553286b5253bba6fd.zip
More progress towards a working user manual.
* doc/skr/api.skr (define-markup?): Support `define*' and
  `define*-public'.

* doc/user/bib.skb: Commented out problematic `skribebibtex'-related
  things.

* doc/user/lib.skb (skribe-load): Replaced by `load-document'.
  (skribe-load-options): Replaced by `*load-options*'.
  (skribe-path): Replaced by `*document-path*'.

* src/guile/skribilo/coloring/lisp.scm (definition-search): Removed
  debugging statement.

* src/guile/skribilo/engine.scm (find-engine): For documentation
  purposes, explicitly list all keyword parameters.

* src/guile/skribilo/source.scm (source-read-lines): Start line numbers
  from 0.

* src/guile/skribilo/utils/compat.scm (skribe-path-set!): New.
  (skribe-image-path-set!): New.
  (skribe-source-path-set!): New.
  (skribe-bib-path-set!): New.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-30
Diffstat (limited to 'src/guile/skribilo/coloring/lisp.scm')
-rw-r--r--src/guile/skribilo/coloring/lisp.scm2
1 files changed, 0 insertions, 2 deletions
diff --git a/src/guile/skribilo/coloring/lisp.scm b/src/guile/skribilo/coloring/lisp.scm
index 33ecc48..1db9a3f 100644
--- a/src/guile/skribilo/coloring/lisp.scm
+++ b/src/guile/skribilo/coloring/lisp.scm
@@ -55,8 +55,6 @@
       (if (def? exp)
 	  (let ((start (and (pair? exp) (source-property exp 'line)))
 		(stop  (port-line inp)))
-	    (format (current-error-port) "READ-LINES: `~a' ~a->~a~%"
-		    exp start stop)
 	    (source-read-lines (port-filename inp) start stop tab))
 	  (Loop (read inp))))))