I still get the "Wrong type argument: numberp, (0.5)" error.
Here's the stacktrace for the error that I get when I set org-refile-targets
with the following code:
;; Use environment variable $ORGDIR to get dir for org-directory
(setq org-directory (getenv "ORGDIR"))
(setq notesmine-dir "~/Documents/notesmine-org")
(setq org-agenda-files (file-expand-wildcards (concat org-directory
"/*.org")))
(setq notesmine-files (file-expand-wildcards (concat notesmine-dir
"/*.org")))
; Targets include this file and any file contributing to the agenda - up
to 5 levels deep
(setq org-refile-targets
(quote
(
(org-agenda-files :maxlevel . 5)
(notesmine-files :maxlevel . 5)
(nil :maxlevel . 5)
)
)
)
Debugger entered--Lisp error: (wrong-type-argument numberp (0.5))
number-to-string((0.5))
(concat "^\\*\\{1," (number-to-string (if org-odd-levels-only ... ...))
"\\}[ ]")
(setq descre (concat "^\\*\\{1," (number-to-string ...) "\\}[ ]"))
(cond ((eq ... :tag) (setq descre ...)) ((eq ... :todo) (setq descre ...))
((eq ... :regexp) (setq descre ...)) ((eq ... :level) (setq descre ...))
((eq ... :maxlevel) (setq fast-path-p t) (setq descre ...)) (t (error "Bad
refiling target description %s" desc)))
(while (setq entry (pop entries)) (setq files (car entry) desc (cdr
entry)) (setq fast-path-p nil) (cond (... ...) (... ...) (... ...) (...
...)) (if (stringp files) (setq files ...)) (cond (... ...) (... ...) (...
...) (... ...) (... ... ...) (t ...)) (while (setq f ...)
(with-current-buffer ... ... ... ... ...)))
(save-current-buffer (set-buffer (or default-buffer ...)) (while (setq
entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ...
... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
(with-current-buffer (or default-buffer (current-buffer)) (while (setq
entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ...
... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
(let ((case-fold-search nil) (entries ...) targets txt re files f desc
descre fast-path-p level pos0) (message "Getting targets...")
(with-current-buffer (or default-buffer ...) (while ... ... ... ... ... ...
...)) (message "Getting targets...done") (nreverse targets))
org-get-refile-targets(#<buffer notes.org>)
(setq org-refile-target-table (org-get-refile-targets default-buffer))
(let ((org-refile-targets org-refile-targets) (org-refile-use-outline-path
org-refile-use-outline-path)) (setq org-refile-target-table
(org-get-refile-targets default-buffer)))
org-refile-get-location("Refile to: " #<buffer notes.org> nil)
(or rfloc (org-refile-get-location (if goto "Goto: " "Refile to: ") buffer
org-refile-allow-creating-parent-nodes))
(let* ((marker ...) (buffer ...) (pos ...) (rfloc ...))
(with-current-buffer buffer (save-excursion ...)))
(if (equal goto (quote ...)) (org-refile-goto-last-stored) (let* (... ...
... ...) (with-current-buffer buffer ...)))
org-agenda-refile(nil)
call-interactively(org-agenda-refile nil nil)
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
