"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/texmacs/texmacs/tm-files.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.

tm-files.scm  (TeXmacs-1.99.4-src):tm-files.scm  (TeXmacs-1.99.5-src)
skipping to change at line 25 skipping to change at line 25
(:use (texmacs texmacs tm-server) (:use (texmacs texmacs tm-server)
(texmacs texmacs tm-print) (texmacs texmacs tm-print)
(utils library cursor))) (utils library cursor)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Supplementary routines on urls, taking into account the TeXmacs file system ;; Supplementary routines on urls, taking into account the TeXmacs file system
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define cpp-url-last-modified url-last-modified) (define cpp-url-last-modified url-last-modified)
(define cpp-url-newer? url-newer?) (define cpp-url-newer? url-newer?)
(define cpp-buffer-last-save buffer-last-save)
(tm-define (url-last-modified u) (tm-define (url-last-modified u)
(if (url-rooted-tmfs? u) (if (url-rooted-tmfs? u)
(tmfs-date u) (tmfs-date u)
(cpp-url-last-modified u))) (cpp-url-last-modified u)))
(tm-define (url-newer? u1 u2) (tm-define (url-newer? u1 u2)
(if (or (url-rooted-tmfs? u1) (url-rooted-tmfs? u2)) (if (or (url-rooted-tmfs? u1) (url-rooted-tmfs? u2))
(and-let* ((d1 (url-last-modified u1)) (and-let* ((d1 (url-last-modified u1))
(d2 (url-last-modified u2))) (d2 (url-last-modified u2)))
skipping to change at line 52 skipping to change at line 53
(tm-define (url-autosave u suf) (tm-define (url-autosave u suf)
(if (url-rooted-tmfs? u) (if (url-rooted-tmfs? u)
(tmfs-autosave u suf) (tmfs-autosave u suf)
(and (or (url-scratch? u) (and (or (url-scratch? u)
(url-test? u "fw") (url-test? u "fw")
(and (not (url-exists? u)) (and (not (url-exists? u))
(url-test? u "c"))) (url-test? u "c")))
(url-glue u suf)))) (url-glue u suf))))
(tm-define (url-wrap u)
(and (url-rooted-tmfs? u)
(tmfs-wrap u)))
(tm-define (buffer-last-save u)
(with base (url-wrap u)
(cond ((not base)
(cpp-buffer-last-save u))
((buffer-exists? base)
(buffer-last-save base))
(else (url-last-modified base)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Miscellaneous subroutines ;; Miscellaneous subroutines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(tm-define (propose-name-buffer) (tm-define (propose-name-buffer)
(with name (url->unix (current-buffer)) (with name (url->unix (current-buffer))
(cond ((not (url-scratch? name)) name) (cond ((not (url-scratch? name)) name)
((os-win32?) "") ((os-win32?) "")
(else (string-append (var-eval-system "pwd") "/"))))) (else (string-append (var-eval-system "pwd") "/")))))
 End of changes. 2 change blocks. 
0 lines changed or deleted 13 lines changed or added

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