Просмотр исходного кода

accept 0 as arg or autosave-buffer

pull/1/head
10sr 13 лет назад
Родитель
Сommit
ca70fd7a85
1 измененных файлов: 4 добавлений и 2 удалений
  1. +4
    -2
      emacs.el

+ 4
- 2
emacs.el Просмотреть файл

@@ -1803,9 +1803,11 @@ not happen.")
(defvar autosave-buffer nil "Autosave timer object.") (defvar autosave-buffer nil "Autosave timer object.")
(defun autosave-buffer (secs) (defun autosave-buffer (secs)
"Register timer so that the buffer will be saved automatically each time "Register timer so that the buffer will be saved automatically each time
when emacs is idle for SECS. When SECS is nil, stop the timer and disable
when emacs is idle for SECS. When SECS is 0 or nil, stop the timer and disable
auto-saving." auto-saving."
(if sec
(if (and secs
(not (eq secs
0)))
(progn (when autosave-buffer (progn (when autosave-buffer
(cancel-timer autosave-buffer) (cancel-timer autosave-buffer)
(setq autosave-buffer nil)) (setq autosave-buffer nil))


Загрузка…
Отмена
Сохранить