[Emacs-diffs] Changes to emacs/lisp/net/net-utils.el

[Richard M. Stallman]

Index: emacs/lisp/net/net-utils.el
diff -u emacs/lisp/net/net-utils.el:1.9 emacs/lisp/net/net-utils.el:1.10
--- emacs/lisp/net/net-utils.el:1.9     Mon Jul 16 08:22:59 2001
+++ emacs/lisp/net/net-utils.el Mon Nov 19 01:24:36 2001
@@ -624,8 +624,14 @@
     (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
                                            &optional initial-string)
@@ -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)