sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-02-24 05:48:06 +00:00
Code Issues Releases Wiki Activity

Manage modification times when attempting to save.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-04-12 00:21:14 +03:00
parent e115e7e56a
commit 24675d8741
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
vlfi.el
View File

@ -141,6 +141,7 @@ When prefix argument is negative
(goto-char pos)) (goto-char pos))
(setq vlfi-end-pos end (setq vlfi-end-pos end
vlfi-buffer-size (buffer-size))) vlfi-buffer-size (buffer-size)))
(set-visited-file-modtime)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -169,6 +170,7 @@ When prefix argument is negative
(goto-char (- (point-max) pos)) (goto-char (- (point-max) pos))
(setq vlfi-start-pos start (setq vlfi-start-pos start
vlfi-buffer-size (buffer-size))) vlfi-buffer-size (buffer-size)))
(set-visited-file-modtime)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -189,6 +191,7 @@ Adjust according to file start/end and show `vlfi-batch-size' bytes."
vlfi-start-pos vlfi-end-pos) vlfi-start-pos vlfi-end-pos)
(goto-char pos)) (goto-char pos))
(setq vlfi-buffer-size (buffer-size)) (setq vlfi-buffer-size (buffer-size))
(set-visited-file-modtime)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -206,6 +209,7 @@ Adjust according to file start/end and show `vlfi-batch-size' bytes."
vlfi-start-pos vlfi-end-pos) vlfi-start-pos vlfi-end-pos)
(goto-char pos)) (goto-char pos))
(setq vlfi-buffer-size (buffer-size)) (setq vlfi-buffer-size (buffer-size))
(set-visited-file-modtime)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -428,7 +432,10 @@ Reopen last viewed chunk."
If changing size of chunk, may load the remaining part of file first." If changing size of chunk, may load the remaining part of file first."
(interactive) (interactive)
(when (and (derived-mode-p 'vlfi-mode) (when (and (derived-mode-p 'vlfi-mode)
(buffer-modified-p)) (buffer-modified-p)
(or (verify-visited-file-modtime)
(y-or-n-p "File has changed since visited or \
saved. Save anyway? ")))
(let ((size-change (- vlfi-buffer-size (buffer-size)))) (let ((size-change (- vlfi-buffer-size (buffer-size))))
(if (zerop size-change) (if (zerop size-change)
(vlfi-write-1) (vlfi-write-1)