"Fossies" - the Fresh Open Source Software Archive  

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

generic-kbd.scm  (TeXmacs-1.99.8-src):generic-kbd.scm  (TeXmacs-1.99.9-src)
skipping to change at line 157 skipping to change at line 157
("structured:geometry pageup" (geometry-top)) ("structured:geometry pageup" (geometry-top))
("structured:geometry pagedown" (geometry-bottom)) ("structured:geometry pagedown" (geometry-bottom))
("structured:geometry tab" (geometry-circulate #t)) ("structured:geometry tab" (geometry-circulate #t))
("structured:geometry S-tab" (geometry-circulate #f)) ("structured:geometry S-tab" (geometry-circulate #f))
("structured:geometry [" (geometry-slower)) ("structured:geometry [" (geometry-slower))
("structured:geometry ]" (geometry-faster)) ("structured:geometry ]" (geometry-faster))
("altcmd \\" (make-hybrid)) ("altcmd \\" (make-hybrid))
("altcmd a" (make-tree)) ("altcmd a" (make-tree))
("altcmd R" (make-rigid)) ("altcmd R" (make-rigid))
("altcmd =" (make 'hgroup))
("altcmd |" (make 'vgroup))
("altcmd :" (make 'line-break)) ("altcmd :" (make 'line-break))
("altcmd ;" (make 'new-line)) ("altcmd ;" (make 'new-line))
("altcmd return" (make 'next-line)) ("altcmd return" (make 'next-line))
("altcmd /" (make 'no-break)) ("altcmd /" (make 'no-break))
("altcmd !" (make-label)) ("altcmd !" (make-label))
("altcmd ?" (make 'reference)) ("altcmd ?" (make 'reference))
("altcmd ? var" (make 'eqref)) ("altcmd ? var" (make 'eqref))
("altcmd ? var var" (make 'pageref)) ("altcmd ? var var" (make 'pageref))
("altcmd P" (make 'pageref)) ("altcmd P" (make 'pageref))
skipping to change at line 221 skipping to change at line 223
("cutto *" (interactive clipboard-cut)) ("cutto *" (interactive clipboard-cut))
("pastefrom 1" (noop) (clipboard-paste "primary")) ("pastefrom 1" (noop) (clipboard-paste "primary"))
("pastefrom 2" (clipboard-paste "secondary")) ("pastefrom 2" (clipboard-paste "secondary"))
("pastefrom 3" (clipboard-paste "ternary")) ("pastefrom 3" (clipboard-paste "ternary"))
("pastefrom s" (clipboard-paste "search")) ("pastefrom s" (clipboard-paste "search"))
("pastefrom r" (clipboard-paste "replace")) ("pastefrom r" (clipboard-paste "replace"))
("pastefrom *" (interactive clipboard-paste)) ("pastefrom *" (interactive clipboard-paste))
("table N t" (make 'tabular)) ("table N t" (make 'tabular))
("table N T" (make 'tabular*)) ("table N T" (make 'tabular*))
("table N w" (make 'wide-tabular)) ("table N w" (make-wrapped 'wide-tabular))
("table N b" (make 'block)) ("table N b" (make 'block))
("table N B" (make 'block*)) ("table N B" (make 'block*))
("table N W" (make 'wide-block))) ("table N W" (make-wrapped 'wide-block)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Emacs keymap ;; Emacs keymap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(kbd-map (kbd-map
(:profile emacs) (:profile emacs)
;; standard Emacs shortcuts ;; standard Emacs shortcuts
("emacs a" (kbd-start-line)) ("emacs a" (kbd-start-line))
skipping to change at line 263 skipping to change at line 265
("emacs insert" (clipboard-copy "primary")) ("emacs insert" (clipboard-copy "primary"))
("emacs _" (undo 0)) ("emacs _" (undo 0))
("emacs /" (undo 0)) ("emacs /" (undo 0))
("emacs:meta v" (kbd-page-up)) ("emacs:meta v" (kbd-page-up))
("emacs:meta w" (clipboard-copy "primary")) ("emacs:meta w" (clipboard-copy "primary"))
("emacs:meta x" (interactive exec-interactive-command)) ("emacs:meta x" (interactive exec-interactive-command))
("emacs:meta X" (interactive footer-eval)) ("emacs:meta X" (interactive footer-eval))
("emacs:meta <" (go-start)) ("emacs:meta <" (go-start))
("emacs:meta >" (go-end)) ("emacs:meta >" (go-end))
("emacs:meta $" (spell-start)) ("emacs:meta $" (interactive-spell))
("emacs:meta %" (interactive-replace)) ("emacs:meta %" (interactive-replace))
("emacs:prefix tab" (make 'indent)) ("emacs:prefix tab" (make 'indent))
("emacs:prefix b" (interactive go-to-buffer)) ("emacs:prefix b" (interactive go-to-buffer))
("emacs:prefix h" (select-all)) ("emacs:prefix h" (select-all))
("emacs:prefix k" (safely-kill-buffer)) ("emacs:prefix k" (close-document))
("emacs:prefix K" (close-document*))
("emacs:prefix C-c" (safely-quit-TeXmacs)) ("emacs:prefix C-c" (safely-quit-TeXmacs))
("emacs:prefix C-f" (interactive load-buffer)) ("emacs:prefix C-f" (interactive load-buffer))
("emacs:prefix C-s" (save-buffer)) ("emacs:prefix C-s" (save-buffer))
("emacs:prefix C-w" (interactive save-buffer-as)) ("emacs:prefix C-w" (interactive save-buffer-as))
("search emacs s" (search-next-match #t)) ("search emacs s" (search-next-match #t))
("search emacs r" (search-next-match #f)) ("search emacs r" (search-next-match #f))
;; not implemented ;; not implemented
;;("emacs h ..." (help ...)) ;;("emacs h ..." (help ...))
skipping to change at line 349 skipping to change at line 352
;;("emacs:prefix C-p" (mark-page)) ;;("emacs:prefix C-p" (mark-page))
;;("emacs:prefix C-q" (toggle-read-only)) ;;("emacs:prefix C-q" (toggle-read-only))
;;("emacs:prefix C-r" (interactive load-readonly-buffer)) ;;("emacs:prefix C-r" (interactive load-readonly-buffer))
;;("emacs:prefix C-t" (transpose-lines)) ;;("emacs:prefix C-t" (transpose-lines))
;;("emacs:prefix C-u" (upcase-region)) ;;("emacs:prefix C-u" (upcase-region))
;;("emacs:prefix C-v" (interactive load-alternate-buffer)) ;;("emacs:prefix C-v" (interactive load-alternate-buffer))
;;("emacs:prefix C-x" (exchange-point-and-mark)) ;;("emacs:prefix C-x" (exchange-point-and-mark))
;;("emacs:prefix C-z" (suspend-texmacs)) ;;("emacs:prefix C-z" (suspend-texmacs))
;; further shortcuts for the Emacs mode ;; further shortcuts for the Emacs mode
("F2" (open-buffer)) ("F2" (open-document))
("S-F2" (choose-file load-buffer-in-new-window "Load file" "")) ("S-F2" (open-document*))
("C-F2" (revert-buffer)) ("C-F2" (revert-buffer))
("M-F2" (new-buffer)) ("M-F2" (new-document))
("M-S-F2" (open-window)) ("M-S-F2" (new-document*))
;;("M-C-F2" (clone-window)) ;;("M-C-F2" (clone-window))
("F3" (save-buffer)) ("F3" (save-buffer))
("S-F3" (choose-file save-buffer-as "Save TeXmacs file" "texmacs")) ("S-F3" (choose-file save-buffer-as "Save TeXmacs file" "texmacs"))
("F4" (preview-buffer)) ("F4" (preview-buffer))
("S-F4" (print-buffer)) ("S-F4" (print-buffer))
("C-F4" (interactive print-to-file)) ("C-F4" (interactive print-to-file))
("M-F4" (interactive print-pages)) ("M-F4" (interactive print-pages))
("M-S-F4" (interactive print-pages-to-file)) ("M-S-F4" (interactive print-pages-to-file))
("emacs =" (interactive-replace)) ("emacs =" (interactive-replace))
skipping to change at line 396 skipping to change at line 399
(kbd-map (kbd-map
(:profile std) (:profile std)
;; standard cross-platform shortcuts ;; standard cross-platform shortcuts
("std a" (select-all)) ("std a" (select-all))
("std b" (toggle-bold)) ("std b" (toggle-bold))
("std c" (clipboard-copy "primary")) ("std c" (clipboard-copy "primary"))
("std f" (interactive-search)) ("std f" (interactive-search))
("std i" (toggle-italic)) ("std i" (toggle-italic))
("std n" (new-buffer)) ("std n" (new-document))
("std N" (open-window)) ("std N" (new-document*))
("std o" (open-buffer)) ("std o" (open-document))
("std L" (open-document*))
("std p" (preview-buffer)) ("std p" (preview-buffer))
("std q" (safely-quit-TeXmacs)) ("std q" (safely-quit-TeXmacs))
("std R" (update-document "all")) ("std R" (update-document "all"))
("std s" (save-buffer)) ("std s" (save-buffer))
("std S" (choose-file save-buffer-as "Save TeXmacs file" "texmacs")) ("std S" (choose-file save-buffer-as "Save TeXmacs file" "texmacs"))
("std u" (toggle-underlined)) ("std u" (toggle-underlined))
("std v" (clipboard-paste "primary")) ("std v" (clipboard-paste "primary"))
("std w" (safely-kill-buffer)) ("std w" (close-document))
("std W" (safely-kill-window)) ("std W" (close-document*))
("std x" (clipboard-cut "primary")) ("std x" (clipboard-cut "primary"))
("std z" (undo 0)) ("std z" (undo 0))
("std Z" (redo 0)) ("std Z" (redo 0))
("std +" (zoom-in (sqrt (sqrt 2.0)))) ("std +" (zoom-in (sqrt (sqrt 2.0))))
("std -" (zoom-out (sqrt (sqrt 2.0)))) ("std -" (zoom-out (sqrt (sqrt 2.0))))
("std 0" (fit-to-screen-width)) ("std 0" (fit-to-screen-width))
;; not yet implemented ;; not yet implemented
;;("std t" (add-tab)) ;;("std t" (add-tab))
;;("std tab" (next-tab)) ;;("std tab" (next-tab))
skipping to change at line 488 skipping to change at line 492
;; further shortcuts for Gnome look and feel ;; further shortcuts for Gnome look and feel
("gnome g" (selection-cancel)) ("gnome g" (selection-cancel))
("gnome l" (refresh-window)) ("gnome l" (refresh-window))
("gnome F" (interactive-search)) ("gnome F" (interactive-search))
("altcmd g" (clipboard-clear "primary")) ("altcmd g" (clipboard-clear "primary"))
("altcmd q" (make 'symbol)) ("altcmd q" (make 'symbol))
("altcmd x" (interactive footer-eval)) ("altcmd x" (interactive footer-eval))
("altcmd X" (interactive exec-interactive-command)) ("altcmd X" (interactive exec-interactive-command))
("altcmd $" (spell-start)) ("altcmd $" (interactive-spell))
("M-A-C-home" (traverse-first)) ("M-A-C-home" (traverse-first))
("M-A-C-end" (traverse-last)) ("M-A-C-end" (traverse-last))
("M-A-C-S-home" (kbd-select traverse-first)) ("M-A-C-S-home" (kbd-select traverse-first))
("M-A-C-S-end" (kbd-select traverse-last))) ("M-A-C-S-end" (kbd-select traverse-last)))
(kbd-map (kbd-map
(:profile gnome) (:profile gnome)
(:require (and (not (in-prog?)) (not (in-verbatim?)))) (:require (and (not (in-prog?)) (not (in-verbatim?))))
("M-tab" (kbd-alternate-tab)) ("M-tab" (kbd-alternate-tab))
skipping to change at line 552 skipping to change at line 556
;; further shortcuts for KDE look and feel ;; further shortcuts for KDE look and feel
("kde g" (selection-cancel)) ("kde g" (selection-cancel))
("kde l" (refresh-window)) ("kde l" (refresh-window))
("kde F" (interactive-search)) ("kde F" (interactive-search))
("altcmd g" (clipboard-clear "primary")) ("altcmd g" (clipboard-clear "primary"))
("altcmd q" (make 'symbol)) ("altcmd q" (make 'symbol))
("altcmd x" (interactive footer-eval)) ("altcmd x" (interactive footer-eval))
("altcmd X" (interactive exec-interactive-command)) ("altcmd X" (interactive exec-interactive-command))
("altcmd $" (spell-start)) ("altcmd $" (interactive-spell))
("M-A-C-home" (traverse-first)) ("M-A-C-home" (traverse-first))
("M-A-C-end" (traverse-last)) ("M-A-C-end" (traverse-last))
("M-A-C-S-home" (kbd-select traverse-first)) ("M-A-C-S-home" (kbd-select traverse-first))
("M-A-C-S-end" (kbd-select traverse-last))) ("M-A-C-S-end" (kbd-select traverse-last)))
(kbd-map (kbd-map
(:profile kde) (:profile kde)
(:require (and (not (in-prog?)) (not (in-verbatim?)))) (:require (and (not (in-prog?)) (not (in-verbatim?))))
("M-tab" (kbd-alternate-tab)) ("M-tab" (kbd-alternate-tab))
skipping to change at line 575 skipping to change at line 579
("M-S-space" (make-space "-0.2spc"))) ("M-S-space" (make-space "-0.2spc")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mac OS keymap ;; Mac OS keymap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(kbd-map (kbd-map
(:profile macos) (:profile macos)
;; standard Mac OS keyboard shortcuts ;; standard Mac OS keyboard shortcuts
("macos ;" (spell-start)) ("macos ;" (interactive-spell))
("macos ?" (interactive docgrep-in-doc)) ("macos ?" (interactive docgrep-in-doc))
("macos ," (interactive open-preferences)) ("macos ," (interactive open-preferences))
("macos [" (cursor-history-backward)) ("macos [" (cursor-history-backward))
("macos ]" (cursor-history-forward)) ("macos ]" (cursor-history-forward))
("macos left" (kbd-start-line)) ("macos left" (kbd-start-line))
("macos right" (kbd-end-line)) ("macos right" (kbd-end-line))
("macos up" (go-start)) ("macos up" (go-start))
("macos down" (go-end)) ("macos down" (go-end))
("macos S-left" (kbd-select kbd-start-line)) ("macos S-left" (kbd-select kbd-start-line))
("macos S-right" (kbd-select kbd-end-line)) ("macos S-right" (kbd-select kbd-end-line))
skipping to change at line 631 skipping to change at line 635
;; further shortcuts for MacOS look and feel ;; further shortcuts for MacOS look and feel
("macos r" (interactive-replace)) ("macos r" (interactive-replace))
("macos F" (toggle-full-screen-mode)) ("macos F" (toggle-full-screen-mode))
("macos C-f" (toggle-full-screen-edit-mode)) ("macos C-f" (toggle-full-screen-edit-mode))
("macos A-u" (toggle-preamble)) ("macos A-u" (toggle-preamble))
("altcmd x" (interactive footer-eval)) ("altcmd x" (interactive footer-eval))
("altcmd X" (interactive exec-interactive-command)) ("altcmd X" (interactive exec-interactive-command))
;("C-a" (kbd-start-line)) ; conflict with ("text a" (make-small 'abbr)) ;("C-a" (kbd-start-line)) ; conflict with ("text a" (make 'abbr))
;("C-e" (kbd-end-line)) ; conflict with ("text e" (make-tmlist 'enumerate)) ;("C-e" (kbd-end-line)) ; conflict with ("text e" (make-tmlist 'enumerate))
("C-g" (selection-cancel)) ("C-g" (selection-cancel))
("C-k" (kill-paragraph)) ("C-k" (kill-paragraph))
("C-l" (refresh-window)) ("C-l" (refresh-window))
("C-y" (yank-paragraph)) ("C-y" (yank-paragraph))
("C-q" (make 'symbol)) ("C-q" (make 'symbol))
("C-!" (make-label)) ("C-!" (make-label))
("C-?" (make 'reference))) ("C-?" (make 'reference)))
(kbd-map (kbd-map
skipping to change at line 657 skipping to change at line 661
("C-S-space" (make-space "-0.2spc"))) ("C-S-space" (make-space "-0.2spc")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Windows keymap ;; Windows keymap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(kbd-map (kbd-map
(:profile windows) (:profile windows)
;; standard Windows shortcuts ;; standard Windows shortcuts
("windows F4" (safely-kill-buffer)) ("windows F4" (close-document))
("windows left" (traverse-left)) ("windows left" (traverse-left))
("windows right" (traverse-right)) ("windows right" (traverse-right))
("windows home" (go-start)) ("windows home" (go-start))
("windows end" (go-end)) ("windows end" (go-end))
("windows S-left" (kbd-select traverse-left)) ("windows S-left" (kbd-select traverse-left))
("windows S-right" (kbd-select traverse-right)) ("windows S-right" (kbd-select traverse-right))
("windows S-home" (kbd-select go-start)) ("windows S-home" (kbd-select go-start))
("windows S-end" (kbd-select go-end)) ("windows S-end" (kbd-select go-end))
("windows S-space" (make 'nbsp)) ("windows S-space" (make 'nbsp))
("windows _" (make 'nbhyph)) ("windows _" (make 'nbhyph))
("windows -" "--") ("windows -" "--")
("windows A--" (make 'emdash)) ("windows A--" (make 'emdash))
("windows A-." "<ldots>") ("windows A-." "<ldots>")
("windows A-c" (make 'copyright)) ("windows A-c" (make 'copyright))
("windows e" (make 'footnote)) ("windows e" (make-wrapped 'footnote))
("windows F" (make 'footnote)) ("windows F" (make-wrapped 'footnote))
("windows h" (interactive-replace)) ("windows h" (interactive-replace))
("windows k" (make 'hlink)) ("windows k" (make 'hlink))
("windows K" (toggle-small-caps)) ("windows K" (toggle-small-caps))
("windows A-r" (make 'registered)) ("windows A-r" (make 'registered))
("windows A-t" (make 'trademark)) ("windows A-t" (make 'trademark))
("windows y" (redo 0)) ("windows y" (redo 0))
("F2" (interactive-replace)) ("F2" (interactive-replace))
("S-delete" (clipboard-cut "primary")) ("S-delete" (clipboard-cut "primary"))
("S-insert" (clipboard-paste "primary")) ("S-insert" (clipboard-paste "primary"))
("C-insert" (clipboard-copy "primary")) ("C-insert" (clipboard-copy "primary"))
("A-F4" (safely-kill-buffer)) ("A-F4" (close-document))
("A-left" (cursor-history-backward)) ("A-left" (cursor-history-backward))
("A-right" (cursor-history-forward)) ("A-right" (cursor-history-forward))
("search windows g" (search-next-match #t)) ("search windows g" (search-next-match #t))
("search windows G" (search-next-match #f)) ("search windows G" (search-next-match #f))
("search F3" (search-next-match #t)) ("search F3" (search-next-match #t))
("search S-F3" (search-next-match #f)) ("search S-F3" (search-next-match #f))
;; not yet implemented ;; not yet implemented
;;("F4" (go-to-different-folder)) ;;("F4" (go-to-different-folder))
skipping to change at line 766 skipping to change at line 770
;;("back" (previous-tab)) ;;("back" (previous-tab))
;; further shortcuts for Windows look and feel ;; further shortcuts for Windows look and feel
("windows g" (selection-cancel)) ("windows g" (selection-cancel))
("windows l" (refresh-window)) ("windows l" (refresh-window))
("altcmd g" (clipboard-clear "primary")) ("altcmd g" (clipboard-clear "primary"))
("altcmd q" (make 'symbol)) ("altcmd q" (make 'symbol))
("altcmd x" (interactive footer-eval)) ("altcmd x" (interactive footer-eval))
("altcmd X" (interactive exec-interactive-command)) ("altcmd X" (interactive exec-interactive-command))
("altcmd $" (spell-start)) ("altcmd $" (interactive-spell))
("M-A-C-home" (traverse-first)) ("M-A-C-home" (traverse-first))
("M-A-C-end" (traverse-last)) ("M-A-C-end" (traverse-last))
("M-A-C-S-home" (kbd-select traverse-first)) ("M-A-C-S-home" (kbd-select traverse-first))
("M-A-C-S-end" (kbd-select traverse-last))) ("M-A-C-S-end" (kbd-select traverse-last)))
(kbd-map (kbd-map
(:profile windows) (:profile windows)
(:require (and (not (in-prog?)) (not (in-verbatim?)))) (:require (and (not (in-prog?)) (not (in-verbatim?))))
("M-tab" (kbd-alternate-tab)) ("M-tab" (kbd-alternate-tab))
 End of changes. 17 change blocks. 
22 lines changed or deleted 26 lines changed or added

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