Mercurial > emacs
comparison lisp/files.el @ 23382:55b2ea28932a
Comment fix.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 06 Oct 1998 23:22:48 +0000 |
parents | cac484ad071c |
children | 95773b2746b4 |
comparison
equal
deleted
inserted
replaced
23381:4f20b9ddbea6 | 23382:55b2ea28932a |
---|---|
2857 With prefix argument ARG, turn auto-saving on if positive, else off." | 2857 With prefix argument ARG, turn auto-saving on if positive, else off." |
2858 (interactive "P") | 2858 (interactive "P") |
2859 (setq buffer-auto-save-file-name | 2859 (setq buffer-auto-save-file-name |
2860 (and (if (null arg) | 2860 (and (if (null arg) |
2861 (or (not buffer-auto-save-file-name) | 2861 (or (not buffer-auto-save-file-name) |
2862 ;; If autosave is off because buffer has shrunk, | 2862 ;; If auto-save is off because buffer has shrunk, |
2863 ;; then toggling should turn it on. | 2863 ;; then toggling should turn it on. |
2864 (< buffer-saved-size 0)) | 2864 (< buffer-saved-size 0)) |
2865 (or (eq arg t) (listp arg) (and (integerp arg) (> arg 0)))) | 2865 (or (eq arg t) (listp arg) (and (integerp arg) (> arg 0)))) |
2866 (if (and buffer-file-name auto-save-visited-file-name | 2866 (if (and buffer-file-name auto-save-visited-file-name |
2867 (not buffer-read-only)) | 2867 (not buffer-read-only)) |