Mercurial > emacs
comparison lisp/files.el @ 104008:4bb394828f1e
* files.el (auto-save-mode): Handle buffer-save-size = -2
for toggling mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Jul 2009 14:40:33 +0000 |
| parents | 4ea8e9dfba54 |
| children | e59e70025fe8 |
comparison
equal
deleted
inserted
replaced
| 104007:e9be065e7391 | 104008:4bb394828f1e |
|---|---|
| 5003 (setq buffer-auto-save-file-name | 5003 (setq buffer-auto-save-file-name |
| 5004 (and (if (null arg) | 5004 (and (if (null arg) |
| 5005 (or (not buffer-auto-save-file-name) | 5005 (or (not buffer-auto-save-file-name) |
| 5006 ;; If auto-save is off because buffer has shrunk, | 5006 ;; If auto-save is off because buffer has shrunk, |
| 5007 ;; then toggling should turn it on. | 5007 ;; then toggling should turn it on. |
| 5008 (< buffer-saved-size 0)) | 5008 (= buffer-saved-size -1)) |
| 5009 (or (eq arg t) (listp arg) (and (integerp arg) (> arg 0)))) | 5009 (or (eq arg t) (listp arg) (and (integerp arg) (> arg 0)))) |
| 5010 (if (and buffer-file-name auto-save-visited-file-name | 5010 (if (and buffer-file-name auto-save-visited-file-name |
| 5011 (not buffer-read-only)) | 5011 (not buffer-read-only)) |
| 5012 buffer-file-name | 5012 buffer-file-name |
| 5013 (make-auto-save-file-name)))) | 5013 (make-auto-save-file-name)))) |