Hi John, another fine example of how important it is to send your configuration with a bug report. You have org-remember-store-without-prompt = nil, which puts you on a different path than I am normally testing. I believe this bug is squashed now, let me know if not. - Carsten On Dec 23, 2008, at 4:41 AM, John Rakestraw wrote: > 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: " #) > (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 #) > byte-code("ƒ 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