[201_47] 调用查找替换时将光标传入查找框中 (#2403)

Author: wumoin

TeXmacs/progs/generic/search-widgets.scm

@@ -787,7 +787,9 @@ tree 或 #f
       (when (selection-active?)
         (begin
           (buffer-set-body aux `(document ,(selection-tree)))))
-      (perform-search*))))
+      (perform-search*)
+      (buffer-focus (search-buffer))
+      (go-end))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Search and replace widget
@@ -906,7 +908,9 @@ tree 或 #f
       (when (selection-active?)
         (begin
           (buffer-set-body saux `(document ,(selection-tree)))))
-      (perform-search*))))
+      (perform-search*)
+      (buffer-focus (search-buffer))
+      (go-end))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Search toolbar

devel/201_47.md

@@ -0,0 +1,7 @@
+# 201_47 
+
+## 如何测试
+1. 按下`编辑->查找`，光标被自动传入查找框。观察能否往里面输入内容
+2. 按下`编辑->替换`，光标被自动传入查找框，观察能否往里面输入内容
+
+## 2025/12/29 调用查找替换时将光标传入查找框中

src/Texmacs/Data/new_view.cpp

@@ -754,6 +754,8 @@ focus_on_buffer (url name) {
     if (N (vws) > 0) r= vws[0];
   }
   if (is_none (r)) return false;
+  tm_view new_vw= concrete_view (r);
+  send_keyboard_focus (new_vw->ed);
   set_current_view (r);
   return true;
 }