[201_47 ] 退出搜索替换窗口时光标传入主文档 (#2411)

Author: wumoin

TeXmacs/progs/generic/search-widgets.scm

@@ -140,7 +140,7 @@ search-buffer
 ----
 url
 如果当前缓冲区已经是 tmfs://aux/search 类型的辅助缓冲区，则返回该缓冲区URL；
-否则返回基于当前视图URL MD5哈希的唯一搜索缓冲区URL。
+否则返回基于当前视图URL MD5哈希的唯一搜索缓冲区URL和当前窗口。
 
 逻辑
 ----
@@ -156,10 +156,13 @@ url
 (tm-define (search-buffer)
   (with u (current-buffer)
     (if (and (url-rooted-tmfs? u)
-             (== (url-head u) (string->url "tmfs://aux/search")))
+             (== (url-head(url-head u)) (string->url "tmfs://aux/search")))
         u
         (string->url
-          (string-append "tmfs://aux/search/" (md5 (url->string (current-view-url))))))))
+          (string-append "tmfs://aux/search/" 
+                         (md5 (url->string (current-view-url)))
+                         "/"
+                         (url->string (url-tail (current-window))))))))
 
 #|
 replace-buffer
@@ -177,7 +180,7 @@ replace-buffer
 ----
 url
 如果当前缓冲区已经是 tmfs://aux/replace 类型的辅助缓冲区，则返回该缓冲区URL；
-否则返回基于当前视图URL MD5哈希的唯一替换缓冲区URL。
+否则返回基于当前视图URL MD5哈希的唯一替换缓冲区URL和当前窗口。
 
 逻辑
 ----
@@ -193,10 +196,16 @@ url
 (tm-define (replace-buffer)
   (with u (current-buffer)
     (if (and (url-rooted-tmfs? u)
-             (== (url-head u) (string->url "tmfs://aux/replace")))
+             (== (url-head(url-head u)) (string->url "tmfs://aux/replace")))
         u
         (string->url
-          (string-append "tmfs://aux/replace/" (md5 (url->string (current-view-url))))))))
+          (string-append "tmfs://aux/replace/" 
+                         (md5 (url->string (current-view-url)))
+                         "/"
+                         (url->string (url-tail (current-window))))))))
+
+(tm-define (auxiliary-buffer->window x)
+  (url-append (string->url "tmfs://window") (url-tail x)))
 
 (tm-define (master-buffer)
   (and (buffer-exists? (search-buffer))
@@ -427,7 +436,10 @@ url
   (set! search-serial (+ search-serial 1))
   (with-buffer (master-buffer)
     (cancel-alt-selection "alternate"))
-  (set-search-window-state #f #f))
+  (set-search-window-state #f #f)
+  (buffer-focus
+    (window->buffer
+      (auxiliary-buffer->window (search-buffer)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Replace occurrences

devel/201_47.md

@@ -1,9 +1,12 @@
 # 201_47 
 
 ## 如何测试
-1. 按下`编辑->查找`，光标被自动传入查找框。观察能否往里面输入内容
-2. 按下`编辑->替换`，光标被自动传入查找框，观察能否往里面输入内容
-3. 按下`插入->注记->折叠的批注`，光标自动传入输入框，观察能否往里面输入内容
+1. 按下`编辑->查找`，光标被自动传入查找框。观察能否往里面输入内容，按下下面的红色x,窗口被关闭，并且光标被传入主文档。
+2. 按下`编辑->替换`，光标被自动传入查找框，观察能否往里面输入内容，按下下面的红色x,窗口被关闭，并且光标被传入主文档。
+3. 按下`插入->注记->折叠的批注`，光标自动传入输入框，观察能否往里面输入内容。
+
+## 2025/12/30 退出搜索替换窗口时光标传入主文档
 
 ## 2025/12/29 按下插入->注记->折叠的批注时传入光标
-## 2025/12/29 调用查找替换时将光标传入查找框中
+
+## 2025/12/29 调用查找替换时将光标传入查找框中

src/Plugins/Qt/QTMAuxiliaryWidget.cpp

@@ -43,8 +43,7 @@ QTMAuxiliaryWidget::keyPressEvent (QKeyEvent* event) {
   switch (event->key ()) {
   case Qt::Key_Escape:
     // 隐藏辅助窗口
-    exec_delayed (scheme_cmd (
-        "(when (defined? 'close-auxiliary-widget) (close-auxiliary-widget))"));
+    this->close ();
     break;
   default:
     QDockWidget::keyPressEvent (event);