[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog net/ange-ftp.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog net/ange-ftp.el |
Date: |
Sun, 30 Aug 2009 14:21:37 +0000 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog net/ange-ftp.el,
Stefan Monnier <=