"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/bibtex/plain.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.

plain.scm  (TeXmacs-1.99.4-src):plain.scm  (TeXmacs-1.99.5-src)
skipping to change at line 549 skipping to change at line 549
(string-append (bib-purify (list-ref x 3)) " "))) (string-append (bib-purify (list-ref x 3)) " ")))
(jj (if (equal? (list-ref x 4) "") "" (jj (if (equal? (list-ref x 4) "") ""
(string-append (bib-purify (list-ref x 4)) " ")))) (string-append (bib-purify (list-ref x 4)) " "))))
(string-append vv ll ff jj)) (string-append vv ll ff jj))
(string-append name (author-sort-format (bib-cdr a)))))) (string-append name (author-sort-format (bib-cdr a))))))
(define (author-editor-sort-key x) (define (author-editor-sort-key x)
(if (bib-empty? x "author") (if (bib-empty? x "author")
(if (bib-empty? x "editor") (if (bib-empty? x "editor")
(list-ref x 2) (list-ref x 2)
(author-sort-format (bib-cdr (bib-field x "editor")))) (string-upcase (author-sort-format
(author-sort-format (bib-cdr (bib-field x "author"))))) (bib-cdr (bib-field x "editor")))))
(string-upcase (author-sort-format
(bib-cdr (bib-field x "author"))))))
(define (author-sort-key x ae) (define (author-sort-key x ae)
(if (bib-empty? x ae) (if (bib-empty? x ae)
(list-ref x 2) (list-ref x 2)
;;(author-sort-format (bib-cdr (bib-field x ae))))) ;;(author-sort-format (bib-cdr (bib-field x ae)))))
(string-upcase (author-sort-format (bib-cdr (bib-field x ae)))))) (string-upcase (author-sort-format (bib-cdr (bib-field x ae))))))
(tm-define (bib-sort-key x) (tm-define (bib-sort-key x)
;; (:mode bib-plain?) ;; (:mode bib-plain?)
(let* ((doctype (list-ref x 1)) (let* ((doctype (list-ref x 1))
 End of changes. 1 change blocks. 
2 lines changed or deleted 4 lines changed or added

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