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

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 3586dc4a35c50f74dda4de817ac440d63aaf8e9d..74c080ba98cbb307bf3ac0216eafa60821acd261 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.