bug-gnu-emacs
[Top][All Lists]
Advanced

[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 <address@hidden>
> Cc: Eli Zaretskii <address@hidden>,  Kazuhiro Ito <address@hidden>,  
> address@hidden
> 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.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]