emacs窗口可以“部分”专用吗？

2023年7月29日 308次阅读

我正在使用与
dedicate-windows-manually.el非常相似的
dedicated.el来手动将某些窗口标记为“专用”到它们的缓冲区,并且通过打开新缓冲区(grep,编译等)的各种命令也无法分割.

但我真的只想要第二部分.

换句话说,我希望find-file,kill-buffer,switch-buffer等工作,好像当前窗口不是专用的.但我希望其他命令(grep,compile)能够遵循专用状态而不是拆分该窗口.

我对此做了一个小小的尝试,但它没有正常工作,似乎是一种误入歧途的方式,很可能错过很多案例.

(其中一个问题是“专用”次要模式与缓冲区相关联,而set-window-dedicated-p适用于窗口;这可以克服,但我仍然觉得必须有更好的方法来实现我的目标想…)

(defun with-undedicated (f)
  (interactive)
  (let ((was-dedicated (bound-and-true-p dedicated-mode)))
    (progn
      (if was-dedicated (dedicated-mode))
      (command-execute f)
      (if was-dedicated (dedicated-mode)))))

(defun undedicated-find-file ()
  (interactive)
  (with-undedicated 'ido-find-file))

(defun undedicated-kill-buffer ()
  (interactive)
  (with-undedicated 'ido-kill-buffer))

(defun undedicated-switch-buffer ()
  (interactive)
  (with-undedicated 'ido-switch-buffer))

(global-set-key (kbd "C-x C-f") 'undedicated-find-file)
(global-set-key (kbd "C-x k") 'undedicated-kill-buffer)
(global-set-key (kbd "C-x b") 'undedicated-switch-buffer)

编辑

以下是为了测试Drew的答案：

(defun make-weak-dedicated ()
  (interactive)
  (set-window-dedicated-p (selected-window) "weak"))

(defun dedicated-status ()
  (interactive)
  (minibuffer-message "window-dedicated-p: %s" (window-dedicated-p (selected-window))))

使窗口“弱”专用确实做我想要的：grep和其他弹出缓冲区不替换弱专用窗口中的缓冲区.但是,在那个弱专用窗口中,find-file似乎将window-dedicated-p重置为nil,正如我的专用状态函数所测试的那样,所以我仍然没有一种技术来阻止弹出缓冲区使用或拆分窗口允许查找文件等在该窗口内正常工作.

澄清

对不起,不清楚.这就是我想要发生的事情：

>我将窗口标记为[弱]专用(或者可能存在的任何等效项)
>我调用grep,编译等等,并且它们不会拆分该窗口,也不会替换该窗口中的缓冲区(而是拆分一些未标记为专用的窗口)
>在弱专用窗口中,我调用find-file,它替换窗口中的缓冲区,但是将窗口弱化专用于现在更改的缓冲区

这是最后一点不能正常工作的方式：在find-file之后,窗口不再是弱专用的(window-dedicated-p是nil).由于有问题的属性与窗口相关联,我发现更改缓冲区会影响该窗口属性,这一点令人惊讶,但事实确实如此.

最佳答案 请参阅Elisp手册,节点
Dedicated Windows.如果使用函数set-window-dedicated-p为窗口提供非零和非t值,则函数
set-window-buffer将其视为弱专用窗口.这可能就是你要找的东西.

点赞