From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: bug in org-remember? Date: Tue, 23 Dec 2008 23:04:30 +0100 Message-ID: <0F8C3EA4-3BAB-4C3F-A0D4-65B5EDE22F16@uva.nl> References: <20081221214045.21928584@buster.rakestrawmornlocal> <20081222224157.00940a30@buster.rakestrawmornlocal> Mime-Version: 1.0 (Apple Message framework v929.2) Content-Type: multipart/mixed; boundary="===============0370826760==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LFGCb-0007cZ-SV for emacs-orgmode@gnu.org; Tue, 23 Dec 2008 17:58:14 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LFGCa-0007c0-0k for emacs-orgmode@gnu.org; Tue, 23 Dec 2008 17:58:12 -0500 Received: from [199.232.76.173] (port=34481 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LFGCZ-0007bl-Ki for emacs-orgmode@gnu.org; Tue, 23 Dec 2008 17:58:11 -0500 Received: from mail-ew0-f13.google.com ([209.85.219.13]:60497) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LFGCY-0001Gb-QI for emacs-orgmode@gnu.org; Tue, 23 Dec 2008 17:58:11 -0500 Received: by mail-ew0-f13.google.com with SMTP id 6so3183347ewy.18 for ; Tue, 23 Dec 2008 14:58:10 -0800 (PST) In-Reply-To: <20081222224157.00940a30@buster.rakestrawmornlocal> 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: John Rakestraw Cc: emacs-orgmode@gnu.org --===============0370826760== Content-Type: multipart/alternative; boundary=Apple-Mail-53-507084031 --Apple-Mail-53-507084031 Content-Type: text/plain; charset=ISO-8859-1; format=flowed; delsp=yes Content-Transfer-Encoding: quoted-printable Hi John, another fine example of how important it is to send your configuration =20= with a bug report. You have org-remember-store-without-prompt =3D nil, =20= 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 =20= > 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 ...) =20= > (completion-ignore-case t)) (assoc (funcall cfunc prompt tbl nil t =20 > nil ...) tbl)) > org-refile-get-location("Refile to: " #) > (setq it (org-refile-get-location (if goto "Goto: " "Refile to: ") =20= > default-buffer)) > (if (setq it (org-refile-get-location ... default-buffer)) (progn =20 > (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if =20 > goto ... ... ... ... ... ...))) > (when (setq it (org-refile-get-location ... default-buffer)) (setq =20= > file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and ... ...) =20 > (error "Cannot refile to position inside the tree or region")) (setq =20= > nbuf (or ... ...)) (if goto (progn ... ... ...) (if regionp ... ...) =20= > (save-excursion ... ... ...) (if regionp ... ...) (setq org-markers-=20= > to-move nil) (message "Refiled to \"%s\"" ...))) > (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when =20 > (setq it ...) (setq file ... re ... pos ...) (if ... ...) (setq =20 > nbuf ...) (if goto ... ... ... ... ... ...))) > (let* ((cbuf ...) (regionp ...) (region-start ...) (region-end ...) =20= > (region-length ...) (filename ...) pos it nbuf file re level =20 > reversed) (when regionp (goto-char region-start) (unless ... ...)) =20 > (if (equal goto ...) (org-refile-goto-last-stored) =20 > (when ... ... ... ... ...))) > org-refile(nil #) > byte-code("=08=83 org-remember-handler() > run-hooks(remember-handler-functions) > (if remember-all-handler-functions (run-hooks (quote remember-=20 > handler-functions)) (run-hook-with-args-until-success (quote =20 > remember-handler-functions))) > (save-restriction (narrow-to-region b e) (if remember-all-handler-=20 > functions (run-hooks ...) (run-hook-with-args-until-success ...)) =20 > (remember-destroy)) > (let ((b ...) (e ...)) (save-restriction (narrow-to-region b e) (if =20= > 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" "~/=20= > 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=20 > \n :PROPERTIES: \n :Entered: %U\n :END: \n \n" "~/Dropbox/plans/=20= > work.org" "Unfiled Tasks") > ("read-file" 114 "* READ %?\n %a \n :PROPERTIES: \n = :Entered: =20 > %U \n :END: \n " "~/Dropbox/plans/work.org" "Unfiled Tasks") > ("email" 101 "* TODO Reply to %?\n SCHEDULED: %^T=20 > \n :PROPERTIES: \n :Entered: %U \n :END: \n :EMAIL:\n %^C=20 > \n :END:" "~/plans/work.org" "Unfiled Tasks") > ("agenda" 97 "* AGENDA %?\n :PROPERTIES: \n :Entered: %U=20= > \n :Program: Agenda\n :Contact: %^{Agenda Item for?}\n :END:\n =20 > \n" "~/plans/work.org" "Unfiled Tasks") > ("home task" 104 "* TODO %?\n SCHEDULED: %^T\n = :PROPERTIES: =20 > \n :Entered: %U \n :END: \n \n" "~/plans/home.org" "Unfiled Tasks") > ("journal entry" 106 "** %U\n %?" "~/plans/journal.cpt" =20 > "Entries") > ("web-clip" ?w "* %c \n :PROPERTIES: \n :Entered: %U \n = :END: =20 > \n - ---->Quote from web page starts here\n - %:region\n - ----=20= > >Quote from web page ends here\n\n %?\n" "~/plans/webclips.org" =20 > "Unfiled Clips") > ("software tip" ?s "* %c \n :PROPERTIES: \n :Entered: %U =20= > \n :END: \n - ---->Quote from web page starts here\n - %:region=20= > \n - ---->Quote from web page ends here\n\n %?\n" "~/plans/=20 > webclips.org" "Software Tips") > ("software Tip" ?T "* Tip about %?\n :PROPERTIES: \n = :Entered: =20 > %U \n :END: \n - ---->Quote from email message starts here\n - =20= > %^C\n - ---->Quote from email ends here\n\n %?\n" "~/plans/=20 > webclips.org" "Software Tips") > ("fun_email" 102 "* TODO Reply to %?\n :PROPERTIES: =20 > \n :Entered: %U \n :END: \n %:location \n %:message\n" "~/plans/=20= > work.org" "Unfiled Tasks") > ("grocery" ?g "* %? :groc: \n %u\n :PROPERTIES: \n :END:" = "~/=20 > 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 =20 > headings. > ;; (setq org-blank-before-new-entry > ;; '((heading . t) (plain-list-item . nil))) > > (setq org-drawers '("PROPERTIES" "BACKGROUND" "CLOCK" "HIDDEN" =20 > "EMAIL")) > > (setq org-log-note-clock-out t) > > (setq org-special-ctrl-a/e t) > > > > > --=20 > John Rakestraw --Apple-Mail-53-507084031 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable 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 =3D 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("=08=83 =  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) =             &n= bsp;       ; 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

= --Apple-Mail-53-507084031-- --===============0370826760== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============0370826760==--