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))
(setq vlfi-end-pos end
vlfi-buffer-size (buffer-size)))
(set-visited-file-modtime)
(set-buffer-modified-p nil)
(vlfi-update-buffer-name))
@ -169,6 +170,7 @@ When prefix argument is negative
(goto-char (- (point-max) pos))
(setq vlfi-start-pos start
vlfi-buffer-size (buffer-size)))
(set-visited-file-modtime)
(set-buffer-modified-p nil)
(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)
(goto-char pos))
(setq vlfi-buffer-size (buffer-size))
(set-visited-file-modtime)
(set-buffer-modified-p nil)
(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)
(goto-char pos))
(setq vlfi-buffer-size (buffer-size))
(set-visited-file-modtime)
(set-buffer-modified-p nil)
(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."
(interactive)
(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))))
(if (zerop size-change)
(vlfi-write-1)