From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Rakestraw Subject: Re: bug in org-remember? Date: Mon, 22 Dec 2008 22:41:57 -0500 Message-ID: <20081222224157.00940a30@buster.rakestrawmornlocal> References: <20081221214045.21928584@buster.rakestrawmornlocal> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LEy9l-0006Tv-Am for emacs-orgmode@gnu.org; Mon, 22 Dec 2008 22:42:05 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LEy9i-0006T4-KL for emacs-orgmode@gnu.org; Mon, 22 Dec 2008 22:42:04 -0500 Received: from [199.232.76.173] (port=35366 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LEy9i-0006Sx-9I for emacs-orgmode@gnu.org; Mon, 22 Dec 2008 22:42:02 -0500 Received: from relay00.pair.com ([209.68.5.9]:1861) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1LEy9h-0003QB-Qx for emacs-orgmode@gnu.org; Mon, 22 Dec 2008 22:42:02 -0500 In-Reply-To: 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: Carsten Dominik Cc: emacs-orgmode@gnu.org 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 =20 > and org? Backtrace: Debugger entered--Lisp error: (wrong-type-argument stringp nil) expand-file-name(nil) (let* ((cbuf ...) (cfunc ...) (extra ...) (filename ...) (tbl ...) (compl= etion-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: ") defaul= t-buffer)) (if (setq it (org-refile-get-location ... default-buffer)) (progn (setq f= ile ... 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 re= file 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 ...) (regi= on-length ...) (filename ...) pos it nbuf file re level reversed) (when reg= ionp (goto-char region-start) (unless ... ...)) (if (equal goto ...) (org-r= efile-goto-last-stored) (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-handler-fun= ctions)) (run-hook-with-args-until-success (quote remember-handler-function= s))) (save-restriction (narrow-to-region b e) (if remember-all-handler-functio= ns (run-hooks ...) (run-hook-with-args-until-success ...)) (remember-destro= y)) (let ((b ...) (e ...)) (save-restriction (narrow-to-region b e) (if remem= ber-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" "Unfil= ed Tasks") ("agenda" 97 "* AGENDA %?\n :PROPERTIES: \n :Entered: %U\n :Program= : Agenda\n :Contact: %^{Agenda Item for?}\n :END:\n \n" "~/plans/work.or= g" "Unfiled Tasks")=20 ("home task" 104 "* TODO %?\n SCHEDULED: %^T\n :PROPERTIES: \n :Ent= ered: %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 w= eb page ends here\n\n %?\n" "~/plans/webclips.org" "Unfiled Clips")=20 ("software tip" ?s "* %c \n :PROPERTIES: \n :Entered: %U \n :END: \n= - ---->Quote from web page starts here\n - %:region\n - ---->Quote fr= om 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 Tip= s") =20 ("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/g= rocery.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= .=20 ;; (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) --=20 John Rakestraw