# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1006151076 0
# Node ID 0605a90581d4d04d470d2ec2adfc1b81bab73111
# Parent  4a78098c3bd75f968e8437ef83ddc7301c89f9f3
(network-connection-service-abbrev-alist): New variable.

diff -r 4a78098c3bd7 -r 0605a90581d4 lisp/net/net-utils.el
--- a/lisp/net/net-utils.el	Mon Nov 19 06:24:05 2001 +0000
+++ b/lisp/net/net-utils.el	Mon Nov 19 06:24:36 2001 +0000
@@ -624,7 +624,13 @@
     (cons 'rlogin	513)
     )
   "Alist of services and associated TCP port numbers.
-This list in not complete.")
+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
@@ -804,10 +810,10 @@
   (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)))))
+	  (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)