"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/doc/tmdoc.scm" between
TeXmacs-1.99.4-src.tar.gz and TeXmacs-1.99.5-src.tar.gz

About: GNU TeXmacs is a what-you-see-is-what-you-get scientific text editor, which was both inspired by TeX and GNU Emacs.

tmdoc.scm  (TeXmacs-1.99.4-src):tmdoc.scm  (TeXmacs-1.99.5-src)
skipping to change at line 66 skipping to change at line 66
(tmdoc-substitute-sub (cdr l) root cur)))) (tmdoc-substitute-sub (cdr l) root cur))))
(define (tmdoc-substitute x root cur) (define (tmdoc-substitute x root cur)
(cond ((or (match? x '(hlink :%2)) (match? x '(hyper-link :%2))) (cond ((or (match? x '(hlink :%2)) (match? x '(hyper-link :%2)))
(let* ((u1 (url-relative cur (caddr x))) (let* ((u1 (url-relative cur (caddr x)))
(u2 (url-delta root u1))) (u2 (url-delta root u1)))
;;(display* root ", " cur ", " (caddr x) " -> " u2 "\n") ;;(display* root ", " cur ", " (caddr x) " -> " u2 "\n")
(list (car x) (cadr x) (url->unix u2)))) (list (car x) (cadr x) (url->unix u2))))
((tm-func? x 'if-ref*) ((tm-func? x 'if-ref*)
(cons 'if-ref (tmdoc-substitute-sub (cdr x) root cur))) (cons 'if-ref (tmdoc-substitute-sub (cdr x) root cur)))
((tm-func? x 'if-nref*)
(cons 'if-nref (tmdoc-substitute-sub (cdr x) root cur)))
((tm-func? x 'tmdoc-link*) ((tm-func? x 'tmdoc-link*)
(cons 'tmdoc-link (tmdoc-substitute-sub (cdr x) root cur))) (cons 'tmdoc-link (tmdoc-substitute-sub (cdr x) root cur)))
((and (tm-in? x '(bibliography bibliography*))
(tm-atomic? (tm-ref x 2)))
(let* ((name (tm->string (tm-ref x 2)))
(rel (if (== name "") "" (url-relative cur name))))
`(,(tm-label x) ,(tm-ref x 0) ,(tm-ref x 1)
,(url->string rel) ,@(cdddr (cDr (tm-children x)))
,(tmdoc-substitute (cAr x) root cur))))
((list? x) ((list? x)
(cons (car x) (tmdoc-substitute-sub (cdr x) root cur))) (cons (car x) (tmdoc-substitute-sub (cdr x) root cur)))
(else x))) (else x)))
(define (tmdoc-rewrite-one x root cur the-level done) (define (tmdoc-rewrite-one x root cur the-level done)
(let* ((omit? (list? the-level)) (let* ((omit? (list? the-level))
(level (if omit? (car the-level) the-level))) (level (if omit? (car the-level) the-level)))
(cond ((or (func? x 'tmdoc-title) (func? x 'tmdoc-title*)) (cond ((or (func? x 'tmdoc-title) (func? x 'tmdoc-title*))
(if omit? '(document) (cons level (cdr x)))) (if omit? '(document) (cons level (cdr x))))
((and (func? x 'concat) ((and (func? x 'concat)
 End of changes. 2 change blocks. 
0 lines changed or deleted 9 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS