forked from pool/xemacs
15 lines
690 B
Diff
15 lines
690 B
Diff
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))
|