[O] Bug: Org-Contacts.el [7.4]

[U-SWEETSAUERPORT\\Matthew Sauer]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------
I test evaluated my .emacs (Yes, it needs some cleaning up and that is
one of my projects).   Deleted my org-contacts.el and re-cloned it via
git.  I made sure the directoy for it is added to the load-path and
placed the following in my .emacs
(require 'org-contacts)
I have attatched a backtrace of the error to this message but it seems
to revolve around: 
(org-property-set-functions-alist ("BIRTHDAY"
. org-completing-read-date))
not working correctly.    This error won't let me load the .emacs file
and thus I can't use the org-contacts functionality.  Hopefully, I am
just missing something obvious and this will be an easy fix.

.emacs
Description: My DotEmacs File

BackTrace
Description: BackTrace error when trying evaluate my .emacs

I am going to start reading into this after I
finish my paper that is due this coming week but I would appreciate any
direction.   I find this list most useful and helpful and appreciate all
of the discussion as I find all of it helpful and some of you have
provided me with some really great help.

Thank you all!

Matthew  Sauer


Emacs  : GNU Emacs 23.2.1 (i686-pc-cygwin, GTK+ Version 2.20.1)
 of 2010-10-01 on laptop
Package: Org-mode version 7.4

current state:
==============
(setq
 org-log-done t
 org-mouse-features '(context-menu move-tree yank-link activate-stars 
activate-bullets activate-checkboxes)
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '(("\"TODO\"" :foreground "red") ("\"NEXT\"" 
:foreground "steelblue") ("\"WORKING\"" :foreground "sienna")
                          ("\"REVIEW\"" :foreground "olivedrab") ("\"DONE\"" 
:foreground "dimgrey") ("\"DEFFERED\"" :foreground "dimgrey")
                          ("\"CANCEL\"" :foreground "dimgrey"))
 org-startup-align-all-tables t
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-agenda-custom-commands '(("P" "Projects" ((tags "PROJECT")))
                              ("H" "Office and Home Lists"
                               ((agenda) (tags-todo "WORK") (tags-todo "HOME") 
(tags-todo "COMPUTER") (tags-todo "CHURCH")
                                (tags-todo "READING") (tags-todo "SCHOOL"))
                               )
                              ("D" "Daily Action List"
                               ((agenda ""
                                 ((org-agenda-ndays 1) 
(org-agenda-sorting-strategy (quote ((agenda time-up priority-down tag-up))))
                                  (org-deadline-warning-days 0))
                                 )
                                )
                               )
                              )
 org-agenda-files '("/cygdrive/c/Dropbox/Org/Main.org" 
"/cygdrive/c/Dropbox/Org/Thea143.org" "/cygdrive/c/Dropbox/Org/Engl101.org"
                    "/cygdrive/c/Dropbox/Org/Journal.org" 
"/cygdrive/c/Dropbox/Org/privnotes.org" "/cygdrive/c/Dropbox/Org/weather.org")
 org-agenda-include-diary t
 org-blocker-hook '(org-block-todo-from-checkboxes 
org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-window-setup 'other-window
 org-hide-leading-stars t
 org-agenda-exporter-settings '((ps-number-of-columns 1) (ps-landscape-mode t) 
(htmlize-output-type (quote css)))
 org-tags-match-list-sublevels nil
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-agenda-text-search-extra-files '(agenda-archives)
 org-attach-directory "/cygdrive/C/Dropbox/Org/data/"
 org-time-stamp-rounding-minutes 5
 org-todo-state-tags-triggers '((todo ("ARCHIVE")) (done ("ARCHIVE" . t)))
 org-log-states-order-reversed nil
 org-log-state-notes-insert-after-drawers t
 org-agenda-sorting-strategy '((agenda time-up priority-down tag-up) (todo 
tag-up))
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-agenda-restore-windows-after-quit t
 org-log-note-clock-out t
 org-deadline-warning-days 7
 org-export-html-style "<link rel=\"stylesheet\" type=\"text/css\" 
href=\"mystyles.css\">"
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-agenda-skip-scheduled-if-done t
 org-agenda-insert-diary-strategy 'top-level
 org-support-shift-select 'always
 org-log-redeadline 'note
 org-clock-in-resume t
 org-tags-exclude-from-inheritance '("ARCHIVE")
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-use-tag-inheritance nil
 org-clock-persist t
 org-clock-sound t
 org-todo-keywords '((sequence "TODO" "NEXT" "WORKING" "REVIEW" "DONE" 
"DEFFERED" "CANCEL"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-agenda-log-mode-add-notes nil
 org-clock-persist-query-save t
 org-default-notes-file "/cygdrive/c/Dropbox/Org/Refile.org"
 org-agenda-repeating-timestamp-show-all nil
 org-directory "/cygdrive/c/Dropbox/Org"
 org-log-reschedule 'note
 org-tag-alist '(("ARCHIVE" . 65))
 org-use-extra-keys t
 org-log-refile 'note
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-use-speed-commands t
 org-replace-disputed-keys t
 org-timeline-show-empty-dates t
 org-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote 
