diff options
| -rw-r--r-- | lisp/net/net-utils.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index f0e091ccc7f..aa9596b02eb 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -624,7 +624,13 @@ If your system's ping continues until interrupted, you can try setting (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 @@ from SEARCH-STRING. With argument, prompt for whois server." (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) |