emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] [PATCH] - Fix org-fast-tag-selection


From: Nick Dokos
Subject: Re: [O] [PATCH] - Fix org-fast-tag-selection
Date: Tue, 03 Apr 2012 17:42:37 -0400

Bernt Hansen <address@hidden> wrote:

> Noorul Islam K M <address@hidden> writes:
> 
> > Hello all,
> >
> > I have the following setup similar to Bernt Hansen.
> >
> > (setq org-tag-alist (quote ((:startgroup)
> >                             ("@errand" . ?e)
> >                             ("@office" . ?o)
> >                             ("@home" . ?h)
> >                             (:endgroup)
> >                             ("PHONE" . ?p)
> >                             ("WAITING" . ?w)
> >                             ("HOME" . ?H)
> >                             ("CANCELLED" . ?c)
> >                             ("NOTE" . ?n)
> >                             ("ORG" . ?O))))
> >
> > New when I try to add a new tag with the key press "C-c C-q TAB" from a
> > heading, I get following backtrace.
> >
> > Debugger entered--Lisp error: (wrong-type-argument stringp :endgroup)
> 
> I get the same error but I didn't notice since I rarely use C-c C-q TAB.
> 

I'm still not clear why the error happens with :endgroup and not with 
:startgroup.

There is also the question of which completion mechanism one is using: Noorul 
seems
to be using ido and that may have something to do with the order in which 
errors are
found. I am just using the default completing-read mechanism and I get a 
different
error (even with Noorul's fix, which leads me to believe that there are multiple
problems). I have not tried the iswitchb mechanism.

With completing-read, I do C-c C-q <TAB> and get a prompt in the minibuffer 
"Tag: "
with no options given. So I press another <TAB> and get the following error:

Debugger entered--Lisp error: (invalid-function (:startgroup "@errand" 
"@office" "@home" :endgroup "PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG"))
  signal(invalid-function ((:startgroup "@errand" "@office" "@home" :endgroup 
"PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG")))
  completion--some(#[257 "address@hidden" ["P" (:startgroup "@errand" "@office" 
"@home" :endgroup "PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG") nil 1 
completion-styles-alist] 6 "\n\n(fn STYLE)"] (basic partial-completion emacs22))
  completion-try-completion("P" (:startgroup "@errand" "@office" "@home" 
:endgroup "PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG") nil 1 (metadata))
  completion--do-completion()
  minibuffer-complete()
  call-interactively(minibuffer-complete nil nil)
  read-from-minibuffer("Tag: " nil (keymap (menu-bar keymap (minibuf "Minibuf" 
keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as 
possible") (space menu-item "Complete Word" minibuffer-complete-word :help 
"Complete at most one word") (63 menu-item "List Completions" 
minibuffer-completion-help :help "Display all possible completions") 
"Minibuf")) (27 keymap (118 . switch-to-completions)) (prior . 
switch-to-completions) (63 . minibuffer-completion-help) (32 . 
minibuffer-complete-word) (9 . minibuffer-complete) keymap (menu-bar keymap 
(minibuf "Minibuf" keymap (previous menu-item "Previous History Item" 
previous-history-element :help "Put previous minibuffer history element in the 
minibuffer") (next menu-item "Next History Item" next-history-element :help 
"Put next minibuffer history element in the minibuffer") (isearch-backward 
menu-item "Isearch History Backward" isearch-backward :help "Incrementally 
search minibuffer history backward") (isearch-for
 ward menu-item "Isearch History Forward" isearch-forward :help "Incrementally 
search minibuffer history forward") (return menu-item "Enter" exit-minibuffer 
:key-sequence "
" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" 
abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . 
exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . 
file-cache-minibuffer-complete) (9 . self-insert-command) (up . 
previous-history-element) (prior . previous-history-element) (down . 
next-history-element) (next . next-history-element) (27 keymap (114 . 
previous-matching-history-element) (115 . next-matching-history-element) (112 . 
previous-history-element) (110 . next-history-element))) nil nil nil nil)
  completing-read-default("Tag: " (:startgroup "@errand" "@office" "@home" 
:endgroup "PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG") nil nil nil nil 
nil nil)
  completing-read("Tag: " (:startgroup "@errand" "@office" "@home" :endgroup 
"PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG") nil nil nil nil nil nil)
  apply(completing-read ("Tag: " (:startgroup "@errand" "@office" "@home" 
:endgroup "PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG")))
  org-icompleting-read("Tag: " (:startgroup "@errand" "@office" "@home" 
:endgroup "PHONE" "WAITING" "HOME" "CANCELLED" "NOTE" "ORG"))
  byte-code("\304\305\306\307\206



reply via email to

[Prev in Thread] Current Thread [Next in Thread]