Re: Intelligently opening large files in emacs

[Felix Dietrich <felix.dietrich@sperrhaken.name>]

Dushyant Juneja <juneja.dushyant@gmail.com> writes:

> My question hence is, is there a way to integrate find-file-literally in a
> way that emacs automatically opens large files using this function, and the
> smaller files using the usual find-file. Please help me if such is possible.

Here is my take on the problem:


(defvar file-size-literal-threshold large-file-warning-threshold
  "Maximum size of a file above which it will get opened literally")

(defadvice find-file-noselect (before open-large-files-literally)
  (when (file-exists-p filename)
	(let ((filesize (nth 7 (file-attributes filename))))
	   (when (and (not rawfile)
				  (> filesize file-size-literal-threshold)
				  (abort-if-file-too-large filesize "open literally" filename))
		 (setq rawfile t) ;; open file literally
		 (setq nowarn t)  ;; get rid of the question whether to open a large file
		 ))))

(ad-activate 'find-file-noselect)


For testing you can simply drop that code into your *scratch* buffer and
do M-x eval-buffer .  If you want to disable this advise eval:


(ad-disable-advice 'find-file-noselect 'before 'open-large-files-literally)


--
Felix Dietrich