Mercurial > emacs

comparison lisp/files.el @ 93747:63ab93d290d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(abort-if-file-too-large): Fix typo in docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 05 Apr 2008 21:10:34 +0000
parents 3961ad1ac8f2
children bb548969ef2d
comparison
equal deleted inserted replaced
93746:074f3abdee88 93747:63ab93d290d1
1506 :group 'find-file 1506 :group 'find-file
1507 :version "22.1" 1507 :version "22.1"
1508 :type '(choice integer (const :tag "Never request confirmation" nil))) 1508 :type '(choice integer (const :tag "Never request confirmation" nil)))
1509 1509
1510 (defun abort-if-file-too-large (size op-type) 1510 (defun abort-if-file-too-large (size op-type)
1511 "If file SIZE larger than LARGE-FILE-WARNING-THRESHOLD, allow user to abort. 1511 "If file SIZE larger than `large-file-warning-threshold', allow user to abort.
1512 OP-TYPE specifies the file operation being performed (for message to user)." 1512 OP-TYPE specifies the file operation being performed (for message to user)."
1513 (when (and large-file-warning-threshold size 1513 (when (and large-file-warning-threshold size
1514 (> size large-file-warning-threshold) 1514 (> size large-file-warning-threshold)
1515 (not (y-or-n-p 1515 (not (y-or-n-p
1516 (format "File %s is large (%dMB), really %s? " 1516 (format "File %s is large (%dMB), really %s? "