(ftp-mode-abbrev-table): Don't define it.

(nslookup-mode-abbrev-table): Don't define it.
(smbclient-mode-abbrev-table): Don't define it.
(ftp-mode): Don't use ftp-mode-abbrev-table; don't enable Abbrev mode.
(nslookup-mode, smbclient-mode): Likewise.
(network-connection-service-abbrev-alist): Variable deleted.
(network-connection-mode-setup): Don't set up abbrev table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f9d4a44e93b25242344fd88ade60a37c1eba3a60..6da4344d58736d5a54c1288fee097caf7a31819c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,14 @@
 
 2001-12-24  Richard M. Stallman  <rms@gnu.org>
 
+       * net/net-utils.el (ftp-mode-abbrev-table): Don't define it.
+       (nslookup-mode-abbrev-table): Don't define it.
+       (smbclient-mode-abbrev-table): Don't define it.
+       (ftp-mode): Don't use ftp-mode-abbrev-table; don't enable Abbrev mode.
+       (nslookup-mode, smbclient-mode): Likewise.
+       (network-connection-service-abbrev-alist): Variable deleted.
+       (network-connection-mode-setup): Don't set up abbrev table.
+
        * faces.el (minibuffer-prompt): New face.
        (minibuffer-prompt-properties): Add `face' property.
 

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index aa9596b02ebc4a03619f7d687f0792a9bb63b85e..057e8cbee0bfe81251cf98422798d5ba167d0ff0 100644 (file)
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -456,24 +456,12 @@ If your system's ping continues until interrupted, you can try setting
   (set
    (make-local-variable 'font-lock-defaults)
    '((nslookup-font-lock-keywords)))
-  (setq local-abbrev-table nslookup-mode-abbrev-table)
-  (abbrev-mode t)
   (setq comint-prompt-regexp nslookup-prompt-regexp)
   (setq comint-input-autoexpand t)
   )
 
 (define-key nslookup-mode-map "\t" 'comint-dynamic-complete)
 
-(define-abbrev nslookup-mode-abbrev-table "e"   "exit")
-(define-abbrev nslookup-mode-abbrev-table "f"   "finger")
-(define-abbrev nslookup-mode-abbrev-table "h"   "help")
-(define-abbrev nslookup-mode-abbrev-table "lse" "lserver")
-(define-abbrev nslookup-mode-abbrev-table "q"   "exit")
-(define-abbrev nslookup-mode-abbrev-table "r"   "root")
-(define-abbrev nslookup-mode-abbrev-table "s"   "set")
-(define-abbrev nslookup-mode-abbrev-table "se"  "server")
-(define-abbrev nslookup-mode-abbrev-table "v"   "viewer")
-
 ;;;###autoload
 (defun dig (host)
   "Run dig program."
@@ -526,15 +514,8 @@ If your system's ping continues until interrupted, you can try setting
                (default-value 'comint-output-filter-functions))
     (add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt
              nil t))
-  (setq local-abbrev-table ftp-mode-abbrev-table)
-  (abbrev-mode t)
   )
 
-(define-abbrev ftp-mode-abbrev-table "q"    "quit")
-(define-abbrev ftp-mode-abbrev-table "g"    "get")
-(define-abbrev ftp-mode-abbrev-table "p"    "prompt")
-(define-abbrev ftp-mode-abbrev-table "anon" "anonymous")
-
 ;; Occasionally useful
 (define-key ftp-mode-map "\t" 'comint-dynamic-complete)
 
@@ -585,12 +566,8 @@ If your system's ping continues until interrupted, you can try setting
                (default-value 'comint-output-filter-functions))
     (add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt
              nil t))
-  (setq local-abbrev-table smbclient-mode-abbrev-table)
-  (abbrev-mode t)
   )
 
-(define-abbrev smbclient-mode-abbrev-table "q"    "quit")
-
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Network Connections
@@ -626,12 +603,6 @@ If your system's ping continues until interrupted, you can try setting
   "Alist of services and associated TCP port numbers.
 This list is not complete.")
 
-(defvar network-connection-service-abbrev-alist nil
-  "Alist of (SERVICE . ABBREVTABLE) for various network services.
-SERVICE can be either a symbol or a number appearing in
-`network-connection-service-alist'.  ABBREVTABLE is the abbrev table
-to use in buffers that talk to that network service.")
-
 ;; Workhorse macro
 (defmacro run-network-program (process-name host port
                                            &optional initial-string)
@@ -807,21 +778,10 @@ from SEARCH-STRING.  With argument, prompt for whois server."
   )
 
 (defun network-connection-mode-setup (host service)
-  (let ((network-abbrev-table
-        (or
-         (assoc service network-connection-service-abbrev-alist)
-         (and (rassoc service network-connection-service-alist)
-              (assoc
-               (elt (rassoc service network-connection-service-alist) 0)
-               network-connection-service-abbrev-alist)))))
-    (make-local-variable 'network-connection-host)
-    (setq network-connection-host host)
-    (make-local-variable 'network-connection-service)
-    (setq network-connection-service service)
-    (and network-abbrev-table
-        (setq local-abbrev-table (cdr network-abbrev-table))
-        (abbrev-mode t)
-        )))
+  (make-local-variable 'network-connection-host)
+  (setq network-connection-host host)
+  (make-local-variable 'network-connection-service)
+  (setq network-connection-service service)))
 
 ;;;###autoload
 (defun network-connection-to-service (host service)