如何在Emacs上自动保存失去焦点的文件

Question

是否可以配置Emacs，以便在emacs窗口失去焦点时保存所有文件？

Answer 1

我使用这个，它只会在emacs在X下运行时（比如它可能在ubuntu中）。

(when 
    (and (featurep 'x) window-system) 
(defvar on-blur--saved-window-id 0 "Last known focused window.") 
(defvar on-blur--timer nil "Timer refreshing known focused window.") 
(defun on-blur--refresh() 
    "Runs on-blur-hook if emacs has lost focus." 
    (let* ((active-window (x-window-property 
          "_NET_ACTIVE_WINDOW" nil "WINDOW" 0 nil t)) 
      (active-window-id (if (numberp active-window) 
           active-window 
           (string-to-number 
           (format "%x00%x" 
             (car active-window) 
             (cdr active-window)) 16))) 
      (emacs-window-id (string-to-number 
          (frame-parameter nil 'outer-window-id)))) 
    (when (and 
      (= emacs-window-id on-blur--saved-window-id) 
      (not (= active-window-id on-blur--saved-window-id))) 
     (run-hooks 'on-blur-hook)) 
    (setq on-blur--saved-window-id active-window-id) 
    (run-with-timer 1 nil 'on-blur--refresh))) 
(add-hook 'on-blur-hook #'(lambda() (save-some-buffers t))) 
(on-blur--refresh)) 

Answer 2

不知道这是你想要的。

(defun dld-deselect-frame-hook() 
    (save-some-buffers 1)) 

(add-hook 'deselect-frame-hook 'dld-deselect-frame-hook) 

来源：http://www.dribin.org/dave/blog/archives/2003/09/10/emacs/

编辑：这似乎只在XEmacs的

工作

Answer 3

你可以用`自动保存间隔”，保存您键入的每n个字符。我的设置为100.那么对于每2-3行代码，也许呢？

auto-save-interval是`C源代码'中定义的变量 。其值 是100

文档： *自动保存之间的输入事件数量。零意味着禁用 自动保存，因为键入的字符数为 。

您可以自定义此变量。

这并不回答您的原始问题;这只是一种实现类似的方式。

Answer 4

[...]我在说的功能是从 抄写员。 编辑html之类的时候非常方便，你不用 必须再按C-x C-s，你只需要改变窗口并检查你的 浏览器。

在这种情况下，代替切换到浏览器应用程序，命令的Emacs加载浏览器应用程序（或C-c C-vM-x browse-url-of-buffer）。使用这种方法，您可以编写自己的功能，节省了缓冲和然后带来的浏览器了，比如：

(defun my-browse-url-of-buffer() 
    "Save current buffer and view its content in browser." 
    (interactive) 
    (save-buffer) 
    (browse-url-of-buffer)) 

它勾到一个方便的结合。

或者您仍然可以使用每次保存缓冲区的html-autoview-mode，自动将文件加载到您喜欢的浏览器中。

Answer 5

我在Gnu Emacs 24.4中添加了焦点钩子。他们被称为focus-in-hook和focus-out-hook。

您可以添加

(defun save-all() 
    (interactive) 
    (save-some-buffers t)) 

(add-hook 'focus-out-hook 'save-all) 

到你的.emacs文件，它应该保存在失去重心的所有文件。