Mercurial > emacs
comparison lisp/files.el @ 8158:a6fa25ffa764
(auto-save-mode): If autosave is off because buffer has
shrunk, then toggling should turn it on.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 06 Jul 1994 21:41:47 +0000 |
parents | 14766204c0fe |
children | 1013d56a1133 |
comparison
equal
deleted
inserted
replaced
8157:14766204c0fe | 8158:a6fa25ffa764 |
---|---|
1947 "Toggle auto-saving of contents of current buffer. | 1947 "Toggle auto-saving of contents of current buffer. |
1948 With prefix argument ARG, turn auto-saving on if positive, else off." | 1948 With prefix argument ARG, turn auto-saving on if positive, else off." |
1949 (interactive "P") | 1949 (interactive "P") |
1950 (setq buffer-auto-save-file-name | 1950 (setq buffer-auto-save-file-name |
1951 (and (if (null arg) | 1951 (and (if (null arg) |
1952 (not buffer-auto-save-file-name) | 1952 (or (not buffer-auto-save-file-name) |
1953 ;; If autosave is off because buffer has shrunk, | |
1954 ;; then toggling should turn it on. | |
1955 (< buffer-saved-size 0)) | |
1953 (or (eq arg t) (listp arg) (and (integerp arg) (> arg 0)))) | 1956 (or (eq arg t) (listp arg) (and (integerp arg) (> arg 0)))) |
1954 (if (and buffer-file-name auto-save-visited-file-name | 1957 (if (and buffer-file-name auto-save-visited-file-name |
1955 (not buffer-read-only)) | 1958 (not buffer-read-only)) |
1956 buffer-file-name | 1959 buffer-file-name |
1957 (make-auto-save-file-name)))) | 1960 (make-auto-save-file-name)))) |