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))