symbol-overlay 计数不对？

fengqi · 2022 年11 月 9 日 08:28

如下图所示，表示当前 symbol 位置的计数不正确，而且总是比实际 symbol 数量多1。

OS: Ubuntu
Emacs version: master 分支 revision 68e2a9cd92996dd55ff9599dc1bf99c70070cddb

yangyingchao · 2022 年11 月 9 日 08:48

github.com

ruby-china/How-To-Ask-Questions-The-Smart-Way/blob/master/README-zh_CN.md

# 提问的智慧

**How To Ask Questions The Smart Way**

Copyright © 2001,2006,2014 Eric S. Raymond, Rick Moen

本指南英文版版权为 Eric S. Raymond, Rick Moen 所有。

原文网址:[http://www.catb.org/~esr/faqs/smart-questions.html](http://www.catb.org/~esr/faqs/smart-questions.html)

Copyleft 2001 by D.H.Grand(nOBODY/Ginux), 2010 by Gasolin, 2015 by Ryan Wu

本中文指南是基于原文 3.10 版以及 2010 年由 [Gasolin](https://github.com/gasolin) 所翻译版本的最新翻译；

协助指出翻译问题，__请[发Issue](https://github.com/ryanhanwu/smartquestions/issues/new)，或直接[发Pull Request](https://github.com/ryanhanwu/smartquestions/compare/)给我。__

本文另有简体中文版: [https://github.com/FredWe/How-To-Ask-Questions-The-Smart-Way/blob/master/README-zh_CN.md](https://github.com/FredWe/How-To-Ask-Questions-The-Smart-Way/blob/master/README-zh_CN.md)

## [原文版本历史](https://github.com/ryanhanwu/smartquestions/blob/master/history.md)

This file has been truncated. show original

BlindingDark · 2022 年11 月 9 日 09:04

我也遇到这个 bug 了，你不说我都忘了这个事儿了，让我瞅瞅是哪里不对。

另外我觉得楼主描述的很清楚了，楼上没必要贴那个。

fengqi · 2022 年11 月 9 日 09:10

我自己单步发现的是symbol-overlay-maybe-count里的 before 和 after 值返回的不对。在emacs28上却是对的，不过单步时错过一次，但是它又自己变成对的了。

github.com

wolray/symbol-overlay/blob/master/symbol-overlay.el#L410


      
                (save-restriction
                  (symbol-overlay-narrow scope)
                  (goto-char (point-min))
                  (let ((re (symbol-overlay-regexp symbol)))
                    (while (re-search-forward re nil t)
                      (symbol-overlay-put-one symbol face)))))
              (setq keyword `(,symbol ,scope . ,face))
              (push keyword symbol-overlay-keywords-alist)
              keyword))
          
          
(defun symbol-overlay-maybe-count (keyword &optional show-color)
            "Show the number of KEYWORD's occurrences.
          If SHOW-COLOR is non-nil, display the color used by current overlay."
            (when keyword
              (let* ((symbol (car keyword))
                     (before (symbol-overlay-get-list -1 symbol))
                     (after (symbol-overlay-get-list 1 symbol))
                     (count (length before))
                     ;; Log to echo area but not *Messages*
                     message-log-max)
                (message (concat "%s: %d/%d"

cireu · 2022 年11 月 9 日 09:10

目测是 noverlay 导致的新 bug，因为我在 29 可以复现，28 是好的

fengqi · 2022 年11 月 9 日 09:12

我也觉得是这个问题，不过对 overlay 的 api 不熟悉，不知道以前版本那些 api 的正确行为是啥

BlindingDark · 2022 年11 月 9 日 11:15

overlay-lists 的行为有变化，没返回 pair。

临时用 overlays-in 糊了一个，你试试看

(defun symbol-overlay-get-list! (dir &optional symbol exclude)
  "Get all highlighted overlays in the buffer.
If SYMBOL is non-nil, get the overlays that belong to it.
DIR is an integer.
If EXCLUDE is non-nil, get all overlays excluding those belong to SYMBOL."
  (let ((lists (if (> dir 0)
                   (if (looking-at-p "\\_>")
                       (overlays-in (- (point) 1) (point-max))
                     (overlays-in (point) (point-max)))
                 (if (< dir 0)
                     (butlast (overlays-in (point-min) (+ 1 (point))))
                   (overlays-in (point-min) (point-max))))))
    (seq-filter
     (lambda (ov)
       (let ((value (overlay-get ov 'symbol)))
         (and value
              (or (not symbol)
                  (if (string= value symbol) (not exclude)
                    (and exclude (not (string= value ""))))))))
     lists)))
(advice-add 'symbol-overlay-get-list :override #'symbol-overlay-get-list!)

VagrantJoker · 2022 年11 月 9 日 11:44

建议报 bug

Roife · 2022 年11 月 9 日 19:10

Symbol Overlay 似乎好久没更新了……

fengqi · 2022 年11 月 10 日 05:24

可以用，多谢。