[Bug] doom modeline and set-mark-command.

[bommbo]

Thank you for the bug report

• I am using the latest version of doom-modeline related packages.
• I checked FAQ.
• You may also try reproduce the issue using clean environment and minimal configurations with
  the command emacs -Q.

Bug description

Emacs version

GNU Emacs 32.0.50
Development version 233b00a683a1 on master branch;

Configuration

(use-package doom-modeline
  :ensure t
  :init
  (setq doom-modeline-icon t
        doom-modeline-major-mode-icon t)
  :config
  (doom-modeline-mode 1))

describe

在emacs-mirror/emacs@c6c4888 这次提交后，set-mark-command被干扰，上下无法选择，左右没问题。将doom-modeline-string-pixel-width改动后修复。

(with-eval-after-load 'doom-modeline-core
  (defun doom-modeline-string-pixel-width (str)
    "Return the width of STR in pixels using safe math calculation."
    (* (string-width str) 
       (window-font-width nil 'mode-line)
       (if (display-graphic-p) 1.05 1.0))))

Steps to reproduce

如上复刻

Expected behavior

set-mark-command可以上下选择。

OS

Linux

Emacs Version

31

Emacs Configurations

No response

Error callstack

Anything else

No response

[seagle0128]

Do you mean string-pixel-width is impacted by emacs-mirror/emacs@c6c4888? If so, please file an issue to Emacs.

[bommbo]

Do you mean string-pixel-width is impacted by emacs-mirror/emacs@c6c4888? If so, please file an issue to Emacs.

其实我也不知道怎么上报。。我二分法查出是这次提交出的问题，但是我并不知道string-pixel-width受到了什么影响。甚至是不是string-pixel-width的问题也不清楚。。目前的策略只能改了函数。

[seagle0128]

这改动不合理。使用string-pixel-width是为了更好的兼容和效率，当前的计算是为了兼容老的Emacs版本，并不是最佳方式。如果最新修改造成了问题，最佳方式是修复，而不是外围软件去规避。现在最好先查清楚root cause。目前我没有明白为什么这个改动会干扰set-mark-command，修改doom-modeline就没干扰。

[bommbo]

这改动不合理。使用string-pixel-width是为了更好的兼容和效率，当前的计算是为了兼容老的Emacs版本，并不是最佳方式。如果最新修改造成了问题，最佳方式是修复，而不是外围软件去规避。现在最好先查清楚root cause。目前我没有明白为什么这个改动会干扰set-mark-command，修改doom-modeline就没干扰。

能力有限，我是先找到个方法让set-mark-command工作，再定位到的问题位置。字体，框架等等都排除掉，最后定位到这，但是最后这一步我也没啥能力描述到底是什么原因。。试过log，测试结果还是一样的，所以更难说清到底是什么问题了，我也知道应该是emacs源码修复，但是难说清楚到底是什么问题。

[seagle0128]

能再详细描述下是如何干扰set-mark-command命令吗？具体是怎么操作的，现象是什么？

[bommbo]

能再详细描述下是如何干扰set-mark-command命令吗？具体是怎么操作的，现象是什么？

“C-space” 按下后按方向键做 mark 操作，只有左右键行，上下键没有反应；例如先右再下，mark的高亮也会消失，当然mark操作也失效。

补一个gif

[seagle0128]

不启用doom-modeline就没问题？

[bommbo]

不启用doom-modeline就没问题？

对的，虽然看起来八竿子打不着的关系。但是目前就只有doom modeline 和 set-mark-command 产生了化学反应。

当 string-pixel-width 首次被调用时（例如 doom-modeline 在重绘 mode-line 时触发），随后的 work-buffer--release 会错误地在用户当前正在编辑的 buffer 上执行 kill-all-local-variables，而不是在 work buffer 上执行。这会清除 mark-active 状态，导致激活的选区意外失效。

影响链条是：
#0 bset_mark_active (val=0)
#1 reset_buffer
#2 Fkill_all_local_variables (kill_permanent=Qreset)
#3 work-buffer--release
#4 string-pixel-width
#5 doom-modeline-string-pixel-width

修复方式如下：

subr-x.el

(defun work-buffer--release (buffer)
  "Release work BUFFER."
  (if (buffer-live-p buffer)
      (if (eq buffer (current-buffer))
          (kill-buffer buffer)
        (with-current-buffer buffer
          ;; Flush BUFFER before making it available again, i.e. clear
          ;; its contents, remove all overlays and buffer-local
          ;; variables.  Is it enough to safely reuse the buffer?
          (let ((inhibit-read-only t))
            (erase-buffer)
            (delete-all-overlays))
          (let (change-major-mode-hook)
            ;; Ensure `kill-all-local-variables' kills *all* permanent locals
            ;; rather than exempting any, and resets the buffer to pristine
            ;; state.
            (kill-all-local-variables 'reset))
          ;; Make the buffer available again.
          (push buffer work-buffer--list))))
  ;; If the maximum number of reusable work buffers is exceeded, kill
  ;; work buffer in excess, taking into account that the limit could
  ;; have been let-bound to temporarily increase its value.
  (when (> (length work-buffer--list) work-buffer-limit)
    (mapc #'kill-buffer (nthcdr work-buffer-limit work-buffer--list))
    (setq work-buffer--list (ntake work-buffer-limit work-buffer--list))))

我没签过那个什么emacs贡献的条款，大佬帮忙提交吧。

[seagle0128]

不一定要签署GNU条款，可以只report bug，附带这些发现描述即可。

[bommbo]

不一定要签署GNU条款，可以只report bug，附带这些发现描述即可。

实在不习惯emacs做邮箱，尝试网页端邮箱直接报告了，不过没看到回复，也没看到我提交的bug，不知道是不是拒收了。暂时就这样吧，如果有回复我就尝试沟通，没有就算了，一时半会也少有用户直接用master版本，doom modeline也不会有任何问题。

更新：
https://lists.gnu.org/archive/html/bug-gnu-emacs/2026-06/msg00890.html

如果解决这个问题我就关闭这个issue。

[bommbo]

更新：https://lists.gnu.org/archive/html/bug-gnu-emacs/2026-06/msg00896.html

显然需要一个不依赖这个包的最小验证，老实说我还没有这个能力。我是gdb 断点break bset_mark_active if b == current_buffer && val == 0) 测试的buffer.c 出了问题，也进行了修改，但是还是难以修复，表现为首次sert-mark-command失效，其余次可行；之后结合二分法推测的那次提交出的问题还是猜测emacs-lisp/subr-x.el出了啥问题，和ai讨论推测出了现在的修改结果。

但是如果脱离这个包，比如直接用string-pixel-width，其实也不会影响set-mark-command，这个你可以通过一个仅有string-pixel-width的modeline配置来验证。

综上，我能做得就只有这些了。老实说，还不如不提怎么修复呢，说了怎么做，他就要我证明；如果不说，可能这个bug会一直挂着。。。。

[bommbo]

更新：https://lists.gnu.org/archive/html/bug-gnu-emacs/2026-06/msg00992.html
好在有人找到了之前报告的bug，这个issue应该能解决了。这下可以等解决之后再更新就好了。

[seagle0128]

所以，这个issue可以关闭了？