emacs 通过名称切换frame(帧)

emacs如果开多个frame，通过C-x 5 o切换很不方便，查了很久才发现解决方法。

参考：

If frame named “xyz” exists, then switch to that frame

Switch between frames by number or letter

选中的代码：

(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初始化文件，然后通过M-x switch-to-frame然后输入F1等编号就可以了。

曾经选中icicles，但icicles会覆盖所有的命令，十分不习惯。

icicles的安装也比较方便，通过emacs的包安装，在emacs初始化脚本中添加(icy-mode 1)即可使用。

有没有更方便的方法呢？有的请交流一下。