关于emacs全屏的切换问题

[hhmhfh]

我知道在linux下使用emacs -fs可以让emacs全屏启动。
但是怎么让emacs在启动之后，实现正常大小与全屏的切换呢？
网上的方法都是讲最大化的，没有关于全屏的。我又info了半天也没找到相关的函数。

[老蒋]

我知道在linux下使用emacs -fs可以让emacs全屏启动。
但是怎么让emacs在启动之后，实现正常大小与全屏的切换呢？
网上的方法都是讲最大化的，没有关于全屏的。我又info了半天也没找到相关的函数。

可以参考这个链接
http://superuser.com/questions/294395/h ... n-start-up

[hhmhfh]

LS给出的链接的答案不是很爽，不过看到了一个emacsWiki的链接，去上面找到答案了，呵呵。

(defun toggle-fullscreen (&optional f)
(interactive)
(let ((current-value (frame-parameter nil 'fullscreen)))
(set-frame-parameter nil 'fullscreen
(if (equal 'fullboth current-value)
(if (boundp 'old-fullscreen) old-fullscreen nil)
(progn (setq old-fullscreen current-value)
'fullboth)))))
(global-set-key [f11] 'toggle-fullscreen)

(add-hook 'after-make-frame-functions 'toggle-fullscreen)