有人可以给我一个函数来检测名为“xyz”的框架是否存在,如果存在,则切换到该框架。我使用 frame-cmds
为每个帧指定一个用户定义的名称: http://www.emacswiki.org/emacs/frame-cmds.el
我想它类似于缓冲区,但我在谷歌上没有找到任何东西。这是缓冲函数:
(defun buffer-exists (bufname)
(not (eq nil (get-buffer bufname))))
(defun lawlist-switch-to-buffer-xyz ()
(interactive)
(if (buffer-exists "xyz")
(switch-to-buffer "xyz") ))
这是一篇半相关的帖子:https://superuser.com/questions/358037/emacsclient-create-a-frame-if-a-frame-does-not-exist
编辑(2014 年 9 月 15 日):修改了函数 ido-switch-frame
以使 frame-to
成为 let 绑定(bind)变量,并删除了消息
。删除了之前的编辑,因为 Drew Adams 编写的函数 get-a-frame
和 get-frame-name
在与 select-frame-set 结合使用时就足够了-input-focus
-- 请参阅下面他的答案。
(defun ido-switch-frame ()
(interactive)
(when (not (minibufferp))
(let* (
(frames (frame-list))
(frame-to (ido-completing-read "Select Frame: "
(mapcar (lambda (frame) (frame-parameter frame 'name)) frames))))
(catch 'break
(while frames
(let ((frame (car frames)))
(if (equal (frame-parameter frame 'name) frame-to)
(throw 'break (select-frame-set-input-focus frame))
(setq frames (cdr frames)))))))))
最佳答案
可能有更优雅的解决方案,但这可以完成工作:
(defun switch-to-frame (frame-name)
(interactive "sFrame name:")
(let ((frames (frame-list)))
(catch 'break
(while frames
(let ((frame (car frames)))
(if (equal (frame-parameter frame 'name) frame-name)
(throw 'break (select-frame-set-input-focus frame))
(setq frames (cdr frames))))))))
关于emacs - 如果名为 "xyz"的帧存在,则切换到该帧,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17823448/