andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert 2006-12-08 change by Kevin Rodgers due to lack of legal papers.

Browse source
This commit is contained in:
Chong Yidong 2007-03-19 18:29:56 +00:00
parent 39a8d88a7f
commit c412f81ab8
2 changed files with 0 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -2471,12 +2471,6 @@
* comint.el (comint-insert-input): Delete obsolete comment.
2006-12-08 Kevin Rodgers <ihs_4664@yahoo.com>
* files.el (insert-file-1): Compare file size to
large-file-warning-threshold and request confirmation when
warranted.
2006-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
* net/browse-url.el (browse-url): Set DISPLAY to the one of the

10
lisp/files.el
View file

@ -1700,16 +1700,6 @@ This function ensures that none of these modifications will take place."
(if (file-directory-p filename)
(signal 'file-error (list "Opening input file" "file is a directory"
filename)))
;; Check whether the file is uncommonly large (see find-file-noselect):
(let (size)
(when (and large-file-warning-threshold
(setq size (nth 7 (file-attributes filename)))
(> size large-file-warning-threshold)
(not (y-or-n-p
(format "File %s is large (%dMB), really insert? "
(file-name-nondirectory filename)
(/ size 1048576)))))
(error "Aborted")))
(let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename))
#'buffer-modified-p))
(tem (funcall insert-func filename)))