[Urgent, 21.0] Re: pui-list broke for me

Enrico Scholz <enrico.scholz(a)wirtschaft.tu-chemnitz.de&gt; writes: No the logic is correct. It is just that package-get-remote-file-name cannot handle local filenames, which it should. How on earth could this bug have been left dormant so long? Jan 1999-02-02 Jan Vroonhof <vroonhof(a)math.ethz.ch&gt; * package-get.el (package-get-remote-filename): Don't bug out for a local file name in the search entry. Index: lisp/package-get.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/package-get.el,v retrieving revision 1.25 diff -u -u -r1.25 package-get.el --- package-get.el 1999/01/05 19:15:21 1.25 +++ package-get.el 1999/02/02 19:21:22 ＠＠ -941,15 +941,19 ＠＠ not, then it uses the (car search) as the remote site-name and the (cadr search) as the remote-directory and concatenates filename. In other words - site-name:remote-directory/filename + site-name:remote-directory/filename. + +If (car search) is nil, (cadr search is interpreted as a local directory). " - (if (efs-ftp-path filename) + (if (file-remote-p filename) filename (let ((dir (cadr search))) - (concat (if (string-match "＠" (car search)) - "/" - "/anonymous＠") - (car search) ":" + (concat (when (car search) + (concat + (if (string-match "＠" (car search)) + "/" + "/anonymous＠") + (car search) ":")) (if (string-match "/$" dir) dir (concat dir "/"))