# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1167948872 0
# Node ID fad48f2b43ab8333224826c3769a10b8c0fa1403
# Parent  808654e7c05a6bfb1711bc1ad8c188c7b8583143
(find-file-noselect-1, set-visited-file-name):
Allow backup-enable-predicate to be nil.

diff -r 808654e7c05a -r fad48f2b43ab lisp/files.el
--- a/lisp/files.el	Thu Jan 04 21:46:11 2007 +0000
+++ b/lisp/files.el	Thu Jan 04 22:14:32 2007 +0000
@@ -1650,7 +1650,8 @@
       (setq default-directory (file-name-directory buffer-file-name))
       ;; Turn off backup files for certain file names.  Since
       ;; this is a permanent local, the major mode won't eliminate it.
-      (and (not (funcall backup-enable-predicate buffer-file-name))
+      (and backup-enable-predicate
+	   (not (funcall backup-enable-predicate buffer-file-name))
 	   (progn
 	     (make-local-variable 'backup-inhibited)
 	     (setq backup-inhibited t)))
@@ -2904,6 +2905,7 @@
   ;; Turn off backup files for certain file names.
   ;; Since this is a permanent local, the major mode won't eliminate it.
   (and buffer-file-name
+       backup-enable-predicate
        (not (funcall backup-enable-predicate buffer-file-name))
        (progn
 	 (make-local-variable 'backup-inhibited)