Skip to content
Snippets Groups Projects
Commit a75d71e5a905 authored by oscarf's avatar oscarf
Browse files

(eudc-ph-protocol-locals): Removed in favour of

`eudc-protocol-set'
parent e1fd95800dc2
No related branches found
No related tags found
No related merge requests found
......@@ -43,15 +43,10 @@
;;{{{ Internal cooking
(defconst eudc-ph-protocol-locals
'((cons eudc-bbdb-conversion-alist . eudc-ph-bbdb-conversion-alist)
(eudc-query-function . eudc-ph-query-internal)
(eudc-list-attributes-function . eudc-ph-get-field-list)
(eudc-protocol-has-default-query-attributes . t))
"CCSO PH/QI protocol specific values of EUDC variables.
This should be an alist of the form (EUDC-VAR . PH-VAR) where
EUDC-VAR is the name of a EUDC variable and PH-VAR is the
corresponding PH-specific variable.")
(eudc-protocol-set 'eudc-bbdb-conversion-alist 'eudc-ph-bbdb-conversion-alist 'ph)
(eudc-protocol-set 'eudc-query-function 'eudc-ph-query-internal 'ph)
(eudc-protocol-set 'eudc-list-attributes-function 'eudc-ph-get-field-list 'ph)
(eudc-protocol-set 'eudc-protocol-has-default-query-attributes t 'ph)
(defvar eudc-ph-process-buffer nil)
(defvar eudc-ph-read-point)
......@@ -264,7 +259,7 @@
;;}}}
(eudc-register-protocol 'ph eudc-ph-protocol-locals)
(eudc-register-protocol 'ph)
(provide 'eudc-ph)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment