"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/utils/edit/variants.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.

variants.scm  (TeXmacs-1.99.4-src):variants.scm  (TeXmacs-1.99.5-src)
skipping to change at line 222 skipping to change at line 222
(tree-go-to t :start) (tree-go-to t :start)
(when (tree-up t) (when (tree-up t)
(alternate-unfold (tree-up t))))) (alternate-unfold (tree-up t)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Variants ;; Variants
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-group variant-tag) (define-group variant-tag)
(tm-define (focus-tree-modified t)
(tm-define (variant-set t by) (tm-define (variant-set t by)
(with-focus-after t (with-focus-after t
(with i (tree-down-index t) (with i (tree-down-index t)
(tree-assign-node! t by) (tree-assign-node! t by)
(focus-tree-modified t)
(when (and i (not (tree-accessible-child? t i))) (when (and i (not (tree-accessible-child? t i)))
(with ac (tree-accessible-children t) (with ac (tree-accessible-children t)
(when (nnull? ac) (when (nnull? ac)
(tree-go-to (car ac) :start))))))) (tree-go-to (car ac) :start)))))))
(tm-define (variant-set-keep-numbering t v) (tm-define (variant-set-keep-numbering t v)
(if (and (symbol-numbered? v) (symbol-unnumbered? (tree-label t))) (if (and (symbol-numbered? v) (symbol-unnumbered? (tree-label t)))
(variant-set t (symbol-append v '*)) (variant-set t (symbol-append v '*))
(variant-set t v))) (variant-set t v)))
 End of changes. 2 change blocks. 
0 lines changed or deleted 4 lines changed or added

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