Enrico Scholz <enrico.scholz(a)wirtschaft.tu-chemnitz.de> writes:
I think the error is in package-get.el:316.
There should be
(unless (and no-remote (not (caar entries)))
instead of
(unless (and no-remote (caar entries))
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>
* 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 "/"))