# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 888617606 0
# Node ID 88e63a96a2d4fac27e73cc024cd4659e841d67f7
# Parent  fae8b808a822f167e6eb567dfae4b729b6322497
(set-visited-file-name): Don't call backup-enable-predicate
when buffer-file-name is nil.

diff -r fae8b808a822 -r 88e63a96a2d4 lisp/files.el
--- a/lisp/files.el	Fri Feb 27 22:11:43 1998 +0000
+++ b/lisp/files.el	Fri Feb 27 22:13:26 1998 +0000
@@ -1735,7 +1735,8 @@
   (kill-local-variable 'vc-mode)
   ;; 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 buffer-file-name
+       (not (funcall backup-enable-predicate buffer-file-name))
        (progn
 	 (make-local-variable 'backup-inhibited)
 	 (setq backup-inhibited t)))