Emacs 组织模式组标记不工作(组织标记展开:错误的类型参数)

Emacs 组织模式组标记不工作(组织标记展开:错误的类型参数),emacs,org-mode,Emacs,Org Mode,当我进入“议程”视图并尝试按标签进行筛选时,我不断遇到以下错误(C-C a t/TABPCRET): 我在OS X Yosemite上使用Emacs版本24.4(9.0)。组织模式版本为 Org-mode version 8.3beta (release_8.3beta-669-g077a24 @ /Applications/Emacs.app/Contents/Resources/lisp/org/) 我尝试过使用一个稳定的版本,然后升级到beta版,我仍然有同样的问题。我设置的任何组标记都

当我进入“议程”视图并尝试按标签进行筛选时,我不断遇到以下错误(
C-C a t/TAB
PC
RET
):

我在OS X Yosemite上使用Emacs版本24.4(9.0)。组织模式版本为

Org-mode version 8.3beta (release_8.3beta-669-g077a24 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)
我尝试过使用一个稳定的版本,然后升级到beta版,我仍然有同样的问题。我设置的任何组标记都有这个问题。创建自定义议程命令时也会发生这种情况

以下是我的.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.
 )
;;-*-模式:lisp-*-
;; 禁用启动屏幕(要再次启用,请将t替换为0)
(setq禁止启动屏幕t)
(设置面属性“默认为零:高度120”)
;; 启用瞬态标记模式
(瞬态标记模式1)
;;;;组织模式配置
;; 启用组织模式
(需要“组织”)
;;(setq组织todo关键字)
;'((顺序“TODO”“正在进行”“等待”“完成”))
;; 始终需要以下行。选择你自己的钥匙。
;;      (添加到列表“自动模式列表”(“\\.org\\'”.org mode));自Emacs 22.2以来不需要
;;      (添加钩子“组织模式钩子”打开字体锁定);启用全局字体锁定模式时不需要
(全局设置键“\C-cl”'组织存储链接)
(全局设置键“\C-ca”'组织议程)
(全局设置键“\C-cb”'组织iswitchb)
;; 使组织模式与以.org结尾的文件一起工作
;; (添加到列表“自动模式列表”(“\\.org$”.org mode))
;; 以上是最近emacsen中的默认设置
(自定义设置变量)
;自定义设置变量由自定义添加。
如果你手工编辑,可能会把它弄糟,所以要小心。
;init文件应该只包含一个这样的实例。
如果不止一个,它们就不能正常工作。
'(组织议程)自定义命令
(引述
(“cs”“可供选择的学校”
((标记todo“SCHOOL-todo=\“WAITING\”-容器计划>\“\”-某天)
((组织议程覆盖标题“可用学校”))
(议程项目“”
((组织议程覆盖标题“可用学校”)
(组织议程标记过滤器预设)
(引述
(“+学校”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“ch”“可用家庭”
((标记todo“HOME-todo=\“WAITING\”-容器计划>\“\”-某一天)
((组织议程覆盖标题“可用主页”))
(议程项目“”
((组织议程覆盖标题“截止日期主页”)
(组织议程标记过滤器预设)
(引述
(“+家”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“ca”随时可用)
((标记todo“ANYTIME-todo=\“WAITING\”-容器计划>\“\”-某天)
((组织议程覆盖标题“随时可用”))
(议程项目“”
((组织议程覆盖标题“任何时候的截止日期”)
(组织议程标记过滤器预设)
(引述
(“+任何时候”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“ce”“可用差事”
((标记todo“差事-todo=\“等待\”-容器计划>\“\”-某一天”
((组织议程覆盖标题“可用差事”))
(议程项目“”
((组织议程覆盖标题“截止日期差事”)
(组织议程标记过滤器预设)
(引述
(“+差事”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“cq”“可用家长”
((标记todo“PARENTS-todo=\“WAITING\”-容器计划>\“\”-某一天)
((组织议程覆盖标题“可用家长”))
(议程项目“”
((组织议程覆盖标题“截止日期”)
(组织议程标记过滤器预设)
(引述
(“+父母”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“ck”“可用KOBO”
((标记todo“KOBO-todo=\“等待\”-容器计划>\“\”-某一天)
((组织议程覆盖标题“可用KOBO”))
(议程项目“”
((组织议程覆盖标题“截止日期KOBO”)
(组织议程标记过滤器预设)
(引述
(“+KOBO”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“cn”“可用电话”
((标记todo“PHONE-todo=\“WAITING\”-容器计划>\“\”-某天)
((组织议程覆盖标题“可用电话”))
(议程项目“”
((组织议程覆盖标题“截止日期电话”)
(组织议程标记过滤器预设)
(引述
(“+电话”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“cp”“可用PC”
((标记todo“PC-todo=\“等待\”-容器计划>\“\”-某一天)
((组织议程覆盖标题“可用PC”))
(议程项目“”
((组织议程覆盖标题“截止日期PC”)
(组织议程标记过滤器预设)
(引述
(“+PC”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“cx”可用PC桌面
((标记todo“PCDesktop todo=\“WAITING\”-容器计划>\“\”-某一天)
((组织议程覆盖标题“可用PCDesktop”))
(议程项目“”
((组织议程覆盖标题“桌面”)
(组织议程标记过滤器预设)
(引述
(“+PCDesktop”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“cy”“可用PCMobile”
((标记todo“PCMobile todo=\“等待\”-容器计划>\“\”-某一天)
((组织议程覆盖标题“可用PCMobile”))
(议程项目“”
((组织议程覆盖标题“截止日期”)
(组织议程标记过滤器预设)
(引述
(“+PCMobile”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零(零)
(“cw”“可用工作”
((标记todo“WORK-todo=\“WAITING\”-容器计划>\“\”-某天)
((组织议程覆盖标题“可用工作”))
(议程项目“”
((组织议程覆盖标题“截止日期工作”)
(组织议程标记过滤器预设)
(引述
(“+工作”))
(组织)议程条目类型
(引述
(:截止日期:时间戳(()()))
零零))
"(或
Org-mode version 8.3beta (release_8.3beta-669-g077a24 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)
;;   -*- 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.
 )