如何用Elisp实现缓冲区选中内容固定显示（类Excel冻结功能）

首先明确：Emacs的overlay是和缓冲区文本位置绑定的，滚动时文本移动，overlay也会随之移动，不存在直接通过overlay属性实现固定显示的方法，你尝试的lock属性确实是不存在的。

要实现类似Excel冻结行/列的效果，核心是让目标区域始终处于窗口可视范围内，以下是两种实用方案：

方案一：分割窗口固定区域（直观稳定） #

把需要固定的区域单独放在一个专用小窗口，主窗口滚动时这个窗口保持不动，不随内容滚动。

实现代码 #

(defvar locked-region-overlay nil
  "保存固定区域的overlay，用于后续定位与取消")
(defvar locked-window nil
  "保存固定区域所在的专用窗口")

(defun lock-region-in-view ()
  "将选中区域固定在窗口顶部，模拟Excel冻结行效果"
  (interactive)
  (unless (region-active-p)
    (error "请先选中要固定的区域"))
  ;; 先清理已有的固定状态
  (when locked-window
    (delete-window locked-window)
    (setq locked-window nil))
  (when locked-region-overlay
    (delete-overlay locked-region-overlay)
    (setq locked-region-overlay nil))

  ;; 创建标记固定区域的overlay（高亮显示便于识别）
  (setq locked-region-overlay (make-overlay (region-beginning) (region-end)))
  (overlay-put locked-region-overlay 'face 'highlight)

  ;; 计算固定区域的行数，分割对应高度的窗口
  (let ((region-lines (count-lines (region-beginning) (region-end))))
    (setq locked-window (split-window-below region-lines)))
  ;; 设置顶部窗口仅显示固定区域，禁止滚动
  (set-window-start locked-window (region-beginning))
  (set-window-end locked-window (region-end))
  (set-window-dedicated-p locked-window t) ; 设为专用窗口，防止意外关闭
  ;; 切换回主编辑窗口
  (select-window (next-window locked-window)))

(defun unlock-region-in-view ()
  "取消区域固定，恢复正常窗口布局"
  (interactive)
  (when locked-window
    (delete-window locked-window)
    (setq locked-window nil))
  (when locked-region-overlay
    (delete-overlay locked-region-overlay)
    (setq locked-region-overlay nil)))

使用说明 #

1. 选中需要固定的区域，执行M-x lock-region-in-view，顶部会生成一个显示固定区域的小窗口，主窗口滚动时该窗口保持不动。
2. 执行M-x unlock-region-in-view即可取消固定，恢复原有窗口布局。

方案二：滚动钩子动态调整窗口位置（无需分窗口） #

通过监听窗口滚动事件，每次滚动后自动调整窗口起始位置，确保固定区域始终处于可视范围内。

实现代码 #

(defvar fixed-region-beg nil
  "固定区域的起始缓冲区位置")
(defvar fixed-region-end nil
  "固定区域的结束缓冲区位置")

(defun fix-region-scroll-hook (window start)
  "滚动时自动调整窗口位置，确保固定区域可见"
  (when (and fixed-region-beg fixed-region-end)
    (let ((window-visible-end (window-end window t)))
      ;; 若固定区域起始在可视范围外，调整窗口起始位置
      (when (< fixed-region-beg start)
        (set-window-start window fixed-region-beg))
      ;; 若固定区域结束在可视范围外，调整窗口结束位置
      (when (> fixed-region-end window-visible-end)
        (set-window-end window fixed-region-end t)))))

(defun enable-fixed-region ()
  "启用区域固定功能"
  (interactive)
  (unless (region-active-p)
    (error "请先选中要固定的区域"))
  (setq fixed-region-beg (region-beginning)
        fixed-region-end (region-end))
  ;; 添加滚动监听钩子
  (add-hook 'window-scroll-functions 'fix-region-scroll-hook)
  ;; 立即调整窗口，让固定区域进入视野
  (fix-region-scroll-hook (selected-window) (window-start)))

(defun disable-fixed-region ()
  "禁用区域固定功能"
  (interactive)
  (remove-hook 'window-scroll-functions 'fix-region-scroll-hook)
  (setq fixed-region-beg nil
        fixed-region-end nil))

使用说明 #

1. 选中区域后执行M-x enable-fixed-region，后续滚动窗口时，固定区域会始终保持在可视范围内。
2. 执行M-x disable-fixed-region即可取消固定，恢复正常滚动逻辑。

补充说明 #

• 方案一的优势是直观，固定区域独立显示，不干扰主窗口的滚动逻辑；缺点是会占用额外的窗口空间。
• 方案二无需分割窗口，但滚动时会强制调整窗口位置，可能会打断正常的滚动体验。
• 你提供的hide-region-hide函数是利用overlay实现内容隐藏，和固定显示的逻辑完全不同——overlay仅能绑定文本位置，无法控制窗口的可视范围，因此无法实现固定显示的效果。

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