624 |
(cons 'rlogin 513) |
(cons 'rlogin 513) |
625 |
) |
) |
626 |
"Alist of services and associated TCP port numbers. |
"Alist of services and associated TCP port numbers. |
627 |
This list in not complete.") |
This list is not complete.") |
628 |
|
|
629 |
|
(defvar network-connection-service-abbrev-alist nil |
630 |
|
"Alist of (SERVICE . ABBREVTABLE) for various network services. |
631 |
|
SERVICE can be either a symbol or a number appearing in |
632 |
|
`network-connection-service-alist'. ABBREVTABLE is the abbrev table |
633 |
|
to use in buffers that talk to that network service.") |
634 |
|
|
635 |
;; Workhorse macro |
;; Workhorse macro |
636 |
(defmacro run-network-program (process-name host port |
(defmacro run-network-program (process-name host port |
810 |
(let ((network-abbrev-table |
(let ((network-abbrev-table |
811 |
(or |
(or |
812 |
(assoc service network-connection-service-abbrev-alist) |
(assoc service network-connection-service-abbrev-alist) |
813 |
(and (rassoc service network-connection-service-alist) |
(and (rassoc service network-connection-service-alist) |
814 |
(assoc |
(assoc |
815 |
(elt (rassoc service network-connection-service-alist) 0) |
(elt (rassoc service network-connection-service-alist) 0) |
816 |
network-connection-service-abbrev-alist))))) |
network-connection-service-abbrev-alist))))) |
817 |
(make-local-variable 'network-connection-host) |
(make-local-variable 'network-connection-host) |
818 |
(setq network-connection-host host) |
(setq network-connection-host host) |
819 |
(make-local-variable 'network-connection-service) |
(make-local-variable 'network-connection-service) |