"Fossies" - the Fresh Open Source Software Archive  

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

init-texmacs.scm  (TeXmacs-1.99.4-src):init-texmacs.scm  (TeXmacs-1.99.5-src)
skipping to change at line 14 skipping to change at line 14
;; MODULE : init-texmacs.scm ;; MODULE : init-texmacs.scm
;; DESCRIPTION : This is the standard TeXmacs initialization file ;; DESCRIPTION : This is the standard TeXmacs initialization file
;; COPYRIGHT : (C) 1999 Joris van der Hoeven ;; COPYRIGHT : (C) 1999 Joris van der Hoeven
;; ;;
;; This software falls under the GNU general public license version 3 or later. ;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE ;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>. ;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ((os-mingw?)
(debug-set! stack 0))
((os-macos?)
(debug-set! stack 2000000))
(else
(debug-set! stack 1000000)))
(define boot-start (texmacs-time)) (define boot-start (texmacs-time))
(define remote-client-list (list)) (define remote-client-list (list))
(define developer-mode? (define developer-mode?
(equal? (cpp-get-preference "developer tool" "off") "on")) (equal? (cpp-get-preference "developer tool" "off") "on"))
(if developer-mode? (if developer-mode?
(debug-enable 'backtrace 'debug)) (debug-enable 'backtrace 'debug))
(define (%new-read-hook sym) (noop)) ; for autocompletion (define (%new-read-hook sym) (noop)) ; for autocompletion
skipping to change at line 144 skipping to change at line 151
;(display "Booting main TeXmacs functionality\n") ;(display "Booting main TeXmacs functionality\n")
(use-modules (texmacs texmacs tm-server) (texmacs texmacs tm-view) (use-modules (texmacs texmacs tm-server) (texmacs texmacs tm-view)
(texmacs texmacs tm-files) (texmacs texmacs tm-print)) (texmacs texmacs tm-files) (texmacs texmacs tm-print))
(use-modules (texmacs keyboard config-kbd)) (use-modules (texmacs keyboard config-kbd))
(lazy-keyboard (texmacs keyboard prefix-kbd) always?) (lazy-keyboard (texmacs keyboard prefix-kbd) always?)
(lazy-keyboard (texmacs keyboard latex-kbd) always?) (lazy-keyboard (texmacs keyboard latex-kbd) always?)
(lazy-menu (texmacs menus file-menu) file-menu go-menu (lazy-menu (texmacs menus file-menu) file-menu go-menu
new-file-menu load-menu save-menu print-menu close-menu) new-file-menu load-menu save-menu print-menu close-menu)
(lazy-menu (texmacs menus edit-menu) edit-menu) (lazy-menu (texmacs menus edit-menu) edit-menu)
(lazy-menu (texmacs menus view-menu) view-menu) (lazy-menu (texmacs menus view-menu) view-menu texmacs-bottom-toolbars)
(lazy-menu (texmacs menus tools-menu) tools-menu) (lazy-menu (texmacs menus tools-menu) tools-menu)
(lazy-menu (texmacs menus preferences-menu) preferences-menu page-setup-menu) (lazy-menu (texmacs menus preferences-menu) preferences-menu page-setup-menu)
(lazy-menu (texmacs menus preferences-widgets) open-preferences) (lazy-menu (texmacs menus preferences-widgets) open-preferences)
(use-modules (texmacs menus main-menu)) (use-modules (texmacs menus main-menu))
(lazy-define (texmacs menus view-menu) set-bottom-bar test-bottom-bar?)
(tm-define (notify-set-attachment name key val) (noop)) (tm-define (notify-set-attachment name key val) (noop))
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting generic mode\n") ;(display "Booting generic mode\n")
(lazy-keyboard (generic generic-kbd) always?) (lazy-keyboard (generic generic-kbd) always?)
(lazy-menu (generic generic-menu) focus-menu texmacs-focus-icons) (lazy-menu (generic generic-menu) focus-menu texmacs-focus-icons)
(lazy-menu (generic format-menu) format-menu (lazy-menu (generic format-menu) format-menu
font-size-menu color-menu horizontal-space-menu font-size-menu color-menu horizontal-space-menu
transform-menu specific-menu transform-menu specific-menu
text-font-effects-menu text-effects-menu
vertical-space-menu indentation-menu line-break-menu vertical-space-menu indentation-menu line-break-menu
page-header-menu page-footer-menu page-numbering-menu page-header-menu page-footer-menu page-numbering-menu
page-break-menu) page-break-menu)
(lazy-menu (generic document-menu) document-menu (lazy-menu (generic document-menu) document-menu
project-menu document-style-menu global-language-menu) project-menu document-style-menu global-language-menu)
(lazy-menu (generic document-part) document-part-menu project-manage-menu) (lazy-menu (generic document-part)
preamble-menu document-part-menu project-manage-menu)
(lazy-menu (generic insert-menu) insert-menu texmacs-insert-menu (lazy-menu (generic insert-menu) insert-menu texmacs-insert-menu
texmacs-insert-icons texmacs-insert-icons insert-link-menu insert-image-menu)
insert-link-menu insert-image-menu insert-animation-menu) (lazy-define (generic document-edit) update-document
(lazy-define (generic document-edit) update-document) get-init-page-rendering init-page-rendering)
(lazy-define (generic generic-edit) notify-activated notify-disactivated) (lazy-define (generic generic-edit) notify-activated notify-disactivated)
(lazy-define (generic generic-doc) focus-help) (lazy-define (generic generic-doc) focus-help)
(lazy-define (generic generic-widgets) search-toolbar replace-toolbar (lazy-define (generic generic-widgets) search-toolbar replace-toolbar
open-search toolbar-search-start interactive-search open-search toolbar-search-start interactive-search
open-replace toolbar-replace-start interactive-replace open-replace toolbar-replace-start interactive-replace
search-next-match) search-next-match)
(lazy-define (generic format-widgets) open-paragraph-format open-page-format) (lazy-define (generic format-widgets) open-paragraph-format open-page-format
open-pattern-selector)
(lazy-define (generic document-widgets) open-source-tree-preferences (lazy-define (generic document-widgets) open-source-tree-preferences
open-document-paragraph-format open-document-page-format open-document-paragraph-format open-document-page-format
open-document-metadata open-document-colors) open-document-metadata open-document-colors)
(tm-property (open-search) (:interactive #t)) (tm-property (open-search) (:interactive #t))
(tm-property (open-replace) (:interactive #t)) (tm-property (open-replace) (:interactive #t))
(tm-property (open-paragraph-format) (:interactive #t)) (tm-property (open-paragraph-format) (:interactive #t))
(tm-property (open-page-format) (:interactive #t)) (tm-property (open-page-format) (:interactive #t))
(tm-property (open-source-tree-preferences) (:interactive #t)) (tm-property (open-source-tree-preferences) (:interactive #t))
(tm-property (open-document-paragraph-format) (:interactive #t)) (tm-property (open-document-paragraph-format) (:interactive #t))
(tm-property (open-document-page-format) (:interactive #t)) (tm-property (open-document-page-format) (:interactive #t))
(tm-property (open-document-metadata) (:interactive #t)) (tm-property (open-document-metadata) (:interactive #t))
(tm-property (open-document-colors) (:interactive #t)) (tm-property (open-document-colors) (:interactive #t))
(tm-property (open-pattern-selector cmd w) (:interactive #t))
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting text mode\n") ;(display "Booting text mode\n")
(lazy-keyboard (text text-kbd) in-text?) (lazy-keyboard (text text-kbd) in-text?)
(lazy-menu (text text-menu) text-format-menu text-format-icons (lazy-menu (text text-menu) text-format-menu text-format-icons
text-menu text-block-menu text-inline-menu text-menu text-block-menu text-inline-menu
text-icons text-block-icons text-inline-icons) text-icons text-block-icons text-inline-icons)
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
skipping to change at line 245 skipping to change at line 257
(lazy-define (table table-edit) table-resize-notify) (lazy-define (table table-edit) table-resize-notify)
(lazy-define (table table-widgets) open-cell-properties open-table-properties) (lazy-define (table table-widgets) open-cell-properties open-table-properties)
(tm-property (open-cell-properties) (:interactive #t)) (tm-property (open-cell-properties) (:interactive #t))
(tm-property (open-table-properties) (:interactive #t)) (tm-property (open-table-properties) (:interactive #t))
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting graphics mode\n") ;(display "Booting graphics mode\n")
(lazy-keyboard (graphics graphics-kbd) in-active-graphics?) (lazy-keyboard (graphics graphics-kbd) in-active-graphics?)
(lazy-menu (graphics graphics-menu) graphics-menu graphics-icons) (lazy-menu (graphics graphics-menu) graphics-menu graphics-icons)
(lazy-define (graphics graphics-object)
graphics-reset-state graphics-decorations-update)
(lazy-define (graphics graphics-utils) make-graphics)
(lazy-define (graphics graphics-edit) (lazy-define (graphics graphics-edit)
graphics-busy? graphics-busy?
graphics-reset-context graphics-undo-enabled graphics-reset-context graphics-undo-enabled
graphics-release-left graphics-release-middle graphics-release-left graphics-release-middle
graphics-release-right graphics-start-drag-left graphics-release-right graphics-start-drag-left
graphics-dragging-left graphics-end-drag-left) graphics-dragging-left graphics-end-drag-left)
(lazy-define (graphics graphics-main) graphics-update-proviso
graphics-get-proviso graphics-set-proviso)
(lazy-define (graphics graphics-markup) arrow-with-text arrow-with-text*) (lazy-define (graphics graphics-markup) arrow-with-text arrow-with-text*)
(define-secure-symbols arrow-with-text arrow-with-text*) (define-secure-symbols arrow-with-text arrow-with-text*)
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting formal and natural languages\n") ;(display "Booting formal and natural languages\n")
(lazy-language (language minimal) minimal) (lazy-language (language minimal) minimal)
(lazy-language (language std-math) std-math) (lazy-language (language std-math) std-math)
(lazy-define (language natural) replace) (lazy-define (language natural) replace)
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting dynamic features\n") ;(display "Booting dynamic features\n")
(lazy-keyboard (dynamic fold-kbd) always?) (lazy-keyboard (dynamic fold-kbd) always?)
(lazy-keyboard (dynamic scripts-kbd) always?) (lazy-keyboard (dynamic scripts-kbd) always?)
(lazy-keyboard (dynamic calc-kbd) always?) (lazy-keyboard (dynamic calc-kbd) always?)
(lazy-menu (dynamic fold-menu) insert-fold-menu dynamic-menu dynamic-icons) (lazy-menu (dynamic fold-menu) insert-fold-menu dynamic-menu dynamic-icons
graphics-overlays-menu graphics-screens-menu
graphics-focus-overlays-menu graphics-focus-overlays-icons)
(lazy-menu (dynamic session-menu) insert-session-menu session-help-icons) (lazy-menu (dynamic session-menu) insert-session-menu session-help-icons)
(lazy-menu (dynamic scripts-menu) scripts-eval-menu scripts-plot-menu (lazy-menu (dynamic scripts-menu) scripts-eval-menu scripts-plot-menu
plugin-eval-menu plugin-eval-toggle-menu plugin-plot-menu) plugin-eval-menu plugin-eval-toggle-menu plugin-plot-menu)
(lazy-menu (dynamic calc-menu) calc-table-menu calc-insert-menu) (lazy-menu (dynamic calc-menu) calc-table-menu calc-insert-menu)
(lazy-define (dynamic fold-edit) dynamic-make-slides) (lazy-menu (dynamic animate-menu) insert-animation-menu animate-toolbar)
(lazy-define (dynamic fold-edit)
screens-switch-to dynamic-make-slides overlays-context?)
(lazy-define (dynamic session-edit) scheme-eval) (lazy-define (dynamic session-edit) scheme-eval)
(lazy-define (dynamic calc-edit) calc-ready? calc-table-renumber) (lazy-define (dynamic calc-edit) calc-ready? calc-table-renumber)
(lazy-initialize (dynamic session-menu) (in-session?)) (lazy-initialize (dynamic session-menu) (in-session?))
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting documentation\n") ;(display "Booting documentation\n")
(lazy-keyboard (doc tmdoc-kbd) in-manual?) (lazy-keyboard (doc tmdoc-kbd) in-manual?)
(lazy-keyboard (doc apidoc-kbd) developer-mode?) (lazy-keyboard (doc apidoc-kbd) developer-mode?)
(lazy-menu (doc tmdoc-menu) tmdoc-menu tmdoc-icons) (lazy-menu (doc tmdoc-menu) tmdoc-menu tmdoc-icons)
skipping to change at line 309 skipping to change at line 330
;(display* "memory: " (texmacs-memory) " bytes\n") ;(display* "memory: " (texmacs-memory) " bytes\n")
;(display "Booting converters\n") ;(display "Booting converters\n")
(lazy-format (convert rewrite init-rewrite) texmacs scheme cpp verbatim) (lazy-format (convert rewrite init-rewrite) texmacs scheme cpp verbatim)
(lazy-format (convert tmml init-tmml) tmml) (lazy-format (convert tmml init-tmml) tmml)
(lazy-format (convert latex init-latex) latex) (lazy-format (convert latex init-latex) latex)
(lazy-format (convert html init-html) html) (lazy-format (convert html init-html) html)
(lazy-format (convert bibtex init-bibtex) bibtex) (lazy-format (convert bibtex init-bibtex) bibtex)
(lazy-format (convert images init-images) (lazy-format (convert images init-images)
postscript pdf xfig xmgrace svg xpm jpeg ppm gif png pnm) postscript pdf xfig xmgrace svg xpm jpeg ppm gif png pnm)
(lazy-define (convert images tmimage) (lazy-define (convert images tmimage) export-selection-as-pdf
export-selection-as-graphics clipboard-copy-image) export-selection-as-graphics clipboard-copy-image)
(lazy-define (convert rewrite init-rewrite) texmacs->code texmacs->verbatim) (lazy-define (convert rewrite init-rewrite) texmacs->code texmacs->verbatim)
(lazy-define (convert html tmhtml-expand) tmhtml-env-patch) (lazy-define (convert html tmhtml-expand) tmhtml-env-patch)
(lazy-define (convert latex latex-drd) latex-arity latex-type) (lazy-define (convert latex latex-drd) latex-arity latex-type)
(lazy-define (convert latex tmtex) tmtex-env-patch) (lazy-define (convert latex tmtex) tmtex-env-patch)
(lazy-define (convert latex latex-tools) latex-set-virtual-packages (lazy-define (convert latex latex-tools) latex-set-virtual-packages
latex-has-style? latex-has-package? latex-has-style? latex-has-package?
latex-has-texmacs-style? latex-has-texmacs-package?) latex-has-texmacs-style? latex-has-texmacs-package?)
(lazy-menu (convert latex tmtex-widgets) tmtex-menu) (lazy-menu (convert latex tmtex-widgets) tmtex-menu)
;(display* "time: " (- (texmacs-time) boot-start) "\n") ;(display* "time: " (- (texmacs-time) boot-start) "\n")
 End of changes. 13 change blocks. 
9 lines changed or deleted 30 lines changed or added

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