当我进入议程视图并尝试按标记过滤(C-c a t / TAB
PC RET
)时,我一直收到以下错误:
org-tags-expand: Wrong type argument: listp, #("{\\<\\(?:pc\\(?:desktop\\|mobile\\)?\\)\\>}" 0 36 (grouptag t))
这是标记在同一文件中的定义方式:
#+TAGS: { PC : PCDesktop PCMobile }
我在OS X Yosemite上使用Emacs Version 24.4(9.0)。组织模式版本是
Org-mode version 8.3beta (release_8.3beta-669-g077a24 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)
我尝试使用稳定版本,然后更新到测试版,我仍然遇到同样的问题。我在设置的任何组标签中遇到此问题。当我创建自定义议程命令时也会发生这种情况。
以下是我的.emacs文件:
;; -*- mode: lisp -*-
;; Disable the splash screen (to enable it agin, replace the t with 0)
(setq inhibit-splash-screen t)
(set-face-attribute 'default nil :height 120)
;; Enable transient mark mode
(transient-mark-mode 1)
;;;;org-mode configuration
;; Enable org-mode
(require 'org)
;;(setq org-todo-keywords
;; '((sequence "TODO" "IN-PROGRESS" "WAITING" "DONE")))
;; The following lines are always needed. Choose your own keys.
;; (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode)) ; not needed since Emacs 22.2
;; (add-hook 'org-mode-hook 'turn-on-font-lock) ; not needed when global-font-lock-mode is on
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
;; Make org-mode work with files ending in .org
;; (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
;; The above is the default in recent emacsen
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-agenda-custom-commands
(quote
(("cs" "Available SCHOOL"
((tags-todo "SCHOOL-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available SCHOOL")))
(agenda ""
((org-agenda-overriding-header "Available SCHOOL")
(org-agenda-tag-filter-preset
(quote
("+SCHOOL")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("ch" "Available HOME"
((tags-todo "HOME-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available HOME")))
(agenda ""
((org-agenda-overriding-header "Deadlines HOME")
(org-agenda-tag-filter-preset
(quote
("+HOME")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("ca" "Available ANYTIME"
((tags-todo "ANYTIME-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available ANYTIME")))
(agenda ""
((org-agenda-overriding-header "Deadlines ANYTIME")
(org-agenda-tag-filter-preset
(quote
("+ANYTIME")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("ce" "Available ERRANDS"
((tags-todo "ERRANDS-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available ERRANDS")))
(agenda ""
((org-agenda-overriding-header "Deadlines ERRANDS")
(org-agenda-tag-filter-preset
(quote
("+ERRANDS")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("cq" "Available PARENTS"
((tags-todo "PARENTS-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available PARENTS")))
(agenda ""
((org-agenda-overriding-header "Deadlines PARENTS")
(org-agenda-tag-filter-preset
(quote
("+PARENTS")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("ck" "Available KOBO"
((tags-todo "KOBO-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available KOBO")))
(agenda ""
((org-agenda-overriding-header "Deadlines KOBO")
(org-agenda-tag-filter-preset
(quote
("+KOBO")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("cn" "Available PHONE"
((tags-todo "PHONE-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available PHONE")))
(agenda ""
((org-agenda-overriding-header "Deadlines PHONE")
(org-agenda-tag-filter-preset
(quote
("+PHONE")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("cp" "Available PC"
((tags-todo "PC-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available PC")))
(agenda ""
((org-agenda-overriding-header "Deadlines PC")
(org-agenda-tag-filter-preset
(quote
("+PC")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("cx" "Available PCDesktop"
((tags-todo "PCDesktop-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available PCDesktop")))
(agenda ""
((org-agenda-overriding-header "Deadlines PCDesktop")
(org-agenda-tag-filter-preset
(quote
("+PCDesktop")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("cy" "Available PCMobile"
((tags-todo "PCMobile-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available PCMobile")))
(agenda ""
((org-agenda-overriding-header "Deadlines PCMobile")
(org-agenda-tag-filter-preset
(quote
("+PCMobile")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil)
("cw" "Available WORK"
((tags-todo "WORK-TODO=\"WAITING\"-Container-SCHEDULED>\"<now>\"-Someday"
((org-agenda-overriding-header "Available WORK")))
(agenda ""
((org-agenda-overriding-header "Deadlines WORK")
(org-agenda-tag-filter-preset
(quote
("+WORK")))
(org-agenda-entry-types
(quote
(:deadline :timestamp))))))
nil nil))))
'(org-agenda-dim-blocked-tasks (quote invisible))
'(org-agenda-files (quote ("~/GTD.org")))
'(org-enforce-todo-dependencies t)
'(org-tags-exclude-from-inheritance
(quote
("Project" "Folder" "Taskgroup" "Single_Action_List"))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
我确保org-group-tags
设置为不为零。任何帮助将不胜感激。