如何改造Emacs中可视化特定隐藏字符的函数以支持所有隐藏字符？

下面是改造后的通用版本，能识别并可视化缓冲区中所有默认不可见的字符（包括控制字符、零宽字符、带invisible属性的字符等）：

(defun my-display-hidden-all (&optional remove)
  "Show/hide all hidden/invisible characters in the current buffer."
  (interactive "P")
  (if remove
      (remove-overlays)
    (save-excursion
      (goto-char (point-min))
      (while (< (point) (point-max))
        (let ((char (char-after)))
          ;; 判断是否为不可见字符：控制字符、零宽字符，或带有invisible属性
          (when (or (get-char-property (point) 'invisible)
                    (and (char-valid-p char)
                         (or (char-category-p char ?c) ; 控制字符类
                             (eq (char-width char) 0)))) ; 零宽字符
            (let ((ov (make-overlay (point) (1+ (point)))))
              (overlay-put ov 'display
                           (buttonize (format "(0x%X)" char)
                                      (let ((pos (point)))
                                        (lambda (_) (describe-char pos)))))
              (overlay-put ov 'face 'font-lock-warning-face))))
        (forward-char)))))

关键改动说明 #

• 替换原函数的特定字符搜索逻辑，改为遍历缓冲区每一个字符，逐个判断是否为不可见字符
• 扩展判断规则，覆盖三类常见不可见场景：
  • 带有invisible属性的手动标记隐藏字符
  • Unicode分类中的控制字符
  • 字符宽度为0的零宽字符（如零宽空格、组合附加符号等）
• 动态生成每个字符的标识标签，用十六进制码点区分不同隐藏字符
• 保留原函数的交互功能，点击标识按钮可调用describe-char查看字符详细信息

内容的提问来源于stack exchange，提问作者Mahavir