"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/kernel/library/base.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.

base.scm  (TeXmacs-1.99.4-src):base.scm  (TeXmacs-1.99.5-src)
skipping to change at line 290 skipping to change at line 290
(define-public (list->url l) (define-public (list->url l)
(cond ((null? l) (url-none)) (cond ((null? l) (url-none))
((null? (cdr l)) (car l)) ((null? (cdr l)) (car l))
(else (url-or (car l) (list->url (cdr l)))))) (else (url-or (car l) (list->url (cdr l))))))
(define-public (url-read-directory u wc) (define-public (url-read-directory u wc)
(with d (url-expand (url-complete (url-append u (url-wildcard wc)) "r")) (with d (url-expand (url-complete (url-append u (url-wildcard wc)) "r"))
(url->list d))) (url->list d)))
(define-public (url-remove u)
(system-remove u))
(define-public (url-autosave u suf)
(and (not (url-rooted-web? name))
(not (url-rooted-tmfs? name))
(url-glue u suf)))
(define-public (url-wrap u)
(define-public (url->delta-unix u)
(with base (buffer-get-master (current-buffer))
(when (and (url-rooted? u) (not (url-none? base)))
(set! u (url-delta base u))))
(url->unix u))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Buffers ;; Buffers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-public (current-buffer) (define-public (current-buffer)
(with u (current-buffer-url) (with u (current-buffer-url)
(and (not (url-none? u)) u))) (and (not (url-none? u)) u)))
(define-public (path->buffer p) (define-public (path->buffer p)
(with u (path-to-buffer p) (with u (path-to-buffer p)
 End of changes. 1 change blocks. 
0 lines changed or deleted 17 lines changed or added

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