Fixed, thanks.
- Carsten
On Aug 10, 2009, at 1:55 PM, Leo wrote:
Another bug maybe related to this one is trying to complete #+
produces
another error:
Debugger entered--Lisp error: (args-out-of-range 2 10)
match-string(2 )
(cons (match-string 2 x) (match-string 1 x))
(lambda (x) (string-match ^#\\+\\(\\([A-Z_]+:?\\).*\\) x) (cons
(match-string 2 x) (match-string 1 x)))()
mapcar((lambda (x) (string-match ^#\\+\\(\\([A-Z_]+:?\\).*\\) x)
(cons (match-string 2 x) (match-string 1 x))) (#+TITLE:
Tasks.org #+AUTHOR:Leo Shidai Liu #+EMAIL:
sl...@cam.ac.uk #+DATE: 2009-08-10 Mon #+DESCRIPTION: #
+KEYWORDS: #+LANGUAGE: en #+OPTIONS: H:3 num:t toc:t \\n:nil
@:t ::t |:t ^:t -:t f:t *:t :t #+OPTIONS: TeX:t LaTeX:t
skip:nil d:nil todo:t pri:nil tags:not-in-toc #
+EXPORT_SELECT_TAGS: export #+EXPORT_EXCLUDE_TAGS: noexport #
+LINK_UP:#+LINK_HOME: #+CATEGORY: Tasks #+SEQ_TODO:
TODO FEEDBACK VERIFY DONE #+TYP_TODO: Me Jason Marie DONE #
+PRIORITIES: A C B #+DRAWERS: PROPERTIES CLOCK LOGBOOK #
+STARTUP: content odd hidestars noalign nil #+TAGS:
@Computer(c) @Errands(e) @Home(h) @None(n) @Office(o) @Phone(p) #
+FILETAGS: #+ARCHIVE: %s_archive:: #+LINK: org file:~/
org/%s.org))
(append (mapcar (lambda ... ... ...) (org-split-string ... \n))
(mapcar (quote list) org-additional-option-like-keywords))
(cond (opt (setq type :opt) (require ...) (append ... ...))
(startup (setq type :startup) org-startup-options) (link (append org-
link-abbrev-alist-local org-link-abbrev-alist)) (texp (setq
type :tex) org-html-entities) ((string-match \\`\\*+[ ]+\\' ...)
(setq type :todo) (mapcar ... org-todo-keywords-1)) (searchhead
(setq type :searchhead) (save-excursion ... ...) tbl) (tag (setq
type :tag beg beg1) (or org-tag-alist ...)) (prop (setq type :prop
beg beg1) (mapcar ... ...)) (t (progn ... ...)))
(let* ((a nil) (end ...) (beg1 ...) (beg ...) (confirm ...)
(searchhead ...) (struct ...) (tag ...) (prop ...) (texp ...)
(link ...) (opt ...) (startup ...) (completion-ignore-case opt)
(type nil) (tbl nil) (table ...) (pattern ...) (completion ...))
(cond (... ...) (... ... ...) (... ... ... ... ... ... ...)
(t ... ... ...)))
(catch (quote exit) (let*
(... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (cond
... ... ... ...)))
(progn (if pc-mode (partial-completion-mode -1)) (catch (quote
exit) (let* ... ...)))
(unwind-protect (progn (if pc-mode ...) (catch ... ...)) (if pc-
mode (partial-completion-mode 1)))
(let ((pc-mode ...)) (unwind-protect (progn ... ...) (if pc-
mode ...)))
(org-without-partial-completion (catch (quote exit) (let* ... ...)))
org-complete(nil)
call-interactively(org-complete nil nil)
--
Emacs uptime: 18 minutes, 25 seconds
___
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
___
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
