From 9d551c66b1f1e34c84ff2d508a554d573aff1699 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 19 Nov 2001 06:24:36 +0000 Subject: [PATCH] (network-connection-service-abbrev-alist): New variable. --- lisp/net/net-utils.el | 16 +++++++++++----- 1 file 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) -- 2.39.5