From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Org-mode version 6.32trans (release_6.32b.157.g04e9); Insert anniversary in the calendar fails Date: Tue, 10 Nov 2009 14:36:29 -0500 Message-ID: <200911101936.nAAJaTw6030168@gollum.intra.norang.ca> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N7wW5-0004PX-Bp for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 14:36:37 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N7wW1-0004Ou-75 for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 14:36:36 -0500 Received: from [199.232.76.173] (port=43967 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N7wW1-0004Or-0Y for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 14:36:33 -0500 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:58631) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1N7wW0-0002cS-Jl for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 14:36:32 -0500 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-02-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1N7wVz-000Gbn-IO for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 19:36:31 +0000 Received: from gollum.intra.norang.ca (gollum.intra.norang.ca [192.168.1.5]) by mail.norang.ca (8.14.3/8.14.3/Debian-5) with ESMTP id nAAJaTXL023972 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT) for ; Tue, 10 Nov 2009 14:36:30 -0500 Received: from gollum.intra.norang.ca (localhost [127.0.0.1]) by gollum.intra.norang.ca (8.14.3/8.14.3/Debian-5) with ESMTP id nAAJaT0F030171 for ; Tue, 10 Nov 2009 14:36:29 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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. ------------------------------------------------------------------------ >From the agenda (C-c a a c i a RET RET) I get the following error Debugger entered--Lisp error: (void-function diary-date-display-form) (diary-date-display-form) (let ((calendar-date-display-form ...)) (insert (format "%%%%(diary-anniversary %s) %s" ... text))) (cond ((eq type ...) (or ... ...) (outline-next-heading) (org-back-over-empty-lines) (backward-char 1) (insert "\n") (require ...) (let ... ...)) ((eq type ...) (require ...) (org-datetree-find-date-create d1) (org-agenda-insert-diary-make-new-entry text) (org-insert-time-stamp ...) (end-of-line 0)) ((eq type ...) (if ... ...) (require ...) (org-datetree-find-date-create d1) (org-agenda-insert-diary-make-new-entry text) (org-insert-time-stamp ...) (insert "--") (org-insert-time-stamp ...) (end-of-line 0))) (let ((cw ...)) (org-switch-to-buffer-other-window (find-file-noselect org-agenda-diary-file)) (widen) (goto-char (point-min)) (cond (... ... ... ... ... ... ... ...) (... ... ... ... ... ...) (... ... ... ... ... ... ... ... ...)) (if (string-match "\\S-" text) (progn ... ...) (message "Please finish entry here"))) org-agenda-add-entry-to-org-agenda-diary-file(anniversary "" (11 10 2009)) (cond ((equal char 100) (setq text ...) (org-agenda-add-entry-to-org-agenda-diary-file ... text d1)) ((equal char 97) (setq d1 ...) (setq text ...) (org-agenda-add-entry-to-org-agenda-diary-file ... text d1)) ((equal char 98) (setq text ...) (unless ... ...) (org-agenda-add-entry-to-org-agenda-diary-file ... text d1 d2)) ((equal char 106) (org-switch-to-buffer-other-window ...) (org-datetree-find-date-create d1) (org-reveal t)) (t (error "Invalid selection character `%c'" char))) (let (d1 d2 char (text "")) (if (equal ... "*Calendar*") (setq d1 ... d2 ...) (setq d1 ... d2 ...)) (message "Diary entry: [d]ay [a]nniversary [b]lock [j]ump to date tree") (setq char (read-char-exclusive)) (cond (... ... ...) (... ... ... ...) (... ... ... ...) (... ... ... ...) (t ...))) org-agenda-diary-entry-in-org-file() (if (not (eq org-agenda-diary-file ...)) (org-agenda-diary-entry-in-org-file) (require (quote diary-lib)) (let* (... ... ... ... ...) (unless cmd ...) (unless ... ...) (let ... ...))) org-agenda-diary-entry() call-interactively(org-agenda-diary-entry) -Bernt Emacs : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11) of 2008-11-09 on raven, modified by Debian Package: Org-mode version 6.32trans (release_6.32b.157.g04e9) current state: ============== (setq org-export-html-final-hook '(org-inlinetask-remove-terminator) org-log-done 'time org-remember-default-headline "Tasks" org-clock-in-switch-to-state "STARTED" org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("STARTED" :foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight bold) ("WAITING" :foreground "orange" :weight bold) ("SOMEDAY" :foreground "magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight bold) ("QUOTE" :foreground "red" :weight bold) ("QUOTED" :foreground "magenta" :weight bold) ("APPROVED" :foreground "forest green" :weight bold) ("EXPIRED" :foreground "forest green" :weight bold) ("REJECTED" :foreground "forest green" :weight bold) ("OPEN" :foreground "blue" :weight bold)) org-show-siblings nil org-special-ctrl-a/e t org-agenda-clockreport-parameter-plist '(:link nil :maxlevel 2) org-default-priority 71 org-agenda-custom-commands '(("s" "Started Tasks" todo "STARTED" ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines nil) (org-agenda-todo-ignore-with-date nil)) ) ("w" "Tasks waiting on something" tags "WAITING/!" ((org-use-tag-inheritance nil))) ("r" "Refile New Notes and Tasks" tags "LEVEL=1+REFILE" ((org-agenda-todo-ignore-with-date nil))) ("N" "Notes" tags "NOTE" nil) ("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil) ("p" "Projects" tags-todo "LEVEL=2-NEXT-WAITING-CANCELLED/!-DONE" nil) ("A" "Tasks to be Archived" tags "LEVEL=2/DONE|CANCELLED" nil)) org-agenda-files '("~/git/org/diary.org" "~/git/bzflag/bzflag-website/TODO.org" "~/git/org/bzflag.org" "~/git/org/git.org" "~/git/org/todo.org" "~/git/org/jobs.org" "~/git/org/refile.org" "~/git/org/farm.org" "~/git/org/mark.org" "~/git/org/org.org" "~/git/org/norang.org") org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) org-agenda-tags-column -102 org-export-ascii-final-hook '(org-inlinetask-remove-terminator) org-export-with-sub-superscripts nil org-clock-into-drawer "CLOCK" org-checklist-export-function 'org-export-as-ascii org-completion-use-ido t org-agenda-skip-timestamp-if-done t org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current) org-clock-out-when-done nil org-agenda-text-search-extra-files '(agenda-archives) org-agenda-todo-ignore-scheduled t org-clock-history-length 35 org-show-hierarchy-above t org-time-stamp-rounding-minutes '(1 15) org-speed-commands-user '(("1" . delete-other-windows) ("2" . split-window-horizontally) ("3" . split-window-vertically)) org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT")) ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING")) ("TODO" ("WAITING") ("CANCELLED") ("NEXT")) ("DONE" ("WAITING") ("CANCELLED") ("NEXT"))) org-special-ctrl-k t org-remember-clock-out-on-exit nil org-agenda-sorting-strategy '((agenda habit-down time-up priority-down effort-up category-up) (todo priority-down) (tags priority-down)) org-deadline-warning-days 30 org-agenda-skip-scheduled-if-done t org-stuck-projects '("LEVEL=2-REFILE-WAITING|LEVEL=1+REFILE/!-DONE-CANCELLED-OPEN" nil ("NEXT") "") org-agenda-time-grid '(nil "----------------" (800 1000 1200 1400 1600 1800 2000)) org-clock-in-resume t org-quote-string "FOOBAR" org-export-preprocess-hook '(org-export-blocks-preprocess) org-tags-exclude-from-inheritance '("crypt") org-agenda-diary-file "~/git/org/diary.org" org-tab-first-hook '(org-hide-block-toggle-maybe) outline-regexp "\\(?:\\*+\\|=+ \\)" org-src-mode-hook '(org-src-mode-configure-edit-buffer) org-finalize-agenda-hook '(bh/org-agenda-to-appt) org-confirm-shell-link-function 'yes-or-no-p org-table-export-default-format "orgtbl-to-csv" org-clock-persist 'history org-clock-sound "/usr/local/lib/alert1.wav" org-todo-keywords '((sequence "TODO(t!)" "STARTED(s!)" "|" "DONE(d!/!)") (sequence "WAITING(w@/!)" "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)") (sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" "EXPIRED(E@)" "REJECTED(R@)") ) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-default-notes-file "~/git/org/refile.org" org-export-docbook-xslt-proc-command "xsltproc --output %s /usr/share/xml/docbook/stylesheet/nwalsh/fo/docbook.xsl %s" org-insert-heading-hook '(bh/insert-inactive-timestamp) org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 104) ("@farm" . 102) (:endgroup) ("PHONE" . 112) ("QUOTE" . 113) ("NEXT" . 110) ("WAITING" . 119) ("HOME" . 72) ("FARM" . 70) ("ORG" . 79) ("JOBS" . 74) ("SAPPI" . 83) ("NORANG" . 78) ("crypt" . 101) ("inet" . 105) ("MARK" . 77) ("BZFLAG" . 66)) org-blank-before-new-entry '((heading) (plain-list-item)) org-habit-graph-column 50 org-export-html-inline-images t 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-latex-classes '(("myletter" "% BEGIN My Letter Defaults\n\\documentclass[10pt,letterpaper]{letter}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n% END My Letter Defaults\n\n" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("myarticle" "% BEGIN My Article Defaults\n\\documentclass[10pt,letterpaper]{article}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\headrulewidth}{1pt}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[L]{\\small \\jobname \\\\ \\today}\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n\\fancyfoot[R]{\\small \\copyright \\the\\year\\ Norang Consulting Inc.}\n% END My Article Defaults\n\n" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("article" "\\documentclass[11pt,letterpaper]{article}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt,letterpaper]{report}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[11pt,letterpaper]{book}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ) org-publish-project-alist '(("norang-org" :base-directory "~/git/www.norang.ca" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function org-publish-org-to-html :style-include-default nil :section-numbers nil :table-of-contents nil :style-include-default nil :style "" :author-info nil :creator-info nil) ("norang-extra" :base-directory "~/git/www.norang.ca/" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment :recursive t :author nil) ("norang" :components ("norang-org" "norang-extra")) ("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style "" :author-info nil :creator-info nil) ("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment :recursive t :author nil) ("org" :base-directory "~/git/org/" :publishing-directory "/ssh:www-data@www:~/org" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function org-publish-org-to-html :style-include-default nil :style "" :author-info nil :creator-info nil) ("doc-org-mode" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style "" :author-info nil :creator-info nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment :recursive t :author nil) ("doc" :components ("doc-org" "doc-extra" "doc-org-mode" "doc-org-mode-extra")) ) org-agenda-tags-todo-honor-ignore-options t org-use-speed-commands t org-mode-hook '(org-clock-load (lambda nil (make-variable-buffer-local (quote yas/trigger-key)) (org-set-local (quote yas/trigger-key) [tab]) (define-key yas/keymap [tab] (quote yas/next-field-group)) (flyspell-mode 1)) (lambda nil (add-hook (quote before-save-hook) (quote org-encrypt-entries) nil t)) (lambda nil (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local)) ) ) org-clock-out-remove-zero-time-clocks t org-cycle-include-plain-lists nil org-font-lock-hook '(org-inlinetask-fontify) org-agenda-ndays 1 org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 4:00 6:00 8:00 12:00 16:00 24:00") ("STYLE_ALL" . "habit")) org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5)) org-clock-auto-clock-resolution nil org-return-follows-link t org-confirm-elisp-link-function 'yes-or-no-p org-refile-use-outline-path 'file org-fast-tag-selection-single-key 'expert org-log-into-drawer t org-agenda-mode-hook '((lambda nil (hl-line-mode 1))) org-agenda-start-on-weekday nil org-agenda-todo-ignore-with-date t org-enforce-todo-dependencies t org-agenda-skip-deadline-if-done t org-show-following-heading t org-insert-heading-respect-content t org-crypt-key "F0B66B40" org-occur-hook '(org-first-headline-recenter) org-from-is-user-regexp "\\" org-yank-adjusted-subtrees t org-drawers '("PROPERTIES" "LOGBOOK" "CLOCK") org-agenda-log-mode-items '(clock) org-treat-S-cursor-todo-selection-as-state-change nil org-export-docbook-xsl-fo-proc-command "fop %s %s" org-agenda-todo-ignore-deadlines t org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m) org-columns-default-format "%80ITEM(Task) %10Effort(Estimated Effort){:} %10CLOCKSUM" org-agenda-auto-exclude-function 'bh/org-auto-exclude-function org-remember-templates '(("todo" 116 "* TODO %?\n %U\n %a" nil bottom nil) ("note" 110 "* %? :NOTE:\n %U\n %a" nil bottom nil) ("phone" 112 "* PHONE %:name - %:company - :PHONE:\n Contact Info: %a\n %U\n :CLOCK-IN:\n %?" nil bottom nil) ("Apply to Job" 106 "* TODO jobtask%? :NEXT:inet:\n :PROPERTIES:\n :Effort: 0:30\n :END:\n %U\n jobdetails" "~/git/org/jobs.org" "TODO Job Search" nil) ("appointment" 97 "* %?\n %U" "~/git/org/todo.org" "Appointments" nil) ("Search job site" 115 "* TODO Search job site%! :NEXT:inet:\n %U\n :PROPERTIES:\n :Effort: 0:10\n :END:\n %a " "~/git/org/jobs.org" "Search Jobs" nil) ("org-protocol" 119 "* TODO Review %c%! :NEXT:\n %U\n :PROPERTIES:\n :Effort: 0:10\n :END:" nil bottom nil) ) org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler) org-export-docbook-final-hook '(org-inlinetask-remove-terminator) org-export-latex-final-hook '(org-inlinetask-remove-terminator) org-lowest-priority 71 )