Re: bug in org-remember?

[John Rakestraw <lists@johnrakestraw.com>]

Hi Carsten --

I tested this morning on a different computer with identical config
files before I upgraded org-mode to the most recent version. On that
earlier version (I think it was 6.15trans), org-remember worked fine as
expected. After upgrading (to version 6.16d), I experienced the
behavior described in my earlier email. I just upgraded to the latest
version (6.16trans), and I still get the error. See backtrace and
org/remember set-up below.

(Incidentally, after reading Charles Cove's report of a similar
problem, I tried hitting C-c C-c a second time on the same remember
template; I still get the same error I received before.)

> can you please create a backtrace, and post your setup for remember  
> and org?

Backtrace:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  expand-file-name(nil)
  (let* ((cbuf ...) (cfunc ...) (extra ...) (filename ...) (tbl ...) (completion-ignore-case t)) (assoc (funcall cfunc prompt tbl nil t nil ...) tbl))
  org-refile-get-location("Refile to: " #<buffer work.org>)
  (setq it (org-refile-get-location (if goto "Goto: " "Refile to: ") default-buffer))
  (if (setq it (org-refile-get-location ... default-buffer)) (progn (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto ... ... ... ... ... ...)))
  (when (setq it (org-refile-get-location ... default-buffer)) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and ... ...) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or ... ...)) (if goto (progn ... ... ...) (if regionp ... ...) (save-excursion ... ... ...) (if regionp ... ...) (setq org-markers-to-move nil) (message "Refiled to \"%s\"" ...)))
  (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when (setq it ...) (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto ... ... ... ... ... ...)))
  (let* ((cbuf ...) (regionp ...) (region-start ...) (region-end ...) (region-length ...) (filename ...) pos it nbuf file re level reversed) (when regionp (goto-char region-start) (unless ... ...)) (if (equal goto ...) (org-refile-goto-last-stored) (when ... ... ... ... ...)))
  org-refile(nil #<buffer work.org>)
  byte-code("\bƒ	  org-remember-handler()
  run-hooks(remember-handler-functions)
  (if remember-all-handler-functions (run-hooks (quote remember-handler-functions)) (run-hook-with-args-until-success (quote remember-handler-functions)))
  (save-restriction (narrow-to-region b e) (if remember-all-handler-functions (run-hooks ...) (run-hook-with-args-until-success ...)) (remember-destroy))
  (let ((b ...) (e ...)) (save-restriction (narrow-to-region b e) (if remember-all-handler-functions ... ...) (remember-destroy)))
  remember-region(1 474)
  remember-finalize()
  org-remember-finalize()
  call-interactively(org-remember-finalize)

Org/remember set-up:

(require 'org-install)

(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)


(require 'remember)
(require 'org-remember)

(add-hook 'remember-mode-hook 'org-remember-apply-template)


;; set up org-remember
(org-remember-insinuate)
(setq org-directory "~/Dropbox/plans/")
(setq org-default-notes-file (concat org-directory "/notes.org"))
(define-key global-map "\C-cr" 'org-remember)


(setf org-refile-use-outline-path t)
(setq org-outline-path-complete-in-steps nil)
(setf org-goto-auto-isearch nil)
(setf org-goto-auto-interface 'outline-path-completion)

(global-font-lock-mode 1)                     ; for all buffers

(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(add-hook 'org-mode-hook 'flyspell-mode)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))

(define-key mode-specific-map [?a] 'org-agenda)

(eval-after-load "org"
  '(progn
     (define-prefix-command 'org-todo-state-map)

     (define-key org-mode-map "\C-cx" 'org-todo-state-map)

     (define-key org-todo-state-map "x"
       #'(lambda nil (interactive) (org-todo "CANCELLED")))
     (define-key org-todo-state-map "d"
       #'(lambda nil (interactive) (org-todo "DONE")))
     (define-key org-todo-state-map "f"
       #'(lambda nil (interactive) (org-todo "DEFERRED")))
     (define-key org-todo-state-map "l"
       #'(lambda nil (interactive) (org-todo "DELEGATED")))
     (define-key org-todo-state-map "s"
       #'(lambda nil (interactive) (org-todo "STARTED")))
     (define-key org-todo-state-map "w"
       #'(lambda nil (interactive) (org-todo "WAITING")))))


(setq org-export-with-timestamps nil)
(setq org-export-with-todo-keywords nil)

(custom-set-variables
 '(org-agenda-files (quote ("~/plans/work.org" "~/plans/home.org" "~/plans/family.org")))
 '(org-default-notes-file "~/plans/notes.org")
 '(org-agenda-ndays 7)
 '(org-deadline-warning-days 10)
 '(org-agenda-show-all-dates t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-agenda-use-time-grid nil)
 '(org-fast-tag-selection-single-key (quote expert))
 '(org-remember-store-without-prompt nil)
 '(org-refile-targets '((org-agenda-files . (:maxlevel . 2))))
 '(org-remember-templates
   (quote (("task-cndls" 116 "* TODO %?\n  SCHEDULED: %^T\n  :PROPERTIES: \n  :Entered: %U\n  :END: \n  \n" "~/Dropbox/plans/work.org" "Unfiled Tasks")
	   ("read-file" 114 "* READ %?\n  %a \n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  " "~/Dropbox/plans/work.org" "Unfiled Tasks")
	   ("email" 101 "* TODO Reply to %?\n  SCHEDULED: %^T\n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  :EMAIL:\n %^C\n :END:" "~/plans/work.org" "Unfiled Tasks")
	   ("agenda" 97 "* AGENDA %?\n   :PROPERTIES: \n  :Entered: %U\n  :Program: Agenda\n  :Contact: %^{Agenda Item for?}\n  :END:\n  \n" "~/plans/work.org" "Unfiled Tasks") 
	   ("home task" 104  "* TODO %?\n  SCHEDULED: %^T\n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  \n" "~/plans/home.org" "Unfiled Tasks")
	   ("journal entry" 106 "** %U\n   %?" "~/plans/journal.cpt" "Entries")
	   ("web-clip" ?w "* %c \n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  - ---->Quote from web page starts here\n    - %:region\n  - ---->Quote from web page ends here\n\n  %?\n" "~/plans/webclips.org" "Unfiled Clips") 
	   ("software tip" ?s "* %c \n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  - ---->Quote from web page starts here\n    - %:region\n  - ---->Quote from web page ends here\n\n  %?\n" "~/plans/webclips.org" "Software Tips")
	   ("software Tip" ?T "* Tip about %?\n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  - ---->Quote from email message starts here\n    - %^C\n  - ---->Quote from email ends here\n\n  %?\n" "~/plans/webclips.org" "Software Tips")  
	   ("fun_email" 102 "* TODO Reply to %?\n  :PROPERTIES: \n  :Entered: %U \n  :END: \n  %:location  \n  %:message\n" "~/plans/work.org" "Unfiled Tasks")
	   ("grocery" ?g "* %? :groc: \n  %u\n  :PROPERTIES: \n  :END:" "~/plans/grocery.org" "Items to Buy")
	   ("note" 110 "* %u %?\n  \n" "~/plans/notes.org" "Notes")))))


(setq org-show-hierarchy-above nil
       org-show-following-heading nil
       org-show-siblings nil)

;;; Uncomment the following if I want a default empty line between headings. 
;; (setq org-blank-before-new-entry
;;       '((heading . t) (plain-list-item . nil)))

(setq org-drawers '("PROPERTIES" "BACKGROUND" "CLOCK" "HIDDEN" "EMAIL"))

(setq org-log-note-clock-out t)

(setq org-special-ctrl-a/e t)




-- 
John Rakestraw