!460 [201_4] 修复 custom-complete 时删除掉前缀补全框不关闭

Author: JimZhouZZY

devel/201_4.md

@@ -57,6 +57,23 @@
 流程同generic-edit环境的版本，只是第三步改为
 3. 插入一段Python块，输入内容(例如re)。
 
+## 2025/07/29 fix: custom-complete时删除掉前缀补全框不关闭
+### What
+修改了custom-complete对于prefix定义的条件，使用一个辅助变量prefix_initialized来判断是否定义，而不是使用prefix自身。
+
+### Why
+补全项的第一项（补全中使用到的prefix）也可能是空字符串“”，这种情况发生时，如果使用`prefix != ""`来判断prefix是否初始化就不正确了。
+
+### 如何测试
+这块bug fix比较小，不写在上面的流程中了。
+0. 确保 Completion style 设置为 Popup
+1. 插入一个Scheme块
+2. 插入一些可以补全的字符，例如"(a"
+3. 按tab补全
+4. 删除掉前缀，在这个例子里是"a"
+5. 检查：补全框因前缀为空而消失
+
+
 ## 2025/07/18 令Popup补全模式下不显示消息
 ### What
 移除了Popup补全模式下显示消息的代码。

src/Edit/Interface/edit_complete.cpp

@@ -338,18 +338,26 @@ edit_interface_rep::custom_complete (tree r) {
   int             i, r_N= N (r);
   int             min_compls_N= 1;
   string          prefix;
+  bool            prefix_initialized= false;
   hashset<string> compls;
   if (completion_style == string ("Popup")) {
     min_compls_N= 2; // 至少需要2个补全结果(前缀自身和一个补全结果)
     compls << string (""); // 在补全结果中插入一个空值以保留前缀自身
   }
-  for (i= 0; i < r_N; i++)
+  for (i= 0; i < r_N; i++) {
     if (is_atomic (r[i])) {
       string l= r[i]->label;
       if (is_quoted (l)) l= scm_unquote (l);
-      if (prefix == "") prefix= l;
-      else compls << l;
+      if (!prefix_initialized) {
+        // 这里使用补全的第一个结果（自身）定义了 prefix
+        // 第一个结果可能为空，所以不能使用 prefix = "" 来判断
+        // 需要一个另外的辅助变量
+        prefix            = l;
+        prefix_initialized= true;
+      }
+      compls << l;
     }
+  }
   // cout << prefix << ", " << compls << LF;
   if ((prefix == "") || (N (compls) < min_compls_N)) {
     set_input_normal ();