Re: Emacs22 large file y-or-n-p

[Kevin Rodgers <ihs_4664@yahoo.com>]

Brendan Halpin wrote:
> Pascal Bourguignon <pjb@informatimago.com> writes:
> 
>> Really Brendan!  M-x apropos RET large.*file RET
> 
> That doesn't tell me anything that wasn't clear from files.el --
> I'm looking for a way to create a single exception, not turn it
> off.

Untested:

(defvar large-file-warning-threshold-exceptions nil
   "A list of regexps matching names of large files to be visited 
without query.
This temporarily overrides `large-file-warning-threshold'.")

(defadvice find-file-noselect (around
  			       large-file-warning-threshold-exceptions
			       activate)
   "Respect `large-file-warning-threshold-exceptions'."
   (let ((large-file-warning-threshold
	 (if (and large-file-warning-threshold-exceptions
		  (catch 'any
		    (mapc (lambda (regexp)
			    (when (string-match regexp (ad-get-arg 0))
			      (throw 'any t)))
			  large-file-warning-threshold-exceptions)
		    nil))
	     nil			; disabled
	   large-file-warning-threshold)))
     (ad-do-it)))

-- 
Kevin