Function: eudc-register-protocol

eudc-register-protocol is a byte-compiled function defined in eudc.el.gz.

Signature

(eudc-register-protocol PROTOCOL)

Documentation

Add PROTOCOL to the list of supported protocols.

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc.el.gz
;;}}}


(defun eudc-register-protocol (protocol)
  "Add PROTOCOL to the list of supported protocols."
  (unless (memq protocol eudc-supported-protocols)
    (setq eudc-supported-protocols
	  (cons protocol eudc-supported-protocols))
    (put 'eudc-protocol 'custom-type
	 `(choice :menu-tag "Protocol"
		  ,@(mapcar (lambda (s)
			      (list 'string ':tag (symbol-name s)))
			    eudc-supported-protocols))))
  (or (memq protocol eudc-known-protocols)
      (setq eudc-known-protocols
	    (cons protocol eudc-known-protocols))))