Mercurial > emacs
comparison lisp/tar-mode.el @ 22032:e27e9e844efe
(tar-subfile-mode): Call auto-save-mode with -1.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 11 May 1998 18:49:42 +0000 |
parents | facde3a9a846 |
children | dc8c3736ebea |
comparison
equal
deleted
inserted
replaced
22031:879df83433a1 | 22032:e27e9e844efe |
---|---|
634 (> (prefix-numeric-value p) 0))) | 634 (> (prefix-numeric-value p) 0))) |
635 (cond (tar-subfile-mode | 635 (cond (tar-subfile-mode |
636 (make-local-variable 'local-write-file-hooks) | 636 (make-local-variable 'local-write-file-hooks) |
637 (setq local-write-file-hooks '(tar-subfile-save-buffer)) | 637 (setq local-write-file-hooks '(tar-subfile-save-buffer)) |
638 ;; turn off auto-save. | 638 ;; turn off auto-save. |
639 (auto-save-mode nil) | 639 (auto-save-mode -1) |
640 (setq buffer-auto-save-file-name nil) | 640 (setq buffer-auto-save-file-name nil) |
641 (run-hooks 'tar-subfile-mode-hook)) | 641 (run-hooks 'tar-subfile-mode-hook)) |
642 (t | 642 (t |
643 (kill-local-variable 'local-write-file-hooks)))) | 643 (kill-local-variable 'local-write-file-hooks)))) |
644 | 644 |