org-mouse-context-menu))
                  (when (memq (quote context-menu) org-mouse-features) 
(org-defkey org-mouse-map [mouse-3] nil)
                   (org-defkey org-mode-map [mouse-3] (quote 
org-mouse-show-context-menu)))
                  (org-defkey org-mode-map [down-mouse-1] (quote 
org-mouse-down-mouse))
                  (when (memq (quote context-menu) org-mouse-features)
                   (org-defkey org-mouse-map [C-drag-mouse-1] (quote 
org-mouse-move-tree))
                   (org-defkey org-mouse-map [C-down-mouse-1] (quote 
org-mouse-move-tree-start)))
                  (when (memq (quote yank-link) org-mouse-features) (org-defkey 
org-mode-map [S-mouse-2] (quote org-mouse-yank-link))
                   (org-defkey org-mode-map [drag-mouse-3] (quote 
org-mouse-yank-link)))
                  (when (memq (quote move-tree) org-mouse-features) (org-defkey 
org-mouse-map [drag-mouse-3] (quote org-mouse-move-tree))
                   (org-defkey org-mouse-map [down-mouse-3] (quote 
org-mouse-move-tree-start)))
                  (when (memq (quote activate-stars) org-mouse-features)
                   (font-lock-add-keywords nil
                    (\` (((\, outline-regexp) 0 (\` (face org-link mouse-face 
highlight keymap (\, org-mouse-map))) (quote prepend)))) t)
                   )
                  (when (memq (quote activate-bullets) org-mouse-features)
                   (font-lock-add-keywords nil
                    (\`
                     (("^[      ]*\\([-+*]\\|[0-9]+[.)]\\) +"
                       (1 (\` (face org-link keymap (\, org-mouse-map) 
mouse-face highlight)) (quote prepend)))
                      )
                     )
                    t)
                   )
                  (when (memq (quote activate-checkboxes) org-mouse-features)
                   (font-lock-add-keywords nil
                    (\`
                     (("^[      ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
                       (2 (\` (face bold keymap (\, org-mouse-map) mouse-face 
highlight)) t))
                      )
                     )
                    t)
                   )
                  (defadvice org-open-at-point (around org-mouse-open-at-point 
activate)
                   (let ((context (org-context)))
                    (cond ((assq :headline-stars context) (org-cycle)) ((assq 
:checkbox context) (org-toggle-checkbox))
                     ((assq :item-bullet context) (let 
((org-cycle-include-plain-lists t)) (org-cycle))) (t ad-do-it))
                    )
                   )
                  )
                 #[nil "\300\301\302\303\304$\207" [org-add-hook 
change-major-mode-hook org-show-block-all append local] 5]
                 (lambda nil (org-add-hook (quote change-major-mode-hook) 
(quote org-babel-show-result-all) (quote append) (quote local)))
                 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-contacts-files '("/cygdrive/C/Dropbox/Org/Contacts.org")
 org-agenda-ndays 7
 org-refile-targets '(("main.org" :maxlevel . 1) ("engl101.org" :maxlevel . 1) 
("Thea143.org" :maxlevel . 1) ("someday.org" :maxlevel . 2)
                      ("journal.org" :maxlevel . 1) ("privnotes.org" :level . 
1) ("Contacts.org" :maxlevel . 1))
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-return-follows-link t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-fast-tag-selection-single-key t
 org-log-into-drawer t
 org-agenda-mode-hook '((lambda nil (setq org-mouse-context-menu-function 
(quote org-mouse-agenda-context-menu))
                         (org-defkey org-agenda-mode-map [mouse-3] (quote 
org-mouse-show-context-menu))
                         (org-defkey org-agenda-mode-map [down-mouse-3] (quote 
org-mouse-move-tree-start))
                         (org-defkey org-agenda-mode-map [C-mouse-4] (quote 
org-agenda-earlier))
                         (org-defkey org-agenda-mode-map [C-mouse-5] (quote 
org-agenda-later))
                         (org-defkey org-agenda-mode-map [drag-mouse-3]
                          (quote
                           (lambda (event) (interactive "e")
                            (case (org-mouse-get-gesture event) (:left 
(org-agenda-earlier 1)) (:right (org-agenda-later 1))))
                           )
                          )
                         )
                        hl-line-mode)
 org-feed-alist '(("Catholic" "http://catholiclane.com/feed"; 
"/cygdrive/c/Dropbox/Org/feeds.org" "The Catholic Lane")
                  ("qotd" 
"http://www.integratedcatholiclife.org/category/dailyquote/quote-of-the-day/feed/";
                   "/cygdrive/c/Dropbox/Org/feeds.org" "Quote of the Day")
                  )
 org-agenda-start-on-weekday nil
 org-agenda-todo-ignore-with-date t
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src 
org-babel-exp-inline-src-blocks))
 org-log-repeat 'note
 org-agenda-skip-deadline-if-done t
 org-enforce-todo-dependencies t
 org-insert-heading-respect-content t
 org-insert-mode-line-in-empty-file t
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-hierarchical-checkbox-statistics nil
 org-tags-column -78
 org-modules '(org-bbdb org-bibtex org-gnus org-info org-jsinfo org-irc org-mew 
org-mhe org-rmail org-vm org-wl org-w3m org-mouse)
 org-provide-todo-statistics '(quote all-headlines)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
                               org-beamer-place-default-actions-for-lists)
 org-enforce-todo-checkbox-dependencies t
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-blocks nil) (comment 
org-export-blocks-format-comment t)
                     (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )