summaryrefslogtreecommitdiff
path: root/lisp/files.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2010-05-07 08:49:14 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2010-05-07 08:49:14 -0400
commitf3ee9200b8199ed00514ffa27079ba780bc2746f (patch)
treebaaeee38bbabfc5f2fb77ba0a2ca2259bcd05605 /lisp/files.el
parent5f43e51c03f72ce8be50c475b5e0fc3cd6f94a83 (diff)
downloademacs-f3ee9200b8199ed00514ffa27079ba780bc2746f.tar.gz
* files.el (auto-save-mode): Move to simple.el to fix bootstrap.
* simple.el (auto-save-mode): Move from files.el. * minibuffer.el (completion--common-suffix): Fix copy&paste error.
Diffstat (limited to 'lisp/files.el')
-rw-r--r--lisp/files.el20
1 files changed, 0 insertions, 20 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 9090f8afc88..406ee7e00cb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5150,26 +5150,6 @@ The optional second argument indicates whether to kill internal buffers too."
(kill-buffer-ask buffer)))))
-(define-minor-mode auto-save-mode
- "Toggle auto-saving of contents of current buffer.
-With prefix argument ARG, turn auto-saving on if positive, else off."
- :variable ((and buffer-auto-save-file-name
- ;; If auto-save is off because buffer has shrunk,
- ;; then toggling should turn it on.
- (>= buffer-saved-size 0))
- . (lambda (val)
- (setq buffer-auto-save-file-name
- (cond
- ((null val) nil)
- ((and buffer-file-name auto-save-visited-file-name
- (not buffer-read-only))
- buffer-file-name)
- (t (make-auto-save-file-name))))))
- ;; If -1 was stored here, to temporarily turn off saving,
- ;; turn it back on.
- (and (< buffer-saved-size 0)
- (setq buffer-saved-size 0)))
-
(defun rename-auto-save-file ()
"Adjust current buffer's auto save file name for current conditions.
Also rename any existing auto save file, if it was made in this session."