Mercurial > emacs

comparison lisp/tar-mode.el @ 22032:e27e9e844efe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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