(ange-ftp-allow-child-lookup): Always return nil.

This fixes a bug that treated all files as directories.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ed3e9036cd1362bc18b7d502d158eed5826d5b3..0a543e6491de8d4eacf8ccf4f1e2ac78c0f6d30c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,16 @@
 2001-12-28  Richard M. Stallman  <rms@gnu.org>
 
+       * net/ange-ftp.el (ange-ftp-allow-child-lookup): Always return nil.
+       This fixes a bug that treated all files as directories.
+
+       * international/iso-transl.el (iso-transl-char-map) Eliminate the
+       alias symbols--put the translated sequences here directly.
+
+       * progmodes/cc-mode.el (c-mode-abbrev-table) 
+       (c++-mode-abbrev-table, objc-mode-abbrev-table) 
+       (java-mode-abbrev-table, pike-mode-abbrev-table):
+       Mark all the predefined abbrevs as "system" abbrevs.
+
        * mail/sendmail.el (mail-envelope-from): Fix custom type.
        (sendmail-send-it): Check mail-specify-envelope-from
        and mail-envelope-from in the mail buffer at start.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 79f18afd2a867eec2b9fa3dd5764b111da647512..4700a114f3250db722d21c6481543d9e129895ed 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -937,12 +937,22 @@ Don't use any other value."
                 (const :tag "Allow" 1)))
 
 (defcustom ange-ftp-try-passive-mode nil
-  "It t, try to use passive mode in ftp, if the client program
-supports the `passive' command."
+  "It t, try to use passive mode in ftp, if the client program supports it."
   :group 'ange-ftp
   :type 'boolean
   :version 21.1)
 
+(defcustom ange-ftp-passive-host-alist nil
+  "Alist of FTP servers that need \"passive\" mode.
+Each element is of the form (HOSTNAME . SETTING).
+HOSTNAME is a regular expression to match the FTP server host name(s).
+SETTING is \"on\" to turn passive mode on, \"off\" to turn it off,
+or nil meaning don't change it."
+  :group 'ange-ftp
+  :type '(list (cons regex (choice (const :tag "On" "on")
+                                  (const :tag "Off" "off")
+                                  (const :tag "Don't change" nil))))
+  :version 21.3)
 \f
 ;;;; ------------------------------------------------------------
 ;;;; Hash table support.
@@ -2103,19 +2113,28 @@ Create a new process if needed."
        ;; Guess at the host type.
        (ange-ftp-guess-host-type host user)
 
-       ;; Try to use passive mode if asked to.
-       (when ange-ftp-try-passive-mode
-         (let ((answer (cdr (ange-ftp-raw-send-cmd
-                             proc "passive" "Trying passive mode..." nil))))
-           (if (string-match "\\?\\|refused" answer)
-               (message "Trying passive mode...ok")
-             (message "Trying passive mode...failed"))))
+       ;; Turn passive mode on or off as requested.
+       (let* ((case-fold-search t)
+              (passive
+               (or (assoc-default host ange-ftp-passive-host-alist
+                                  'string-match)
+                   (if ange-ftp-try-passive-mode "on"))))
+         (if passive
+             (ange-ftp-passive-mode passive)))
 
        ;; Run any user-specified hooks.  Note that proc, host and user are
        ;; dynamically bound at this point.
        (run-hooks 'ange-ftp-process-startup-hook))
       proc)))
 
+(defun ange-ftp-passive-mode (on-or-off)
+  (if (string-match (concat "Passive mode " on-or-off)
+                    (cdr (ange-ftp-raw-send-cmd
+                          proc (concat "passive " on-or-off)
+                          "Trying passive mode..." nil)))
+      (ange-ftp-message (concat "Trying passive mode..." on-or-off))
+    (error "Trying passive mode...failed")))
+
 ;; Variables for caching host and host-type
 (defvar ange-ftp-host-cache nil)
 (defvar ange-ftp-host-type-cache nil)
@@ -2789,24 +2808,31 @@ NO-ERROR, if a listing for DIRECTORY cannot be obtained."
 ;; 2. The syntax of FILE and DIR make it impossible that FILE could be a valid
 ;;     subdirectory. This is of course an OS dependent judgement.
 
+;;; Nowadays, the judgement for #2 is always "no".
+;;; With today's ftp servers on Unix and GNU systems,
+;;; it appears to be impossible to tell from the result
+;;; of the directory listing whether the argument is a directory.
+;;; This appears to be true even in Emacs 20.7
+
 (defmacro ange-ftp-allow-child-lookup (dir file)
-  `(not
-    (let* ((efile ,file) ; expand once.
-           (edir ,dir)
-           (parsed (ange-ftp-ftp-name edir))
-           (host-type (ange-ftp-host-type
-                       (car parsed))))
-      (or
-       ;; Deal with dired
-       (and (boundp 'dired-local-variables-file) ; in the dired-x package
-            (stringp dired-local-variables-file)
-            (string-equal dired-local-variables-file efile))
-       ;; No dots in dir names in vms.
-       (and (eq host-type 'vms)
-            (string-match "\\." efile))
-       ;; No subdirs in mts of cms.
-       (and (memq host-type '(mts cms))
-            (not (string-equal "/" (nth 2 parsed))))))))
+  nil)
+;;;   `(not
+;;;     (let* ((efile ,file) ; expand once.
+;;;            (edir ,dir)
+;;;            (parsed (ange-ftp-ftp-name edir))
+;;;            (host-type (ange-ftp-host-type
+;;;                        (car parsed))))
+;;;       (or
+;;;        ;; Deal with dired
+;;;        (and (boundp 'dired-local-variables-file) ; in the dired-x package
+;;;             (stringp dired-local-variables-file)
+;;;             (string-equal dired-local-variables-file efile))
+;;;        ;; No dots in dir names in vms.
+;;;        (and (eq host-type 'vms)
+;;;             (string-match "\\." efile))
+;;;        ;; No subdirs in mts of cms.
+;;;        (and (memq host-type '(mts cms))
+;;;             (not (string-equal "/" (nth 2 parsed)))))))
 
 (defun ange-ftp-file-entry-p (name)
   "Given NAME, return whether there is a file entry for it."