- (let ((hexl (derived-mode-p 'hexl-mode)))
- (if hexl (hexl-mode-exit))
- (let ((pos (+ vlf-start-pos (position-bytes (point)))))
+ (if (derived-mode-p 'hexl-mode)
+ (let ((line (/ (1+ vlf-start-pos) hexl-bits))
+ (pos (point)))
+ (if (consp buffer-undo-list)
+ (setq buffer-undo-list nil))
+ (vlf-with-undo-disabled
+ (let ((inhibit-read-only t))
+ (insert-file-contents-literally buffer-file-name
+ t nil nil t)
+ (hexlify-buffer)))
+ (set-buffer-modified-p nil)
+ (goto-char (point-min))
+ (forward-line line)
+ (forward-char pos))
+ (let ((pos (+ vlf-start-pos (position-bytes (point))))
+ (inhibit-read-only t))