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: " #<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(" 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
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
