[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#9311: 23.3.50; Can't load some byte-compiled files on Windows
From: |
Eli Zaretskii |
Subject: |
bug#9311: 23.3.50; Can't load some byte-compiled files on Windows |
Date: |
Tue, 30 Aug 2011 20:54:18 +0300 |
> From: Michael Albinus <michael.albinus@gmx.de>
> Cc: Eli Zaretskii <eliz@gnu.org>, Kazuhiro Ito <kzhr@d1.dion.ne.jp>,
> 9311@debbugs.gnu.org
> Date: Tue, 30 Aug 2011 17:26:38 +0200
>
> The following patch does it, in its final version there could be some
> additional minor polishing.
>
> --8<---------------cut here---------------start------------->8---
> *** /home/albinus/src/tramp/lisp/tramp.el.~2.843~ 2011-08-30
> 17:10:16.058151065 +0200
> --- /home/albinus/src/tramp/lisp/tramp.el 2011-08-30 17:07:38.841961797
> +0200
> ***************
> *** 861,873 ****
> Also see `tramp-file-name-structure'.")
>
> ;;;###autoload
> ! (defconst tramp-root-regexp
> ! (if (memq system-type '(cygwin windows-nt))
> ! "\\`\\([a-zA-Z]:\\)?/"
> ! "\\`/")
> ! "Beginning of an incomplete Tramp file name.
> ! Usually, it is just \"\\\\`/\". On W32 systems, there might be a
> ! volume letter, which will be removed by `tramp-drop-volume-letter'.")
>
> ;;;###autoload
> (defconst tramp-completion-file-name-regexp-unified
> --- 861,868 ----
> Also see `tramp-file-name-structure'.")
>
> ;;;###autoload
> ! (defconst tramp-root-regexp "\\`/"
> ! "Beginning of an incomplete Tramp file name.")
>
> ;;;###autoload
> (defconst tramp-completion-file-name-regexp-unified
> ***************
> *** 1503,1509 ****
> but the remote system is Unix, this introduces a superfluous drive
> letter into the file name. This function removes it."
> (save-match-data
> ! (if (string-match tramp-root-regexp name)
> (replace-match "/" nil t name)
> name)))
>
> --- 1498,1504 ----
> but the remote system is Unix, this introduces a superfluous drive
> letter into the file name. This function removes it."
> (save-match-data
> ! (if (string-match "\\`[a-zA-Z]:/" name)
> (replace-match "/" nil t name)
> name)))
>
> --8<---------------cut here---------------end--------------->8---
Thanks, this looks good to me.
bug#9311: 23.3.50; Can't load some byte-compiled files on Windows, Michael Albinus, 2011/08/19