[Emacs-diffs] emacs/lisp ChangeLog net/ange-ftp.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/30 14:21:37

Modified files:
        lisp           : ChangeLog 
        lisp/net       : ange-ftp.el 

Log message:
        (internal-ange-ftp-mode): Use define-derived-mode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16062&r2=1.16063
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/ange-ftp.el?cvsroot=emacs&r1=1.107&r2=1.108

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16062
retrieving revision 1.16063
diff -u -b -r1.16062 -r1.16063
--- ChangeLog   30 Aug 2009 14:20:43 -0000      1.16062
+++ ChangeLog   30 Aug 2009 14:21:34 -0000      1.16063
@@ -1,5 +1,7 @@
 2009-08-30  Stefan Monnier  <address@hidden>
 
+       * net/ange-ftp.el (internal-ange-ftp-mode): Use define-derived-mode.
+
        * emacs-lisp/easy-mmode.el (define-minor-mode): Don't use symbol-value
        with constant argument.
 

Index: net/ange-ftp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- net/ange-ftp.el     22 Aug 2009 21:59:45 -0000      1.107
+++ net/ange-ftp.el     30 Aug 2009 14:21:37 -0000      1.108
@@ -1968,16 +1968,10 @@
     (accept-process-output proc)       ;wait for ftp startup message
     proc))
 
-(put 'internal-ange-ftp-mode 'mode-class 'special)
-
-(defun internal-ange-ftp-mode ()
+(define-derived-mode internal-ange-ftp-mode comint-mode "Internal Ange-ftp"
   "Major mode for interacting with the FTP process.
 
 \\{comint-mode-map}"
-  (interactive)
-  (delay-mode-hooks (comint-mode))
-  (setq major-mode 'internal-ange-ftp-mode)
-  (setq mode-name "Internal Ange-ftp")
   (make-local-variable 'ange-ftp-process-string)
   (setq ange-ftp-process-string "")
   (make-local-variable 'ange-ftp-process-busy)
@@ -2001,8 +1995,7 @@
   ;; ange-ftp has its own ways of handling passwords.
   (setq comint-password-prompt-regexp "\\`a\\`")
   (make-local-variable 'paragraph-start)
-  (setq paragraph-start comint-prompt-regexp)
-  (run-mode-hooks 'internal-ange-ftp-mode-hook))
+  (setq paragraph-start comint-prompt-regexp))
 
 (defcustom ange-ftp-raw-login nil
   "Use raw FTP commands for login, if account password is not nil.