TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Show file name when Spacemacs opens a large file

Browse source 
When Spacemacs encounters a large file it displays a
prompt to open the file literally. However, if the file
is opened as a result of another action (e.g. Visiting a
TAGS table) it might not be obvious which file is triggering
the prompt. This change adds the file name to the prompt.
This commit is contained in:
Stuart Hacking 2016-06-02 09:46:27 +01:00 committed by syl20bnr
parent b5ec99aa58
commit e34c291f6b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
layers/+distribution/spacemacs-base/funcs.el
View file

@ -385,11 +385,13 @@ removal."
;; check when opening large files - literal file open
(defun spacemacs/check-large-file ()
(let ((size (nth 7 (file-attributes (buffer-file-name)))))
(let* ((filename (buffer-file-name))
(size (nth 7 (file-attributes filename))))
(when (and
(not (memq major-mode spacemacs-large-file-modes-list))
size (> size (* 1024 1024 dotspacemacs-large-file-size))
(y-or-n-p "This is a large file, open literally to avoid performance issues?"))
(y-or-n-p (format "%s is a large file, open literally to avoid performance issues?"
filename)))
(setq buffer-read-only t)
(buffer-disable-undo)
(fundamental-mode))))