- updated; still bad paths to files

[packages/xemacs.git] / xemacs-do-not-create-backups-in-temp-directories.patch

diff -ru xemacs-21.5.21.orig/lisp/files.el xemacs-21.5.21/lisp/files.el
--- xemacs-21.5.21.orig/lisp/files.el	2005-04-08 16:07:00.000000000 +0200
+++ xemacs-21.5.21/lisp/files.el	2005-06-07 21:25:23.000000000 +0200
@@ -166,7 +166,9 @@
 Checks for files in `temporary-file-directory' or
 `small-temporary-file-directory'."
   (let ((temporary-file-directory (temp-directory)))
-    (not (or (let ((comp (compare-strings temporary-file-directory 0 nil
+    (not (or (null name)
+	     (string-match "^/tmp/" name)
+	     (let ((comp (compare-strings temporary-file-directory 0 nil
 					  name 0 nil)))
 	       ;; Directory is under temporary-file-directory.
 	       (and (not (eq comp t))