(magic-mode-alist): Mark as risky.

(make-backup-file-name-1): Expand backup-directory explicitly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5de824ab0672ab2fc0677d4b38684d086a14876..bd8f9b343791e4f142ddcb5a644b813c5898142c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-12-17  Richard Stallman  <rms@gnu.org>
+
+       * files.el (magic-mode-alist): Mark as risky.
+
+       * files.el (make-backup-file-name-1):
+       Expand backup-directory explicitly.
+
 2006-12-17  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-default-method): Before setting to "pscp",

diff --git a/lisp/files.el b/lisp/files.el
index 141fe9f26c908d4c058a2f0e7387d6eee52f353f..6c9b9a7542e5e545d817928f0af0b91d1e65de3a 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2141,6 +2141,7 @@ to decide the buffer's major mode.
 
 If FUNCTION is nil, then it is not called.  (That is a way of saying
 \"allow `auto-mode-alist' to decide for these files.\")")
+(put 'magic-mode-alist 'risky-local-variable t)
 
 (defvar magic-mode-regexp-match-limit 4000
   "Upper limit on `magic-mode-alist' regexp matches.")
@@ -3228,6 +3229,12 @@ doesn't exist, it is created."
       (if (string-match (car elt) file)
          (setq backup-directory (cdr elt)
                alist nil)))
+    ;; If backup-directory is relative, it should be relative to the
+    ;; file's directory.  By expanding explicitly here, we avoid
+    ;; depending on default-directory.
+    (if backup-directory
+       (setq backup-directory (expand-file-name backup-directory
+                                                (file-name-directory file))))
     (if (and backup-directory (not (file-exists-p backup-directory)))
        (condition-case nil
            (make-directory backup-directory 'parents)