On 2009-08-10 12:55 +0100, 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) @Offic
> e(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)
Here is how to reproduce this one:
1. kk.el with the following line:
(setq org-modules nil)
2. emacs -q -l kk.el
3. open an org file
4. type in #+
5. press M-TAB
Backtrace is as in the previous post.
--
Emacs uptime: 11 minutes, 34 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
