diff --git a/TeXmacs/progs/source/shortcut-edit.scm b/TeXmacs/progs/source/shortcut-edit.scm index 4552b0059c..438171e180 100644 --- a/TeXmacs/progs/source/shortcut-edit.scm +++ b/TeXmacs/progs/source/shortcut-edit.scm @@ -189,8 +189,23 @@ ;; Editing keyboard shortcuts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(define (in-shortcut-editor?) + (tree-func? (cursor-tree) 'preview-shortcut 1)) + +(tm-define (zoom-in x) + (:require (in-shortcut-editor?)) + (noop)) + +(tm-define (zoom-out x) + (:require (in-shortcut-editor?)) + (noop)) + +(tm-define (change-zoom-factor z) + (:require (in-shortcut-editor?)) + (noop)) + (tm-define (keyboard-press key time) - (if (not (tree-func? (cursor-tree) 'preview-shortcut 1)) + (if (not (in-shortcut-editor?)) (former key time) (and-let* ((t (cursor-tree)) (sh (tm-ref t 0)) diff --git a/devel/222_50.md b/devel/222_50.md new file mode 100644 index 0000000000..6054402395 --- /dev/null +++ b/devel/222_50.md @@ -0,0 +1,10 @@ +# [222_50] + +### 如何测试 +1. 点击`工具->键盘->编辑键盘快捷键` +2. 点击快捷键编辑框,按住ctrl 并滑动滚轮,编辑界面不会变化(原本的实现会缩放该界面) + +## 2026/03/05 优化快捷键编辑器界面 + +### how +通过拦截缩放事件来避免快捷键编辑器也进行缩放