Mercurial > emacs
changeset 41257:0605a90581d4
(network-connection-service-abbrev-alist): New variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 Nov 2001 06:24:36 +0000 |
| parents | 4a78098c3bd7 |
| children | 7ed8a77c5b40 |
| files | lisp/net/net-utils.el |
| diffstat | 1 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)