(internal-ange-ftp-mode): Add a mode-class property.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 3586dc4..74c080b 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1847,6 +1847,8 @@ on the gateway machine to do the ftp instead."
     (accept-process-output proc)       ;wait for ftp startup message
     proc))
 
+(put 'internal-ange-ftp-mode 'mode-class 'special)
+
 (defun internal-ange-ftp-mode ()
   "Major mode for interacting with the FTP process.