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

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Michael Albinus <albinus>       07/08/05 12:48:28

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.896.2.12
retrieving revision 1.896.2.13
diff -u -b -r1.896.2.12 -r1.896.2.13
--- files.el    5 Aug 2007 12:43:05 -0000       1.896.2.12
+++ files.el    5 Aug 2007 12:48:27 -0000       1.896.2.13
@@ -2260,10 +2260,10 @@
     (unless done
       (if buffer-file-name
          (let ((name buffer-file-name)
-               (remote-id (regexp-quote (file-remote-p buffer-file-name))))
+               (remote-id (file-remote-p buffer-file-name)))
            ;; Remove remote file name identification.
            (when (and (stringp remote-id)
-                      (string-match remote-id name))
+                      (string-match (regexp-quote remote-id) name))
              (setq name (substring name (match-end 0))))
            ;; Remove backup-suffixes from file name.
            (setq name (file-name-sans-versions name))