bug in org-remember?

bug in org-remember?

[John Rakestraw]

Hi --

When I do C-c C-c to file away a note created with C-c r, I get the
error message "Wrong type argument: stringp, nil." The filing hints at
the top of the remember template disappear, leaving only the TODO I've
just created, but the note isn't filed away.

I get the same response when doing C-u C-c C-c. the other three options
(C-0 C-c C-c, C-1 C-c C-c, and C-2 C-c C-c) work as expected.

(Apologies if I've missed a recent change to the code that requires a
change in config; I've been swamped and haven't followed the release
notes as closely as I often do, but didn't find anything about this in
a search just now.)

org-mode version 6.16a, emacs 22.2.1 x86_64, Fedora 10

-- 
John Rakestraw

Re: bug in org-remember?

[Carsten Dominik]

Hi John,

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

Thanks.

- Carsten

On Dec 22, 2008, at 3:40 AM, John Rakestraw wrote:

> Hi --
>
> When I do C-c C-c to file away a note created with C-c r, I get the
> error message "Wrong type argument: stringp, nil." The filing hints at
> the top of the remember template disappear, leaving only the TODO I've
> just created, but the note isn't filed away.
>
> I get the same response when doing C-u C-c C-c. the other three  
> options
> (C-0 C-c C-c, C-1 C-c C-c, and C-2 C-c C-c) work as expected.
>
> (Apologies if I've missed a recent change to the code that requires a
> change in config; I've been swamped and haven't followed the release
> notes as closely as I often do, but didn't find anything about this in
> a search just now.)
>
> org-mode version 6.16a, emacs 22.2.1 x86_64, Fedora 10
>
> -- 
> 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

Re: bug in org-remember?

[John Rakestraw]

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

Re: bug in org-remember?

[Carsten Dominik]

[-- Attachment #1.1: Type: text/plain, Size: 8367 bytes --]

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("\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


[-- Attachment #1.2: Type: text/html, Size: 10440 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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