/[emacs]/emacs/lisp/net/net-utils.el
ViewVC logotype

Diff of /emacs/lisp/net/net-utils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.10 by rms, Mon Nov 19 06:24:36 2001 UTC
# Line 624  If your system's ping continues until in Line 624  If your system's ping continues until in
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
# Line 804  from SEARCH-STRING.  With argument, prom Line 810  from SEARCH-STRING.  With argument, prom
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)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26