[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/07/05 17:13:28

Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.849
retrieving revision 1.850
diff -u -b -r1.849 -r1.850
--- files.el    2 Jul 2006 14:26:53 -0000       1.849
+++ files.el    5 Jul 2006 17:13:28 -0000       1.850
@@ -1275,6 +1275,7 @@
 This also substitutes \"~\" for the user's home directory and
 removes automounter prefixes (see the variable `automount-dir-prefix')."
   ;; Get rid of the prefixes added by the automounter.
+  (save-match-data
   (if (and automount-dir-prefix
           (string-match automount-dir-prefix filename)
           (file-exists-p (file-name-directory
@@ -1316,7 +1317,7 @@
              (concat "~"
                      (match-string 1 filename)
                      (substring filename (match-end 0)))))
-    filename))
+      filename)))
 
 (defcustom find-file-not-true-dirname-list nil
   "*List of logical names for which visiting shouldn't save the true dirname.