From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 8 Mar 2021 00:06:45 +0000 (-0500)
Subject: * lisp/net/ange-ftp.el: Fix problem pointed out by compiler warning
X-Git-Tag: emacs-28.0.90~3375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=490f8305e1901719dcd0e0d3561e37d66fddff18;p=emacs.git

* lisp/net/ange-ftp.el: Fix problem pointed out by compiler warning

(ange-ftp-fix-name-for-bs2000): Remove redundant `boundp` test.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index fa13dd57d1d..d27eeab82b1 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -6111,8 +6111,7 @@ Other orders of $ and _ seem to all work just fine.")
 				       (1- (match-end 2)))))
 		(filename (if (match-beginning 3)
 			      (substring name (match-beginning 3)))))
-	    (if (and (boundp 'filename)
-		     (stringp filename)
+	    (if (and (stringp filename)
 		     (string-match "[#@].+" filename))
 		(setq filename (concat ange-ftp-bs2000-special-prefix
 				       (substring filename 1))))