"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/math/math-edit.scm" between
TeXmacs-1.99.8-src.tar.gz and TeXmacs-1.99.9-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.

math-edit.scm  (TeXmacs-1.99.8-src):math-edit.scm  (TeXmacs-1.99.9-src)
skipping to change at line 510 skipping to change at line 510
;;(find-non-bracket (cursor-tree)) "\n") ;;(find-non-bracket (cursor-tree)) "\n")
(> nr (count-missing (find-non-bracket (cursor-tree)) open?))))) (> nr (count-missing (find-non-bracket (cursor-tree)) open?)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Matching brackets ;; Matching brackets
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (deleted? t i) (define (deleted? t i)
(== (tm->stree (tree-ref t i)) "<nobracket>")) (== (tm->stree (tree-ref t i)) "<nobracket>"))
(define (make-small s) ;;(define (make-small s)
(cond ((nstring? s) "<nobracket>") ;; (cond ((nstring? s) "<nobracket>")
((== s ".") "<nobracket>") ;; ((== s ".") "<nobracket>")
((<= (string-length s) 1) s) ;; ((<= (string-length s) 1) s)
(else (string-append "<" s ">")))) ;; (else (string-append "<" s ">"))))
(define (find-adjacent-around del?) (define (find-adjacent-around del?)
(let* ((ret #f) (let* ((ret #f)
(p (cursor-path)) (p (cursor-path))
(p* (cursor-path*))) (p* (cursor-path*)))
(with t (tree-innermost '(around around*)) (with t (tree-innermost '(around around*))
(when t (when t
(when (== p (tree->path t 1 :start)) (when (== p (tree->path t 1 :start))
(when (deleted? t 0) (when (deleted? t 0)
(set! ret t))) (set! ret t)))
 End of changes. 1 change blocks. 
5 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)