emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 490f830 6/7: * lisp/net/ange-ftp.el: Fix problem pointed out by c


From: Stefan Monnier
Subject: master 490f830 6/7: * lisp/net/ange-ftp.el: Fix problem pointed out by compiler warning
Date: Sun, 7 Mar 2021 19:07:36 -0500 (EST)

branch: master
commit 490f8305e1901719dcd0e0d3561e37d66fddff18
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/net/ange-ftp.el: Fix problem pointed out by compiler warning
    
    (ange-ftp-fix-name-for-bs2000): Remove redundant `boundp` test.
---
 lisp/net/ange-ftp.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index fa13dd5..d27eeab 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))))



reply via email to

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