From mboxrd@z Thu Jan  1 00:00:00 1970
From: Mike McLean <mike.mclean@pobox.com>
Subject: Re: Bug: Tag Completion Not Prompting for all tags
Date: Thu, 29 Mar 2012 20:43:31 -0400
Message-ID: <C9B656FB-9839-4909-8897-78B17D71B2E9@pobox.com>
References: <6A1FEA98-38A0-48C5-88C3-DEE9401C38B5@pobox.com>
	<87pqbyqqr4.fsf@gnu.org>
Mime-Version: 1.0 (Apple Message framework v1257)
Content-Type: multipart/alternative;
	boundary="Apple-Mail=_36991653-9E25-4527-A35F-22F05E7A79DC"
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:47787)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mike.mclean@pobox.com>) id 1SDPy8-0001pP-TU
	for emacs-orgmode@gnu.org; Thu, 29 Mar 2012 20:45:40 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <mike.mclean@pobox.com>) id 1SDPy0-00050y-L2
	for emacs-orgmode@gnu.org; Thu, 29 Mar 2012 20:45:32 -0400
In-Reply-To: <87pqbyqqr4.fsf@gnu.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Bastien <bzg@gnu.org>
Cc: emacs-orgmode@gnu.org


--Apple-Mail=_36991653-9E25-4527-A35F-22F05E7A79DC
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=windows-1252

Bastien

I can verify that this has fixed the problem with tag completion not =
prompting for all tags. I see that commit =
647396464d563634b980127673cf61769663407e has added a wrapper (append =
that combines buffer-tags with (mapcar 'car table).

This has, however, exposed a new bug and conflict with =
org-completion-use-ido that I can minimally reproduce below.

1 Steps to Reproduce:

1.1 Start Emacs clean

/Applications/Emacs.app/Contents/MacOS/Emacs -Q
1.1.1 Note: Emacs Version

M-x emacs-version <RET>
GNU Emacs 24.0.94.1 (x86_64-apple-darwin, NS apple-appkit-1038.36) of =
2012-03-27 on bob.porkrind.org
1.2 Clone Git HEAD Org-Mode (to get the new commit)

$ git clone git://orgmode.org/org-mode.git
1.3 Load Cloned version of org-mode

Evaluate the following Lisp in *scratch*

(require 'ido)
(ido-mode t)

(setq load-path (cons "~/tmp/new-new-new/org-mode/lisp" load-path))
(setq load-path (cons "~/tmp/new-new-new/org-mode/contrib/lisp" =
load-path))
(require 'org-install)
(setq org-completion-use-ido t)
(setq org-tag-alist (quote (
                            ("tag_a" . ?a)
                            ("tag_b" . ?b)
                            )))
1.4 Open the following org-mode file

* Header 1
** Header 1.1
* Header 2                                                               =
       :Personal:
1.4.1 Note: Org-Version

M-x org-version <RET>
release_7.8.06-180-g22bfd
Org-mode version 7.8.06 (release_7.8.06.180.g22bfd)
1.5 Point should be on the first asterisk for =93Header 1=94

1.6 Type C-c C-q to bring up Tag selection

The expected result is the fast tag selection window-split; this works

1.7 Type <TAB> to enter free tag selection

The expected result is that the Minibuffer prompts with Tag:; the result =
is an error:

mapcar: Wrong type argument: listp, "tag_a"
1.8 Execute M-x toggle-debug-on-error

1.9 Point should be on the first asterisk for =93Header 1=94

1.10 Type C-c C-q to bring up Tag selection

The expected result is the fast tag selection window-split; this works

1.11 Type <TAB> to enter free tag selection

The expected result is that the Minibuffer prompts with Tag:; the result =
is an error:

Debugger entered--Lisp error: (wrong-type-argument listp "tag_a")
  car("tag_a")
  mapcar(car (("Personal") "tag_a" "tag_b" "Personal"))
  (if (consp (car (nth 1 args))) (mapcar (quote car) (nth 1 args)) (nth =
1 args))
  (apply (quote ido-completing-read) (concat (car args)) (if (consp (car =
(nth 1 args))) (mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr =
args))
  (let ((ido-enter-matching-directory nil)) (apply (quote =
ido-completing-read) (concat (car args)) (if (consp (car (nth 1 args))) =
(mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr args)))
  (if (and org-completion-use-ido (fboundp (quote ido-completing-read)) =
(boundp (quote ido-mode)) ido-mode (listp (second args))) (let =
((ido-enter-matching-directory nil)) (apply (quote ido-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args))) (if (and =
org-completion-use-iswitchb (boundp (quote iswitchb-mode)) iswitchb-mode =
(listp (second args))) (apply (quote org-iswitchb-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args)) (apply (quote completing-read) =
args)))
  (if (and (boundp (quote partial-completion-mode)) =
partial-completion-mode (fboundp (quote partial-completion-mode))) =
(unwind-protect (progn (partial-completion-mode -1) (if (and =
org-completion-use-ido (fboundp (quote ido-completing-read)) (boundp =
(quote ido-mode)) ido-mode (listp (second args))) (let =
((ido-enter-matching-directory nil)) (apply (quote ido-completing-read) =
(concat (car args)) (if (consp ...) (mapcar ... ...) (nth 1 args)) (cddr =
args))) (if (and org-completion-use-iswitchb (boundp (quote =
iswitchb-mode)) iswitchb-mode (listp (second args))) (apply (quote =
org-iswitchb-completing-read) (concat (car args)) (if (consp ...) =
(mapcar ... ...) (nth 1 args)) (cddr args)) (apply (quote =
completing-read) args)))) (partial-completion-mode 1)) (if (and =
org-completion-use-ido (fboundp (quote ido-completing-read)) (boundp =
(quote ido-mode)) ido-mode (listp (second args))) (let =
((ido-enter-matching-directory nil)) (apply (quote ido-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args))) (if (and =
org-completion-use-iswitchb (boundp (quote iswitchb-mode)) iswitchb-mode =
(listp (second args))) (apply (quote org-iswitchb-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args)) (apply (quote completing-read) =
args))))
  (org-without-partial-completion (if (and org-completion-use-ido =
(fboundp (quote ido-completing-read)) (boundp (quote ido-mode)) ido-mode =
(listp (second args))) (let ((ido-enter-matching-directory nil)) (apply =
(quote ido-completing-read) (concat (car args)) (if (consp (car (nth 1 =
args))) (mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr args))) =
(if (and org-completion-use-iswitchb (boundp (quote iswitchb-mode)) =
iswitchb-mode (listp (second args))) (apply (quote =
org-iswitchb-completing-read) (concat (car args)) (if (consp (car (nth 1 =
args))) (mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr args)) =
(apply (quote completing-read) args))))
  org-icompleting-read("Tag: " (("Personal") "tag_a" "tag_b" =
"Personal"))
  (setq tg (org-icompleting-read "Tag: " (append (or buffer-tags =
(with-current-buffer buf (org-get-buffer-tags))) (mapcar (quote car) =
table))))
  (condition-case nil (setq tg (org-icompleting-read "Tag: " (append (or =
buffer-tags (with-current-buffer buf (org-get-buffer-tags))) (mapcar =
(quote car) table)))) (quit (setq tg "")))
  (cond ((=3D c 13) (throw (quote exit) t)) ((=3D c 33) (setq groups =
(not groups)) (goto-char (point-min)) (while (re-search-forward "[{}]" =
nil t) (replace-match " "))) ((=3D c 3) (if (not expert) =
(org-fast-tag-show-exit (setq exit-after-next (not exit-after-next))) =
(setq expert nil) (delete-other-windows) (set-window-buffer =
(split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not =
(rassoc c ntable)))) (org-detach-overlay org-tags-overlay) (setq =
quit-flag t)) ((=3D c 32) (setq current nil) (if exit-after-next (setq =
exit-after-next (quote now)))) ((=3D c 9) (condition-case nil (setq tg =
(org-icompleting-read "Tag: " (append (or buffer-tags =
(with-current-buffer buf ...)) (mapcar (quote car) table)))) (quit (setq =
tg ""))) (when (string-match "\\S-" tg) (add-to-list (quote buffer-tags) =
(list tg)) (if (member tg current) (setq current (delete tg current)) =
(push tg current))) (if exit-after-next (setq exit-after-next (quote =
now)))) ((setq e (rassoc c todo-table) tg (car e)) (with-current-buffer =
buf (save-excursion (org-todo tg))) (if exit-after-next (setq =
exit-after-next (quote now)))) ((setq e (rassoc c ntable) tg (car e)) =
(if (member tg current) (setq current (delete tg current)) (loop for g =
in groups do (if (member tg g) (mapc (lambda (x) (setq current ...)) =
g))) (push tg current)) (if exit-after-next (setq exit-after-next (quote =
now)))))
  (while t (message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free =
[!] %sgroups%s" (if (not groups) "no " "") (if expert " [C-c]:window" =
(if exit-after-next " [C-c]:single" " [C-c]:multi"))) (setq c (let =
((inhibit-quit t)) (read-char-exclusive))) (setq =
org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote exit) t)) =
((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) (while =
(re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) (if =
(not expert) (org-fast-tag-show-exit (setq exit-after-next (not =
exit-after-next))) (setq expert nil) (delete-other-windows) =
(set-window-buffer (split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not =
(rassoc c ntable)))) (org-detach-overlay org-tags-overlay) (setq =
quit-flag t)) ((=3D c 32) (setq current nil) (if exit-after-next (setq =
exit-after-next (quote now)))) ((=3D c 9) (condition-case nil (setq tg =
(org-icompleting-read "Tag: " (append (or buffer-tags ...) (mapcar ... =
table)))) (quit (setq tg ""))) (when (string-match "\\S-" tg) =
(add-to-list (quote buffer-tags) (list tg)) (if (member tg current) =
(setq current (delete tg current)) (push tg current))) (if =
exit-after-next (setq exit-after-next (quote now)))) ((setq e (rassoc c =
todo-table) tg (car e)) (with-current-buffer buf (save-excursion =
(org-todo tg))) (if exit-after-next (setq exit-after-next (quote now)))) =
((setq e (rassoc c ntable) tg (car e)) (if (member tg current) (setq =
current (delete tg current)) (loop for g in groups do (if (member tg g) =
(mapc (lambda ... ...) g))) (push tg current)) (if exit-after-next (setq =
exit-after-next (quote now))))) (setq current (sort current (lambda (a =
b) (assoc b (cdr (memq (assoc a ntable) ntable)))))) (if (eq =
exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ((member tg current) c-face) =
((member tg inherited) i-face) (t (get-text-property (match-beginning 1) =
(quote face))))))) (goto-char (point-min)))
  (catch (quote exit) (while t (message "[a-z..]:Toggle [SPC]:clear =
[RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no " "") (if =
expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit (setq exit-after-next (not =
exit-after-next))) (setq expert nil) (delete-other-windows) =
(set-window-buffer (split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not =
(rassoc c ntable)))) (org-detach-overlay org-tags-overlay) (setq =
quit-flag t)) ((=3D c 32) (setq current nil) (if exit-after-next (setq =
exit-after-next (quote now)))) ((=3D c 9) (condition-case nil (setq tg =
(org-icompleting-read "Tag: " (append ... ...))) (quit (setq tg ""))) =
(when (string-match "\\S-" tg) (add-to-list (quote buffer-tags) (list =
tg)) (if (member tg current) (setq current (delete tg current)) (push tg =
current))) (if exit-after-next (setq exit-after-next (quote now)))) =
((setq e (rassoc c todo-table) tg (car e)) (with-current-buffer buf =
(save-excursion (org-todo tg))) (if exit-after-next (setq =
exit-after-next (quote now)))) ((setq e (rassoc c ntable) tg (car e)) =
(if (member tg current) (setq current (delete tg current)) (loop for g =
in groups do (if (member tg g) (mapc ... g))) (push tg current)) (if =
exit-after-next (setq exit-after-next (quote now))))) (setq current =
(sort current (lambda (a b) (assoc b (cdr (memq ... ntable)))))) (if (eq =
exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ((member tg current) c-face) =
((member tg inherited) i-face) (t (get-text-property ... ...)))))) =
(goto-char (point-min))))
  (setq rtn (catch (quote exit) (while t (message "[a-z..]:Toggle =
[SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no =
" "") (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit (setq exit-after-next ...)) =
(setq expert nil) (delete-other-windows) (set-window-buffer =
(split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not ...))) =
(org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c 32) =
(setq current nil) (if exit-after-next (setq exit-after-next (quote =
now)))) ((=3D c 9) (condition-case nil (setq tg (org-icompleting-read =
"Tag: " ...)) (quit (setq tg ""))) (when (string-match "\\S-" tg) =
(add-to-list (quote buffer-tags) (list tg)) (if (member tg current) =
(setq current ...) (push tg current))) (if exit-after-next (setq =
exit-after-next (quote now)))) ((setq e (rassoc c todo-table) tg (car =
e)) (with-current-buffer buf (save-excursion (org-todo tg))) (if =
exit-after-next (setq exit-after-next (quote now)))) ((setq e (rassoc c =
ntable) tg (car e)) (if (member tg current) (setq current (delete tg =
current)) (loop for g in groups do (if ... ...)) (push tg current)) (if =
exit-after-next (setq exit-after-next (quote now))))) (setq current =
(sort current (lambda (a b) (assoc b (cdr ...))))) (if (eq =
exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond (... c-face) (... i-face) (t =
...))))) (goto-char (point-min)))))
  (progn (if expert (set-buffer (get-buffer-create " *Org tags*")) =
(delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " (cdr e)) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " (cdr e)) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D =
cnt 0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal (car =
tbl) (quote ...)) (insert "\n") (setq tbl (cdr tbl))))) (t (setq tg =
(copy-sequence (car e)) c2 nil) (if (cdr e) (setq c (cdr e)) (setq c1 =
(string-to-char (downcase ...))) (if (or (rassoc c1 ntable) (rassoc c1 =
table)) (while (or ... ...) (setq char ...)) (setq c2 c1)) (setq c (or =
c2 char))) (if ingroup (push tg (car groups))) (setq tg (org-add-props =
tg nil (quote face) (cond (... ...) (... c-face) (... i-face) (t nil)))) =
(if (and (=3D cnt 0) (not ingroup)) (insert "  ")) (insert "[" c "] " tg =
(make-string (- fwidth 4 (length tg)) 32)) (push (cons tg c) ntable) =
(when (=3D (setq cnt (1+ cnt)) ncol) (insert "\n") (if ingroup (insert " =
 ")) (setq cnt 0))))) (setq ntable (nreverse ntable)) (insert "\n") =
(goto-char (point-min)) (if (not expert) (org-fit-window-to-buffer)) =
(setq rtn (catch (quote exit) (while t (message "[a-z..]:Toggle =
[SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no =
" "") (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit ...) (setq expert nil) =
(delete-other-windows) (set-window-buffer ... " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and ... ...)) =
(org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c 32) =
(setq current nil) (if exit-after-next (setq exit-after-next ...))) ((=3D =
c 9) (condition-case nil (setq tg ...) (quit ...)) (when (string-match =
"\\S-" tg) (add-to-list ... ...) (if ... ... ...)) (if exit-after-next =
(setq exit-after-next ...))) ((setq e (rassoc c todo-table) tg (car e)) =
(with-current-buffer buf (save-excursion ...)) (if exit-after-next (setq =
exit-after-next ...))) ((setq e (rassoc c ntable) tg (car e)) (if =
(member tg current) (setq current ...) (loop for g in groups do ...) =
(push tg current)) (if exit-after-next (setq exit-after-next ...)))) =
(setq current (sort current (lambda (a b) (assoc b ...)))) (if (eq =
exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ... ... ...)))) (goto-char =
(point-min))))) (org-detach-overlay org-tags-overlay) (if rtn (mapconcat =
(quote identity) current ":") nil))
  (unwind-protect (progn (if expert (set-buffer (get-buffer-create " =
*Org tags*")) (delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " ...) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " ...) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D cnt =
0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal ... ...) =
(insert "\n") (setq tbl ...)))) (t (setq tg (copy-sequence (car e)) c2 =
nil) (if (cdr e) (setq c (cdr e)) (setq c1 (string-to-char ...)) (if (or =
... ...) (while ... ...) (setq c2 c1)) (setq c (or c2 char))) (if =
ingroup (push tg (car groups))) (setq tg (org-add-props tg nil (quote =
face) (cond ... ... ... ...))) (if (and (=3D cnt 0) (not ingroup)) =
(insert "  ")) (insert "[" c "] " tg (make-string (- fwidth 4 ...) 32)) =
(push (cons tg c) ntable) (when (=3D (setq cnt ...) ncol) (insert "\n") =
(if ingroup (insert "  ")) (setq cnt 0))))) (setq ntable (nreverse =
ntable)) (insert "\n") (goto-char (point-min)) (if (not expert) =
(org-fit-window-to-buffer)) (setq rtn (catch (quote exit) (while t =
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] =
%sgroups%s" (if (not groups) "no " "") (if expert " [C-c]:window" (if =
exit-after-next " [C-c]:single" " [C-c]:multi"))) (setq c (let (...) =
(read-char-exclusive))) (setq org-last-tag-selection-key c) (cond ((=3D =
c 13) (throw ... t)) ((=3D c 33) (setq groups ...) (goto-char ...) =
(while ... ...)) ((=3D c 3) (if ... ... ... ... ... ... ...)) ((or ... =
...) (org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c =
32) (setq current nil) (if exit-after-next ...)) ((=3D c 9) =
(condition-case nil ... ...) (when ... ... ...) (if exit-after-next =
...)) ((setq e ... tg ...) (with-current-buffer buf ...) (if =
exit-after-next ...)) ((setq e ... tg ...) (if ... ... ... ...) (if =
exit-after-next ...))) (setq current (sort current (lambda ... ...))) =
(if (eq exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list ... ...))) (goto-char (point-min))))) =
(org-detach-overlay org-tags-overlay) (if rtn (mapconcat (quote =
identity) current ":") nil)) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn =
(if expert (set-buffer (get-buffer-create " *Org tags*")) =
(delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not ...) (setq cnt 0) (insert "\n")) (insert (if =
... ... "") "{ ")) ((equal (car e) :endgroup) (setq ingroup nil cnt 0) =
(insert "}" (if ... ... "") "\n")) ((equal e (quote ...)) (when (not =
...) (setq cnt 0) (insert "\n") (setq e ...) (while ... ... ...))) (t =
(setq tg (copy-sequence ...) c2 nil) (if (cdr e) (setq c ...) (setq c1 =
...) (if ... ... ...) (setq c ...)) (if ingroup (push tg ...)) (setq tg =
(org-add-props tg nil ... ...)) (if (and ... ...) (insert "  ")) (insert =
"[" c "] " tg (make-string ... 32)) (push (cons tg c) ntable) (when (=3D =
... ncol) (insert "\n") (if ingroup ...) (setq cnt 0))))) (setq ntable =
(nreverse ntable)) (insert "\n") (goto-char (point-min)) (if (not =
expert) (org-fit-window-to-buffer)) (setq rtn (catch (quote exit) (while =
t (message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] =
%sgroups%s" (if ... "no " "") (if expert " [C-c]:window" ...)) (setq c =
(let ... ...)) (setq org-last-tag-selection-key c) (cond (... ...) (... =
... ... ...) (... ...) (... ... ...) (... ... ...) (... ... ... ...) =
(... ... ...) (... ... ...)) (setq current (sort current ...)) (if (eq =
exit-after-next ...) (throw ... t)) (goto-char (point-min)) =
(beginning-of-line 2) (delete-region (point) (point-at-eol)) =
(org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward ... nil t) (setq tg ...) (add-text-properties ... ... =
...)) (goto-char (point-min))))) (org-detach-overlay org-tags-overlay) =
(if rtn (mapconcat (quote identity) current ":") nil)) =
(set-window-configuration wconfig)))
  (save-window-excursion (if expert (set-buffer (get-buffer-create " =
*Org tags*")) (delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " (cdr e)) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " (cdr e)) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D =
cnt 0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal (car =
tbl) (quote ...)) (insert "\n") (setq tbl (cdr tbl))))) (t (setq tg =
(copy-sequence (car e)) c2 nil) (if (cdr e) (setq c (cdr e)) (setq c1 =
(string-to-char (downcase ...))) (if (or (rassoc c1 ntable) (rassoc c1 =
table)) (while (or ... ...) (setq char ...)) (setq c2 c1)) (setq c (or =
c2 char))) (if ingroup (push tg (car groups))) (setq tg (org-add-props =
tg nil (quote face) (cond (... ...) (... c-face) (... i-face) (t nil)))) =
(if (and (=3D cnt 0) (not ingroup)) (insert "  ")) (insert "[" c "] " tg =
(make-string (- fwidth 4 (length tg)) 32)) (push (cons tg c) ntable) =
(when (=3D (setq cnt (1+ cnt)) ncol) (insert "\n") (if ingroup (insert " =
 ")) (setq cnt 0))))) (setq ntable (nreverse ntable)) (insert "\n") =
(goto-char (point-min)) (if (not expert) (org-fit-window-to-buffer)) =
(setq rtn (catch (quote exit) (while t (message "[a-z..]:Toggle =
[SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no =
" "") (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit ...) (setq expert nil) =
(delete-other-windows) (set-window-buffer ... " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and ... ...)) =
(org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c 32) =
(setq current nil) (if exit-after-next (setq exit-after-next ...))) ((=3D =
c 9) (condition-case nil (setq tg ...) (quit ...)) (when (string-match =
"\\S-" tg) (add-to-list ... ...) (if ... ... ...)) (if exit-after-next =
(setq exit-after-next ...))) ((setq e (rassoc c todo-table) tg (car e)) =
(with-current-buffer buf (save-excursion ...)) (if exit-after-next (setq =
exit-after-next ...))) ((setq e (rassoc c ntable) tg (car e)) (if =
(member tg current) (setq current ...) (loop for g in groups do ...) =
(push tg current)) (if exit-after-next (setq exit-after-next ...)))) =
(setq current (sort current (lambda (a b) (assoc b ...)))) (if (eq =
exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ... ... ...)))) (goto-char =
(point-min))))) (org-detach-overlay org-tags-overlay) (if rtn (mapconcat =
(quote identity) current ":") nil))
  (let* ((fulltable (append table todo-table)) (maxlen (apply (quote =
max) (mapcar (lambda (x) (if (stringp ...) (string-width ...) 0)) =
fulltable))) (buf (current-buffer)) (expert (eq =
org-fast-tag-selection-single-key (quote expert))) (buffer-tags nil) =
(fwidth (+ maxlen 3 1 3)) (ncol (/ (- (window-width) 4) fwidth)) (i-face =
(quote org-done)) (c-face (quote org-todo)) tg cnt e c char c1 c2 ntable =
tbl rtn ov-start ov-end ov-prefix (exit-after-next =
org-fast-tag-selection-single-key) (done-keywords org-done-keywords) =
groups ingroup) (save-excursion (beginning-of-line 1) (if (looking-at =
(org-re ".*[  ]\\(:[[:alnum:]_@#%:]+:\\)[   ]*$")) (setq ov-start =
(match-beginning 1) ov-end (match-end 1) ov-prefix "") (setq ov-start =
(1- (point-at-eol)) ov-end (1+ ov-start)) (skip-chars-forward "^\n
") (setq ov-prefix (concat (buffer-substring (1- (point)) (point)) (if =
(> (current-column) org-tags-column) " " (make-string (- org-tags-column =
...) 32)))))) (move-overlay org-tags-overlay ov-start ov-end) =
(save-window-excursion (if expert (set-buffer (get-buffer-create " *Org =
tags*")) (delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " ...) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " ...) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D cnt =
0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal ... ...) =
(insert "\n") (setq tbl ...)))) (t (setq tg (copy-sequence (car e)) c2 =
nil) (if (cdr e) (setq c (cdr e)) (setq c1 (string-to-char ...)) (if (or =
... ...) (while ... ...) (setq c2 c1)) (setq c (or c2 char))) (if =
ingroup (push tg (car groups))) (setq tg (org-add-props tg nil (quote =
face) (cond ... ... ... ...))) (if (and (=3D cnt 0) (not ingroup)) =
(insert "  ")) (insert "[" c "] " tg (make-string (- fwidth 4 ...) 32)) =
(push (cons tg c) ntable) (when (=3D (setq cnt ...) ncol) (insert "\n") =
(if ingroup (insert "  ")) (setq cnt 0))))) (setq ntable (nreverse =
ntable)) (insert "\n") (goto-char (point-min)) (if (not expert) =
(org-fit-window-to-buffer)) (setq rtn (catch (quote exit) (while t =
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] =
%sgroups%s" (if (not groups) "no " "") (if expert " [C-c]:window" (if =
exit-after-next " [C-c]:single" " [C-c]:multi"))) (setq c (let (...) =
(read-char-exclusive))) (setq org-last-tag-selection-key c) (cond ((=3D =
c 13) (throw ... t)) ((=3D c 33) (setq groups ...) (goto-char ...) =
(while ... ...)) ((=3D c 3) (if ... ... ... ... ... ... ...)) ((or ... =
...) (org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c =
32) (setq current nil) (if exit-after-next ...)) ((=3D c 9) =
(condition-case nil ... ...) (when ... ... ...) (if exit-after-next =
...)) ((setq e ... tg ...) (with-current-buffer buf ...) (if =
exit-after-next ...)) ((setq e ... tg ...) (if ... ... ... ...) (if =
exit-after-next ...))) (setq current (sort current (lambda ... ...))) =
(if (eq exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list ... ...))) (goto-char (point-min))))) =
(org-detach-overlay org-tags-overlay) (if rtn (mapconcat (quote =
identity) current ":") nil)))
  org-fast-tag-selection(nil nil (("tag_a" . 97) ("tag_b" . 98) =
("Personal")) nil)
  (if (or (eq t org-use-fast-tag-selection) (and =
org-use-fast-tag-selection (delq nil (mapcar (quote cdr) table)))) =
(org-fast-tag-selection current-tags inherited-tags table (if =
org-fast-tag-selection-include-todo org-todo-key-alist)) (let =
((org-add-colon-after-tag-completion (< 1 (length table)))) (org-trim =
(org-icompleting-read "Tags: " (quote org-tags-completion-function) nil =
nil current (quote org-tags-history)))))
  (setq table (append org-tag-persistent-alist org-tag-alist =
(org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
(mapcar (quote cdr) table)))) (org-fast-tag-selection current-tags =
inherited-tags table (if org-fast-tag-selection-include-todo =
org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (< 1 =
(length table)))) (org-trim (org-icompleting-read "Tags: " (quote =
org-tags-completion-function) nil nil current (quote =
org-tags-history))))))
  (save-excursion (setq table (append org-tag-persistent-alist =
org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
(mapcar (quote cdr) table)))) (org-fast-tag-selection current-tags =
inherited-tags table (if org-fast-tag-selection-include-todo =
org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (< 1 =
(length table)))) (org-trim (org-icompleting-read "Tags: " (quote =
org-tags-completion-function) nil nil current (quote =
org-tags-history)))))))
  (if just-align (setq tags current) (save-excursion (setq table (append =
org-tag-persistent-alist org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
(mapcar ... table)))) (org-fast-tag-selection current-tags =
inherited-tags table (if org-fast-tag-selection-include-todo =
org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (< 1 =
...))) (org-trim (org-icompleting-read "Tags: " (quote =
org-tags-completion-function) nil nil current (quote =
org-tags-history))))))) (while (string-match "[-+&]+" tags) (setq tags =
(replace-match ":" t t tags))))
  (if arg (save-excursion (goto-char (point-min)) (let =
((buffer-invisibility-spec (org-inhibit-invisibility))) (while =
(re-search-forward re nil t) (org-set-tags nil t) (end-of-line 1))) =
(message "All tags realigned to column %d" org-tags-column)) (if =
just-align (setq tags current) (save-excursion (setq table (append =
org-tag-persistent-alist org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
...))) (org-fast-tag-selection current-tags inherited-tags table (if =
org-fast-tag-selection-include-todo org-todo-key-alist)) (let =
((org-add-colon-after-tag-completion ...)) (org-trim =
(org-icompleting-read "Tags: " ... nil nil current ...)))))) (while =
(string-match "[-+&]+" tags) (setq tags (replace-match ":" t t tags)))) =
(setq tags (replace-regexp-in-string "[,]" ":" tags)) (if =
org-tags-sort-function (setq tags (mapconcat (quote identity) (sort =
(org-split-string tags (org-re "[^[:alnum:]_@#%]+")) =
org-tags-sort-function) ":"))) (if (string-match "\\`[   ]*\\'" tags) =
(setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags =
":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) =
(beginning-of-line 1) (setq level (or (and (looking-at =
org-outline-regexp) (- (match-end 0) (point) 1)) 1)) (cond ((and (equal =
current "") (equal tags ""))) ((re-search-forward (concat "\\([  ]*" =
(regexp-quote current) "\\)[  ]*$") (point-at-eol) t) (if (equal tags =
"") (setq rpl "") (goto-char (match-beginning 0)) (setq c0 =
(current-column) di (if org-indent-mode (* (1- =
org-indent-indentation-per-level) (1- level)) 0) p0 (if (equal =
(char-before) 42) (1+ (point)) (point)) tc (+ org-tags-column (if (> =
org-tags-column 0) (- di) di)) c1 (max (1+ c0) (if (> tc 0) tc (- ... =
...))) rpl (concat (make-string (max 0 ...) 32) tags))) (replace-match =
rpl t t) (and (not (featurep (quote xemacs))) c0 indent-tabs-mode =
(tabify p0 (point))) tags) (t (error "Tags alignment failed"))) =
(org-move-to-column col) (unless just-align (run-hooks (quote =
org-after-tags-change-hook))))
  (let* ((re org-outline-regexp-bol) (current (unless arg =
(org-get-tags-string))) (col (current-column)) (org-setting-tags t) =
table current-tags inherited-tags tags p0 c0 c1 rpl di tc level) (if arg =
(save-excursion (goto-char (point-min)) (let ((buffer-invisibility-spec =
(org-inhibit-invisibility))) (while (re-search-forward re nil t) =
(org-set-tags nil t) (end-of-line 1))) (message "All tags realigned to =
column %d" org-tags-column)) (if just-align (setq tags current) =
(save-excursion (setq table (append org-tag-persistent-alist =
org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table ...))) org-last-tags-completion-table =
table current-tags (org-split-string current ":") inherited-tags =
(nreverse (nthcdr (length current-tags) (nreverse ...))) tags (if (or =
(eq t org-use-fast-tag-selection) (and org-use-fast-tag-selection ...)) =
(org-fast-tag-selection current-tags inherited-tags table (if =
org-fast-tag-selection-include-todo org-todo-key-alist)) (let (...) =
(org-trim ...))))) (while (string-match "[-+&]+" tags) (setq tags =
(replace-match ":" t t tags)))) (setq tags (replace-regexp-in-string =
"[,]" ":" tags)) (if org-tags-sort-function (setq tags (mapconcat (quote =
identity) (sort (org-split-string tags (org-re "[^[:alnum:]_@#%]+")) =
org-tags-sort-function) ":"))) (if (string-match "\\`[   ]*\\'" tags) =
(setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags =
":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) =
(beginning-of-line 1) (setq level (or (and (looking-at =
org-outline-regexp) (- (match-end 0) (point) 1)) 1)) (cond ((and (equal =
current "") (equal tags ""))) ((re-search-forward (concat "\\([  ]*" =
(regexp-quote current) "\\)[  ]*$") (point-at-eol) t) (if (equal tags =
"") (setq rpl "") (goto-char (match-beginning 0)) (setq c0 =
(current-column) di (if org-indent-mode (* ... ...) 0) p0 (if (equal ... =
42) (1+ ...) (point)) tc (+ org-tags-column (if ... ... di)) c1 (max (1+ =
c0) (if ... tc ...)) rpl (concat (make-string ... 32) tags))) =
(replace-match rpl t t) (and (not (featurep (quote xemacs))) c0 =
indent-tabs-mode (tabify p0 (point))) tags) (t (error "Tags alignment =
failed"))) (org-move-to-column col) (unless just-align (run-hooks (quote =
org-after-tags-change-hook)))))
  org-set-tags(nil nil)
  (if (or (org-at-heading-p) (and arg (org-before-first-heading-p))) =
(org-set-tags arg just-align) (save-excursion (org-back-to-heading t) =
(org-set-tags arg just-align)))
  org-set-tags-command(nil)
  call-interactively(org-set-tags-command nil nil)

On Mar 27, 2012, at 6:31 AM, Bastien wrote:

> Hi Mike,
>=20
> Mike McLean <mike.mclean@pobox.com> writes:
>=20
>> 8 Type tag_ followed by <TAB>
>>=20
>> The expected result is a completion list of tag_a and tag_b, this
>> does not work and the Minibuffer prompts [No match]
>=20
> Fixed.
>=20
>> Note that if I were to remove the single characters
>> for tag_a and tag_b completion works for those two but not for
>> the Personal tag from the file
>=20
> Fixed.
>=20
>> Shouldn't free tag entry always show all possible tags, regardless of
>> the setting of or use of fast tag completion?
>=20
> I think so -- thanks a lot for the detailed report.
>=20
> Best,
>=20
> --=20
> Bastien


--Apple-Mail=_36991653-9E25-4527-A35F-22F05E7A79DC
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
	charset=windows-1252

<html><head></head><body style=3D"word-wrap: break-word; =
-webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div =
id=3D"content" style=3D"font-family: Times, serif; font-size: 16px; =
"><p>Bastien</p><p>I can verify that this has fixed the problem with tag =
completion not prompting for all tags. I see that&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; ">commit =
647396464d563634b980127673cf61769663407e</code>&nbsp;has added a =
wrapper&nbsp;<code style=3D"font-family: courier, monospace; font-size: =
13px; ">(append</code>&nbsp;that combines&nbsp;<code style=3D"font-family:=
 courier, monospace; font-size: 13px; =
">buffer-tags</code>&nbsp;with&nbsp;<code style=3D"font-family: courier, =
monospace; font-size: 13px; ">(mapcar 'car table)</code>.</p><p>This =
has, however, exposed a new bug and conflict with&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">org-completion-use-ido</code>&nbsp;that I can minimally reproduce =
below.</p><div id=3D"outline-container-1" class=3D"outline-2"><h2 =
id=3D"sec-1" style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
border-top-width: 2px; border-right-width: 2px; border-bottom-width: =
2px; border-left-width: 2px; border-top-style: solid; =
border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(222, 222, 222); =
border-right-color: rgb(222, 222, 222); border-bottom-color: rgb(222, =
222, 222); border-left-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 24px; "><span class=3D"section-number-2">1</span>&nbsp;Steps =
to Reproduce:</h2><div class=3D"outline-text-2" id=3D"text-1" =
style=3D"margin-left: 0.5em; "></div><div id=3D"outline-container-1-1" =
class=3D"outline-3" style=3D"margin-left: 1em; "><h3 id=3D"sec-1-1" =
style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
border-bottom-width: 2px; border-bottom-style: solid; =
border-bottom-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 22px; "><span class=3D"section-number-3">1.1</span>&nbsp;Start =
Emacs clean</h3><div class=3D"outline-text-3" id=3D"text-1-1" =
style=3D"margin-left: 1.5em; "><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; =
">/Applications/Emacs.app/Contents/MacOS/Emacs -Q
</pre></div><div id=3D"outline-container-1-1-1" class=3D"outline-4" =
style=3D"margin-left: 1.5em; "><h4 id=3D"sec-1-1-1" style=3D"color: =
rgb(95, 123, 147); margin-bottom: 0.5em; border-top-width: 1px; =
border-right-width: 1px; border-bottom-width: 1px; border-left-width: =
1px; border-top-style: solid; border-right-style: solid; =
border-bottom-style: solid; border-left-style: solid; border-top-color: =
rgb(222, 222, 222); border-right-color: rgb(222, 222, 222); =
border-bottom-color: rgb(222, 222, 222); border-left-color: rgb(222, =
222, 222); padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 20px; "><span =
class=3D"section-number-4">1.1.1</span>&nbsp;Note: Emacs =
Version</h4><div class=3D"outline-text-4" id=3D"text-1-1-1" =
style=3D"margin-left: 2em; "><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">M-x emacs-version =
&lt;RET&gt;
GNU Emacs 24.0.94.1 (x86_64-apple-darwin, NS apple-appkit-1038.36) of =
2012-03-27 on <a href=3D"http://bob.porkrind.org">bob.porkrind.org</a>
</pre></div></div></div><div id=3D"outline-container-1-2" =
class=3D"outline-3" style=3D"margin-left: 1em; "><h3 id=3D"sec-1-2" =
style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
border-bottom-width: 2px; border-bottom-style: solid; =
border-bottom-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 22px; "><span class=3D"section-number-3">1.2</span>&nbsp;Clone =
Git HEAD Org-Mode (to get the new commit)</h3><div =
class=3D"outline-text-3" id=3D"text-1-2" style=3D"margin-left: 1.5em; =
"><pre class=3D"example" style=3D"border-top-width: 1pt; =
border-right-width: 1pt; border-bottom-width: 1pt; border-left-width: =
1pt; border-top-style: solid; border-right-style: solid; =
border-bottom-style: solid; border-left-style: solid; border-top-color: =
rgb(174, 189, 204); border-right-color: rgb(174, 189, 204); =
border-bottom-color: rgb(174, 189, 204); border-left-color: rgb(174, =
189, 204); background-color: rgb(243, 245, 247); padding-top: 5pt; =
padding-right: 5pt; padding-bottom: 5pt; padding-left: 5pt; font-family: =
courier, monospace; font-size: 14px; overflow-x: auto; overflow-y: auto; =
">$ git clone <a =
href=3D"git://orgmode.org/org-mode.git">git://orgmode.org/org-mode.git</a>=

</pre></div></div><div id=3D"outline-container-1-3" class=3D"outline-3" =
style=3D"margin-left: 1em; "><h3 id=3D"sec-1-3" style=3D"color: rgb(95, =
123, 147); margin-bottom: 0.5em; border-bottom-width: 2px; =
border-bottom-style: solid; border-bottom-color: rgb(222, 222, 222); =
padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 22px; "><span =
class=3D"section-number-3">1.3</span>&nbsp;Load Cloned version of =
org-mode</h3><div class=3D"outline-text-3" id=3D"text-1-3" =
style=3D"margin-left: 1.5em; "><p>Evaluate the following Lisp =
in&nbsp;<code style=3D"font-family: courier, monospace; font-size: 13px; =
">*scratch*</code></p><pre class=3D"src src-emacs-lisp" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">(<span =
style=3D"color: rgb(240, 223, 175); font-weight: bold; ">require</span> =
'<span style=3D"color: rgb(191, 235, 191); ">ido</span>)
(ido-mode t)

(setq load-path (cons <span style=3D"color: rgb(204, 147, 147); =
">"~/tmp/new-new-new/org-mode/lisp"</span> load-path))
(setq load-path (cons <span style=3D"color: rgb(204, 147, 147); =
">"~/tmp/new-new-new/org-mode/contrib/lisp"</span> load-path))
(<span style=3D"color: rgb(240, 223, 175); font-weight: bold; =
">require</span> '<span style=3D"color: rgb(191, 235, 191); =
">org-install</span>)
(setq org-completion-use-ido t)
(setq org-tag-alist (quote (
                            (<span style=3D"color: rgb(204, 147, 147); =
">"tag_a"</span> . ?a)
                            (<span style=3D"color: rgb(204, 147, 147); =
">"tag_b"</span> . ?b)
                            )))
</pre></div></div><div id=3D"outline-container-1-4" class=3D"outline-3" =
style=3D"margin-left: 1em; "><h3 id=3D"sec-1-4" style=3D"color: rgb(95, =
123, 147); margin-bottom: 0.5em; border-bottom-width: 2px; =
border-bottom-style: solid; border-bottom-color: rgb(222, 222, 222); =
padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 22px; "><span =
class=3D"section-number-3">1.4</span>&nbsp;Open the following org-mode =
file</h3><div class=3D"outline-text-3" id=3D"text-1-4" =
style=3D"margin-left: 1.5em; "><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">* Header 1
** Header 1.1
* Header 2                                                               =
       :Personal:
</pre></div><div id=3D"outline-container-1-4-1" class=3D"outline-4" =
style=3D"margin-left: 1.5em; "><h4 id=3D"sec-1-4-1" style=3D"color: =
rgb(95, 123, 147); margin-bottom: 0.5em; border-top-width: 1px; =
border-right-width: 1px; border-bottom-width: 1px; border-left-width: =
1px; border-top-style: solid; border-right-style: solid; =
border-bottom-style: solid; border-left-style: solid; border-top-color: =
rgb(222, 222, 222); border-right-color: rgb(222, 222, 222); =
border-bottom-color: rgb(222, 222, 222); border-left-color: rgb(222, =
222, 222); padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 20px; "><span =
class=3D"section-number-4">1.4.1</span>&nbsp;Note: Org-Version</h4><div =
class=3D"outline-text-4" id=3D"text-1-4-1" style=3D"margin-left: 2em; =
"><pre class=3D"example" style=3D"border-top-width: 1pt; =
border-right-width: 1pt; border-bottom-width: 1pt; border-left-width: =
1pt; border-top-style: solid; border-right-style: solid; =
border-bottom-style: solid; border-left-style: solid; border-top-color: =
rgb(174, 189, 204); border-right-color: rgb(174, 189, 204); =
border-bottom-color: rgb(174, 189, 204); border-left-color: rgb(174, =
189, 204); background-color: rgb(243, 245, 247); padding-top: 5pt; =
padding-right: 5pt; padding-bottom: 5pt; padding-left: 5pt; font-family: =
courier, monospace; font-size: 14px; overflow-x: auto; overflow-y: auto; =
">M-x org-version &lt;RET&gt;
release_7.8.06-180-g22bfd
Org-mode version 7.8.06 (release_7.8.06.180.g22bfd)
</pre></div></div></div><div id=3D"outline-container-1-5" =
class=3D"outline-3" style=3D"margin-left: 1em; "><h3 id=3D"sec-1-5" =
style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
border-bottom-width: 2px; border-bottom-style: solid; =
border-bottom-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 22px; "><span class=3D"section-number-3">1.5</span>&nbsp;Point =
should be on the first asterisk for =93Header 1=94</h3><div =
class=3D"outline-text-3" id=3D"text-1-5" style=3D"margin-left: 1.5em; =
"></div></div><div id=3D"outline-container-1-6" class=3D"outline-3" =
style=3D"margin-left: 1em; "><h3 id=3D"sec-1-6" style=3D"color: rgb(95, =
123, 147); margin-bottom: 0.5em; border-bottom-width: 2px; =
border-bottom-style: solid; border-bottom-color: rgb(222, 222, 222); =
padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 22px; "><span =
class=3D"section-number-3">1.6</span>&nbsp;Type&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 18px; ">C-c =
C-q</code>&nbsp;to bring up Tag selection</h3><div =
class=3D"outline-text-3" id=3D"text-1-6" style=3D"margin-left: 1.5em; =
"><p>The expected result is the fast tag selection window-split; this =
works</p></div></div><div id=3D"outline-container-1-7" class=3D"outline-3"=
 style=3D"margin-left: 1em; "><h3 id=3D"sec-1-7" style=3D"color: rgb(95, =
123, 147); margin-bottom: 0.5em; border-bottom-width: 2px; =
border-bottom-style: solid; border-bottom-color: rgb(222, 222, 222); =
padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 22px; "><span =
class=3D"section-number-3">1.7</span>&nbsp;Type&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 18px; =
">&lt;TAB&gt;</code>&nbsp;to enter free tag selection</h3><div =
class=3D"outline-text-3" id=3D"text-1-7" style=3D"margin-left: 1.5em; =
"><p>The expected result is that the Minibuffer prompts with&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">Tag:</code>; the result is an error:</p><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">mapcar: Wrong =
type argument: listp, "tag_a"
</pre></div></div><div id=3D"outline-container-1-8" class=3D"outline-3" =
style=3D"margin-left: 1em; "><h3 id=3D"sec-1-8" style=3D"color: rgb(95, =
123, 147); margin-bottom: 0.5em; border-bottom-width: 2px; =
border-bottom-style: solid; border-bottom-color: rgb(222, 222, 222); =
padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 22px; "><span =
class=3D"section-number-3">1.8</span>&nbsp;Execute&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 18px; ">M-x =
toggle-debug-on-error</code></h3><div class=3D"outline-text-3" =
id=3D"text-1-8" style=3D"margin-left: 1.5em; "></div></div><div =
id=3D"outline-container-1-9" class=3D"outline-3" style=3D"margin-left: =
1em; "><h3 id=3D"sec-1-9" style=3D"color: rgb(95, 123, 147); =
margin-bottom: 0.5em; border-bottom-width: 2px; border-bottom-style: =
solid; border-bottom-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 22px; "><span class=3D"section-number-3">1.9</span>&nbsp;Point =
should be on the first asterisk for =93Header 1=94</h3><div =
class=3D"outline-text-3" id=3D"text-1-9" style=3D"margin-left: 1.5em; =
"></div></div><div id=3D"outline-container-1-10" class=3D"outline-3" =
style=3D"margin-left: 1em; "><h3 id=3D"sec-1-10" style=3D"color: rgb(95, =
123, 147); margin-bottom: 0.5em; border-bottom-width: 2px; =
border-bottom-style: solid; border-bottom-color: rgb(222, 222, 222); =
padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 22px; "><span =
class=3D"section-number-3">1.10</span>&nbsp;Type&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 18px; ">C-c =
C-q</code>&nbsp;to bring up Tag selection</h3><div =
class=3D"outline-text-3" id=3D"text-1-10" style=3D"margin-left: 1.5em; =
"><p>The expected result is the fast tag selection window-split; this =
works</p></div></div><div id=3D"outline-container-1-11" =
class=3D"outline-3" style=3D"margin-left: 1em; "><h3 id=3D"sec-1-11" =
style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
border-bottom-width: 2px; border-bottom-style: solid; =
border-bottom-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 22px; "><span =
class=3D"section-number-3">1.11</span>&nbsp;Type&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 18px; =
">&lt;TAB&gt;</code>&nbsp;to enter free tag selection</h3><div =
class=3D"outline-text-3" id=3D"text-1-11" style=3D"margin-left: 1.5em; =
"><p>The expected result is that the Minibuffer prompts with&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">Tag:</code>; the result is an error:</p><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">Debugger =
entered--Lisp error: (wrong-type-argument listp "tag_a")
  car("tag_a")
  mapcar(car (("Personal") "tag_a" "tag_b" "Personal"))
  (if (consp (car (nth 1 args))) (mapcar (quote car) (nth 1 args)) (nth =
1 args))
  (apply (quote ido-completing-read) (concat (car args)) (if (consp (car =
(nth 1 args))) (mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr =
args))
  (let ((ido-enter-matching-directory nil)) (apply (quote =
ido-completing-read) (concat (car args)) (if (consp (car (nth 1 args))) =
(mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr args)))
  (if (and org-completion-use-ido (fboundp (quote ido-completing-read)) =
(boundp (quote ido-mode)) ido-mode (listp (second args))) (let =
((ido-enter-matching-directory nil)) (apply (quote ido-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args))) (if (and =
org-completion-use-iswitchb (boundp (quote iswitchb-mode)) iswitchb-mode =
(listp (second args))) (apply (quote org-iswitchb-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args)) (apply (quote completing-read) =
args)))
  (if (and (boundp (quote partial-completion-mode)) =
partial-completion-mode (fboundp (quote partial-completion-mode))) =
(unwind-protect (progn (partial-completion-mode -1) (if (and =
org-completion-use-ido (fboundp (quote ido-completing-read)) (boundp =
(quote ido-mode)) ido-mode (listp (second args))) (let =
((ido-enter-matching-directory nil)) (apply (quote ido-completing-read) =
(concat (car args)) (if (consp ...) (mapcar ... ...) (nth 1 args)) (cddr =
args))) (if (and org-completion-use-iswitchb (boundp (quote =
iswitchb-mode)) iswitchb-mode (listp (second args))) (apply (quote =
org-iswitchb-completing-read) (concat (car args)) (if (consp ...) =
(mapcar ... ...) (nth 1 args)) (cddr args)) (apply (quote =
completing-read) args)))) (partial-completion-mode 1)) (if (and =
org-completion-use-ido (fboundp (quote ido-completing-read)) (boundp =
(quote ido-mode)) ido-mode (listp (second args))) (let =
((ido-enter-matching-directory nil)) (apply (quote ido-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args))) (if (and =
org-completion-use-iswitchb (boundp (quote iswitchb-mode)) iswitchb-mode =
(listp (second args))) (apply (quote org-iswitchb-completing-read) =
(concat (car args)) (if (consp (car (nth 1 args))) (mapcar (quote car) =
(nth 1 args)) (nth 1 args)) (cddr args)) (apply (quote completing-read) =
args))))
  (org-without-partial-completion (if (and org-completion-use-ido =
(fboundp (quote ido-completing-read)) (boundp (quote ido-mode)) ido-mode =
(listp (second args))) (let ((ido-enter-matching-directory nil)) (apply =
(quote ido-completing-read) (concat (car args)) (if (consp (car (nth 1 =
args))) (mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr args))) =
(if (and org-completion-use-iswitchb (boundp (quote iswitchb-mode)) =
iswitchb-mode (listp (second args))) (apply (quote =
org-iswitchb-completing-read) (concat (car args)) (if (consp (car (nth 1 =
args))) (mapcar (quote car) (nth 1 args)) (nth 1 args)) (cddr args)) =
(apply (quote completing-read) args))))
  org-icompleting-read("Tag: " (("Personal") "tag_a" "tag_b" =
"Personal"))
  (setq tg (org-icompleting-read "Tag: " (append (or buffer-tags =
(with-current-buffer buf (org-get-buffer-tags))) (mapcar (quote car) =
table))))
  (condition-case nil (setq tg (org-icompleting-read "Tag: " (append (or =
buffer-tags (with-current-buffer buf (org-get-buffer-tags))) (mapcar =
(quote car) table)))) (quit (setq tg "")))
  (cond ((=3D c 13) (throw (quote exit) t)) ((=3D c 33) (setq groups =
(not groups)) (goto-char (point-min)) (while (re-search-forward "[{}]" =
nil t) (replace-match " "))) ((=3D c 3) (if (not expert) =
(org-fast-tag-show-exit (setq exit-after-next (not exit-after-next))) =
(setq expert nil) (delete-other-windows) (set-window-buffer =
(split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not =
(rassoc c ntable)))) (org-detach-overlay org-tags-overlay) (setq =
quit-flag t)) ((=3D c 32) (setq current nil) (if exit-after-next (setq =
exit-after-next (quote now)))) ((=3D c 9) (condition-case nil (setq tg =
(org-icompleting-read "Tag: " (append (or buffer-tags =
(with-current-buffer buf ...)) (mapcar (quote car) table)))) (quit (setq =
tg ""))) (when (string-match "<a href=3D"smb://S-">\\S-</a>" tg) =
(add-to-list (quote buffer-tags) (list tg)) (if (member tg current) =
(setq current (delete tg current)) (push tg current))) (if =
exit-after-next (setq exit-after-next (quote now)))) ((setq e (rassoc c =
todo-table) tg (car e)) (with-current-buffer buf (save-excursion =
(org-todo tg))) (if exit-after-next (setq exit-after-next (quote now)))) =
((setq e (rassoc c ntable) tg (car e)) (if (member tg current) (setq =
current (delete tg current)) (loop for g in groups do (if (member tg g) =
(mapc (lambda (x) (setq current ...)) g))) (push tg current)) (if =
exit-after-next (setq exit-after-next (quote now)))))
  (while t (message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free =
[!] %sgroups%s" (if (not groups) "no " "") (if expert " [C-c]:window" =
(if exit-after-next " [C-c]:single" " [C-c]:multi"))) (setq c (let =
((inhibit-quit t)) (read-char-exclusive))) (setq =
org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote exit) t)) =
((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) (while =
(re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) (if =
(not expert) (org-fast-tag-show-exit (setq exit-after-next (not =
exit-after-next))) (setq expert nil) (delete-other-windows) =
(set-window-buffer (split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not =
(rassoc c ntable)))) (org-detach-overlay org-tags-overlay) (setq =
quit-flag t)) ((=3D c 32) (setq current nil) (if exit-after-next (setq =
exit-after-next (quote now)))) ((=3D c 9) (condition-case nil (setq tg =
(org-icompleting-read "Tag: " (append (or buffer-tags ...) (mapcar ... =
table)))) (quit (setq tg ""))) (when (string-match "<a =
href=3D"smb://S-">\\S-</a>" tg) (add-to-list (quote buffer-tags) (list =
tg)) (if (member tg current) (setq current (delete tg current)) (push tg =
current))) (if exit-after-next (setq exit-after-next (quote now)))) =
((setq e (rassoc c todo-table) tg (car e)) (with-current-buffer buf =
(save-excursion (org-todo tg))) (if exit-after-next (setq =
exit-after-next (quote now)))) ((setq e (rassoc c ntable) tg (car e)) =
(if (member tg current) (setq current (delete tg current)) (loop for g =
in groups do (if (member tg g) (mapc (lambda ... ...) g))) (push tg =
current)) (if exit-after-next (setq exit-after-next (quote now))))) =
(setq current (sort current (lambda (a b) (assoc b (cdr (memq (assoc a =
ntable) ntable)))))) (if (eq exit-after-next (quote now)) (throw (quote =
exit) t)) (goto-char (point-min)) (beginning-of-line 2) (delete-region =
(point) (point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ((member tg current) c-face) =
((member tg inherited) i-face) (t (get-text-property (match-beginning 1) =
(quote face))))))) (goto-char (point-min)))
  (catch (quote exit) (while t (message "[a-z..]:Toggle [SPC]:clear =
[RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no " "") (if =
expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit (setq exit-after-next (not =
exit-after-next))) (setq expert nil) (delete-other-windows) =
(set-window-buffer (split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not =
(rassoc c ntable)))) (org-detach-overlay org-tags-overlay) (setq =
quit-flag t)) ((=3D c 32) (setq current nil) (if exit-after-next (setq =
exit-after-next (quote now)))) ((=3D c 9) (condition-case nil (setq tg =
(org-icompleting-read "Tag: " (append ... ...))) (quit (setq tg ""))) =
(when (string-match "<a href=3D"smb://S-">\\S-</a>" tg) (add-to-list =
(quote buffer-tags) (list tg)) (if (member tg current) (setq current =
(delete tg current)) (push tg current))) (if exit-after-next (setq =
exit-after-next (quote now)))) ((setq e (rassoc c todo-table) tg (car =
e)) (with-current-buffer buf (save-excursion (org-todo tg))) (if =
exit-after-next (setq exit-after-next (quote now)))) ((setq e (rassoc c =
ntable) tg (car e)) (if (member tg current) (setq current (delete tg =
current)) (loop for g in groups do (if (member tg g) (mapc ... g))) =
(push tg current)) (if exit-after-next (setq exit-after-next (quote =
now))))) (setq current (sort current (lambda (a b) (assoc b (cdr (memq =
... ntable)))))) (if (eq exit-after-next (quote now)) (throw (quote =
exit) t)) (goto-char (point-min)) (beginning-of-line 2) (delete-region =
(point) (point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ((member tg current) c-face) =
((member tg inherited) i-face) (t (get-text-property ... ...)))))) =
(goto-char (point-min))))
  (setq rtn (catch (quote exit) (while t (message "[a-z..]:Toggle =
[SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no =
" "") (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit (setq exit-after-next ...)) =
(setq expert nil) (delete-other-windows) (set-window-buffer =
(split-window-vertically) " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and (=3D c 113) (not ...))) =
(org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c 32) =
(setq current nil) (if exit-after-next (setq exit-after-next (quote =
now)))) ((=3D c 9) (condition-case nil (setq tg (org-icompleting-read =
"Tag: " ...)) (quit (setq tg ""))) (when (string-match "<a =
href=3D"smb://S-">\\S-</a>" tg) (add-to-list (quote buffer-tags) (list =
tg)) (if (member tg current) (setq current ...) (push tg current))) (if =
exit-after-next (setq exit-after-next (quote now)))) ((setq e (rassoc c =
todo-table) tg (car e)) (with-current-buffer buf (save-excursion =
(org-todo tg))) (if exit-after-next (setq exit-after-next (quote now)))) =
((setq e (rassoc c ntable) tg (car e)) (if (member tg current) (setq =
current (delete tg current)) (loop for g in groups do (if ... ...)) =
(push tg current)) (if exit-after-next (setq exit-after-next (quote =
now))))) (setq current (sort current (lambda (a b) (assoc b (cdr =
...))))) (if (eq exit-after-next (quote now)) (throw (quote exit) t)) =
(goto-char (point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond (... c-face) (... i-face) (t =
...))))) (goto-char (point-min)))))
  (progn (if expert (set-buffer (get-buffer-create " *Org tags*")) =
(delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " (cdr e)) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " (cdr e)) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D =
cnt 0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal (car =
tbl) (quote ...)) (insert "\n") (setq tbl (cdr tbl))))) (t (setq tg =
(copy-sequence (car e)) c2 nil) (if (cdr e) (setq c (cdr e)) (setq c1 =
(string-to-char (downcase ...))) (if (or (rassoc c1 ntable) (rassoc c1 =
table)) (while (or ... ...) (setq char ...)) (setq c2 c1)) (setq c (or =
c2 char))) (if ingroup (push tg (car groups))) (setq tg (org-add-props =
tg nil (quote face) (cond (... ...) (... c-face) (... i-face) (t nil)))) =
(if (and (=3D cnt 0) (not ingroup)) (insert "  ")) (insert "[" c "] " tg =
(make-string (- fwidth 4 (length tg)) 32)) (push (cons tg c) ntable) =
(when (=3D (setq cnt (1+ cnt)) ncol) (insert "\n") (if ingroup (insert " =
 ")) (setq cnt 0))))) (setq ntable (nreverse ntable)) (insert "\n") =
(goto-char (point-min)) (if (not expert) (org-fit-window-to-buffer)) =
(setq rtn (catch (quote exit) (while t (message "[a-z..]:Toggle =
[SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no =
" "") (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit ...) (setq expert nil) =
(delete-other-windows) (set-window-buffer ... " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and ... ...)) =
(org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c 32) =
(setq current nil) (if exit-after-next (setq exit-after-next ...))) ((=3D =
c 9) (condition-case nil (setq tg ...) (quit ...)) (when (string-match =
"<a href=3D"smb://S-">\\S-</a>" tg) (add-to-list ... ...) (if ... ... =
...)) (if exit-after-next (setq exit-after-next ...))) ((setq e (rassoc =
c todo-table) tg (car e)) (with-current-buffer buf (save-excursion ...)) =
(if exit-after-next (setq exit-after-next ...))) ((setq e (rassoc c =
ntable) tg (car e)) (if (member tg current) (setq current ...) (loop for =
g in groups do ...) (push tg current)) (if exit-after-next (setq =
exit-after-next ...)))) (setq current (sort current (lambda (a b) (assoc =
b ...)))) (if (eq exit-after-next (quote now)) (throw (quote exit) t)) =
(goto-char (point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ... ... ...)))) (goto-char =
(point-min))))) (org-detach-overlay org-tags-overlay) (if rtn (mapconcat =
(quote identity) current ":") nil))
  (unwind-protect (progn (if expert (set-buffer (get-buffer-create " =
*Org tags*")) (delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " ...) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " ...) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D cnt =
0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal ... ...) =
(insert "\n") (setq tbl ...)))) (t (setq tg (copy-sequence (car e)) c2 =
nil) (if (cdr e) (setq c (cdr e)) (setq c1 (string-to-char ...)) (if (or =
... ...) (while ... ...) (setq c2 c1)) (setq c (or c2 char))) (if =
ingroup (push tg (car groups))) (setq tg (org-add-props tg nil (quote =
face) (cond ... ... ... ...))) (if (and (=3D cnt 0) (not ingroup)) =
(insert "  ")) (insert "[" c "] " tg (make-string (- fwidth 4 ...) 32)) =
(push (cons tg c) ntable) (when (=3D (setq cnt ...) ncol) (insert "\n") =
(if ingroup (insert "  ")) (setq cnt 0))))) (setq ntable (nreverse =
ntable)) (insert "\n") (goto-char (point-min)) (if (not expert) =
(org-fit-window-to-buffer)) (setq rtn (catch (quote exit) (while t =
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] =
%sgroups%s" (if (not groups) "no " "") (if expert " [C-c]:window" (if =
exit-after-next " [C-c]:single" " [C-c]:multi"))) (setq c (let (...) =
(read-char-exclusive))) (setq org-last-tag-selection-key c) (cond ((=3D =
c 13) (throw ... t)) ((=3D c 33) (setq groups ...) (goto-char ...) =
(while ... ...)) ((=3D c 3) (if ... ... ... ... ... ... ...)) ((or ... =
...) (org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c =
32) (setq current nil) (if exit-after-next ...)) ((=3D c 9) =
(condition-case nil ... ...) (when ... ... ...) (if exit-after-next =
...)) ((setq e ... tg ...) (with-current-buffer buf ...) (if =
exit-after-next ...)) ((setq e ... tg ...) (if ... ... ... ...) (if =
exit-after-next ...))) (setq current (sort current (lambda ... ...))) =
(if (eq exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list ... ...))) (goto-char (point-min))))) =
(org-detach-overlay org-tags-overlay) (if rtn (mapconcat (quote =
identity) current ":") nil)) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn =
(if expert (set-buffer (get-buffer-create " *Org tags*")) =
(delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not ...) (setq cnt 0) (insert "\n")) (insert (if =
... ... "") "{ ")) ((equal (car e) :endgroup) (setq ingroup nil cnt 0) =
(insert "}" (if ... ... "") "\n")) ((equal e (quote ...)) (when (not =
...) (setq cnt 0) (insert "\n") (setq e ...) (while ... ... ...))) (t =
(setq tg (copy-sequence ...) c2 nil) (if (cdr e) (setq c ...) (setq c1 =
...) (if ... ... ...) (setq c ...)) (if ingroup (push tg ...)) (setq tg =
(org-add-props tg nil ... ...)) (if (and ... ...) (insert "  ")) (insert =
"[" c "] " tg (make-string ... 32)) (push (cons tg c) ntable) (when (=3D =
... ncol) (insert "\n") (if ingroup ...) (setq cnt 0))))) (setq ntable =
(nreverse ntable)) (insert "\n") (goto-char (point-min)) (if (not =
expert) (org-fit-window-to-buffer)) (setq rtn (catch (quote exit) (while =
t (message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] =
%sgroups%s" (if ... "no " "") (if expert " [C-c]:window" ...)) (setq c =
(let ... ...)) (setq org-last-tag-selection-key c) (cond (... ...) (... =
... ... ...) (... ...) (... ... ...) (... ... ...) (... ... ... ...) =
(... ... ...) (... ... ...)) (setq current (sort current ...)) (if (eq =
exit-after-next ...) (throw ... t)) (goto-char (point-min)) =
(beginning-of-line 2) (delete-region (point) (point-at-eol)) =
(org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward ... nil t) (setq tg ...) (add-text-properties ... ... =
...)) (goto-char (point-min))))) (org-detach-overlay org-tags-overlay) =
(if rtn (mapconcat (quote identity) current ":") nil)) =
(set-window-configuration wconfig)))
  (save-window-excursion (if expert (set-buffer (get-buffer-create " =
*Org tags*")) (delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " (cdr e)) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " (cdr e)) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D =
cnt 0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal (car =
tbl) (quote ...)) (insert "\n") (setq tbl (cdr tbl))))) (t (setq tg =
(copy-sequence (car e)) c2 nil) (if (cdr e) (setq c (cdr e)) (setq c1 =
(string-to-char (downcase ...))) (if (or (rassoc c1 ntable) (rassoc c1 =
table)) (while (or ... ...) (setq char ...)) (setq c2 c1)) (setq c (or =
c2 char))) (if ingroup (push tg (car groups))) (setq tg (org-add-props =
tg nil (quote face) (cond (... ...) (... c-face) (... i-face) (t nil)))) =
(if (and (=3D cnt 0) (not ingroup)) (insert "  ")) (insert "[" c "] " tg =
(make-string (- fwidth 4 (length tg)) 32)) (push (cons tg c) ntable) =
(when (=3D (setq cnt (1+ cnt)) ncol) (insert "\n") (if ingroup (insert " =
 ")) (setq cnt 0))))) (setq ntable (nreverse ntable)) (insert "\n") =
(goto-char (point-min)) (if (not expert) (org-fit-window-to-buffer)) =
(setq rtn (catch (quote exit) (while t (message "[a-z..]:Toggle =
[SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (if (not groups) "no =
" "") (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " =
[C-c]:multi"))) (setq c (let ((inhibit-quit t)) (read-char-exclusive))) =
(setq org-last-tag-selection-key c) (cond ((=3D c 13) (throw (quote =
exit) t)) ((=3D c 33) (setq groups (not groups)) (goto-char (point-min)) =
(while (re-search-forward "[{}]" nil t) (replace-match " "))) ((=3D c 3) =
(if (not expert) (org-fast-tag-show-exit ...) (setq expert nil) =
(delete-other-windows) (set-window-buffer ... " *Org tags*") =
(org-switch-to-buffer-other-window " *Org tags*") =
(org-fit-window-to-buffer))) ((or (=3D c 7) (and ... ...)) =
(org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c 32) =
(setq current nil) (if exit-after-next (setq exit-after-next ...))) ((=3D =
c 9) (condition-case nil (setq tg ...) (quit ...)) (when (string-match =
"<a href=3D"smb://S-">\\S-</a>" tg) (add-to-list ... ...) (if ... ... =
...)) (if exit-after-next (setq exit-after-next ...))) ((setq e (rassoc =
c todo-table) tg (car e)) (with-current-buffer buf (save-excursion ...)) =
(if exit-after-next (setq exit-after-next ...))) ((setq e (rassoc c =
ntable) tg (car e)) (if (member tg current) (setq current ...) (loop for =
g in groups do ...) (push tg current)) (if exit-after-next (setq =
exit-after-next ...)))) (setq current (sort current (lambda (a b) (assoc =
b ...)))) (if (eq exit-after-next (quote now)) (throw (quote exit) t)) =
(goto-char (point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list (quote face) (cond ... ... ...)))) (goto-char =
(point-min))))) (org-detach-overlay org-tags-overlay) (if rtn (mapconcat =
(quote identity) current ":") nil))
  (let* ((fulltable (append table todo-table)) (maxlen (apply (quote =
max) (mapcar (lambda (x) (if (stringp ...) (string-width ...) 0)) =
fulltable))) (buf (current-buffer)) (expert (eq =
org-fast-tag-selection-single-key (quote expert))) (buffer-tags nil) =
(fwidth (+ maxlen 3 1 3)) (ncol (/ (- (window-width) 4) fwidth)) (i-face =
(quote org-done)) (c-face (quote org-todo)) tg cnt e c char c1 c2 ntable =
tbl rtn ov-start ov-end ov-prefix (exit-after-next =
org-fast-tag-selection-single-key) (done-keywords org-done-keywords) =
groups ingroup) (save-excursion (beginning-of-line 1) (if (looking-at =
(org-re ".*[  ]\\(:[[:alnum:]_@#%:]+:\\)[   ]*$")) (setq ov-start =
(match-beginning 1) ov-end (match-end 1) ov-prefix "") (setq ov-start =
(1- (point-at-eol)) ov-end (1+ ov-start)) (skip-chars-forward "^\n
") (setq ov-prefix (concat (buffer-substring (1- (point)) (point)) (if =
(&gt; (current-column) org-tags-column) " " (make-string (- =
org-tags-column ...) 32)))))) (move-overlay org-tags-overlay ov-start =
ov-end) (save-window-excursion (if expert (set-buffer (get-buffer-create =
" *Org tags*")) (delete-other-windows) (split-window-vertically) =
(org-switch-to-buffer-other-window (get-buffer-create " *Org tags*"))) =
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) =
(org-fast-tag-insert "Inherited" inherited i-face "\n") =
(org-fast-tag-insert "Current" current c-face "\n\n") =
(org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay =
current ov-prefix) (setq tbl fulltable char 97 cnt 0) (while (setq e =
(pop tbl)) (cond ((equal (car e) :startgroup) (push (quote nil) groups) =
(setq ingroup t) (when (not (=3D cnt 0)) (setq cnt 0) (insert "\n")) =
(insert (if (cdr e) (format "%s: " ...) "") "{ ")) ((equal (car e) =
:endgroup) (setq ingroup nil cnt 0) (insert "}" (if (cdr e) (format " =
(%s) " ...) "") "\n")) ((equal e (quote (:newline))) (when (not (=3D cnt =
0)) (setq cnt 0) (insert "\n") (setq e (car tbl)) (while (equal ... ...) =
(insert "\n") (setq tbl ...)))) (t (setq tg (copy-sequence (car e)) c2 =
nil) (if (cdr e) (setq c (cdr e)) (setq c1 (string-to-char ...)) (if (or =
... ...) (while ... ...) (setq c2 c1)) (setq c (or c2 char))) (if =
ingroup (push tg (car groups))) (setq tg (org-add-props tg nil (quote =
face) (cond ... ... ... ...))) (if (and (=3D cnt 0) (not ingroup)) =
(insert "  ")) (insert "[" c "] " tg (make-string (- fwidth 4 ...) 32)) =
(push (cons tg c) ntable) (when (=3D (setq cnt ...) ncol) (insert "\n") =
(if ingroup (insert "  ")) (setq cnt 0))))) (setq ntable (nreverse =
ntable)) (insert "\n") (goto-char (point-min)) (if (not expert) =
(org-fit-window-to-buffer)) (setq rtn (catch (quote exit) (while t =
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] =
%sgroups%s" (if (not groups) "no " "") (if expert " [C-c]:window" (if =
exit-after-next " [C-c]:single" " [C-c]:multi"))) (setq c (let (...) =
(read-char-exclusive))) (setq org-last-tag-selection-key c) (cond ((=3D =
c 13) (throw ... t)) ((=3D c 33) (setq groups ...) (goto-char ...) =
(while ... ...)) ((=3D c 3) (if ... ... ... ... ... ... ...)) ((or ... =
...) (org-detach-overlay org-tags-overlay) (setq quit-flag t)) ((=3D c =
32) (setq current nil) (if exit-after-next ...)) ((=3D c 9) =
(condition-case nil ... ...) (when ... ... ...) (if exit-after-next =
...)) ((setq e ... tg ...) (with-current-buffer buf ...) (if =
exit-after-next ...)) ((setq e ... tg ...) (if ... ... ... ...) (if =
exit-after-next ...))) (setq current (sort current (lambda ... ...))) =
(if (eq exit-after-next (quote now)) (throw (quote exit) t)) (goto-char =
(point-min)) (beginning-of-line 2) (delete-region (point) =
(point-at-eol)) (org-fast-tag-insert "Current" current c-face) =
(org-set-current-tags-overlay current ov-prefix) (while =
(re-search-forward (org-re "\\[.\\] \\([[:alnum:]_@#%]+\\)") nil t) =
(setq tg (match-string 1)) (add-text-properties (match-beginning 1) =
(match-end 1) (list ... ...))) (goto-char (point-min))))) =
(org-detach-overlay org-tags-overlay) (if rtn (mapconcat (quote =
identity) current ":") nil)))
  org-fast-tag-selection(nil nil (("tag_a" . 97) ("tag_b" . 98) =
("Personal")) nil)
  (if (or (eq t org-use-fast-tag-selection) (and =
org-use-fast-tag-selection (delq nil (mapcar (quote cdr) table)))) =
(org-fast-tag-selection current-tags inherited-tags table (if =
org-fast-tag-selection-include-todo org-todo-key-alist)) (let =
((org-add-colon-after-tag-completion (&lt; 1 (length table)))) (org-trim =
(org-icompleting-read "Tags: " (quote org-tags-completion-function) nil =
nil current (quote org-tags-history)))))
  (setq table (append org-tag-persistent-alist org-tag-alist =
(org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
(mapcar (quote cdr) table)))) (org-fast-tag-selection current-tags =
inherited-tags table (if org-fast-tag-selection-include-todo =
org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (&lt; 1 =
(length table)))) (org-trim (org-icompleting-read "Tags: " (quote =
org-tags-completion-function) nil nil current (quote =
org-tags-history))))))
  (save-excursion (setq table (append org-tag-persistent-alist =
org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
(mapcar (quote cdr) table)))) (org-fast-tag-selection current-tags =
inherited-tags table (if org-fast-tag-selection-include-todo =
org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (&lt; 1 =
(length table)))) (org-trim (org-icompleting-read "Tags: " (quote =
org-tags-completion-function) nil nil current (quote =
org-tags-history)))))))
  (if just-align (setq tags current) (save-excursion (setq table (append =
org-tag-persistent-alist org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
(mapcar ... table)))) (org-fast-tag-selection current-tags =
inherited-tags table (if org-fast-tag-selection-include-todo =
org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (&lt; 1 =
...))) (org-trim (org-icompleting-read "Tags: " (quote =
org-tags-completion-function) nil nil current (quote =
org-tags-history))))))) (while (string-match "[-+&amp;]+" tags) (setq =
tags (replace-match ":" t t tags))))
  (if arg (save-excursion (goto-char (point-min)) (let =
((buffer-invisibility-spec (org-inhibit-invisibility))) (while =
(re-search-forward re nil t) (org-set-tags nil t) (end-of-line 1))) =
(message "All tags realigned to column %d" org-tags-column)) (if =
just-align (setq tags current) (save-excursion (setq table (append =
org-tag-persistent-alist org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table (org-agenda-files)))) =
org-last-tags-completion-table table current-tags (org-split-string =
current ":") inherited-tags (nreverse (nthcdr (length current-tags) =
(nreverse (org-get-tags-at)))) tags (if (or (eq t =
org-use-fast-tag-selection) (and org-use-fast-tag-selection (delq nil =
...))) (org-fast-tag-selection current-tags inherited-tags table (if =
org-fast-tag-selection-include-todo org-todo-key-alist)) (let =
((org-add-colon-after-tag-completion ...)) (org-trim =
(org-icompleting-read "Tags: " ... nil nil current ...)))))) (while =
(string-match "[-+&amp;]+" tags) (setq tags (replace-match ":" t t =
tags)))) (setq tags (replace-regexp-in-string "[,]" ":" tags)) (if =
org-tags-sort-function (setq tags (mapconcat (quote identity) (sort =
(org-split-string tags (org-re "[^[:alnum:]_@#%]+")) =
org-tags-sort-function) ":"))) (if (string-match "\\`[   ]*\\'" tags) =
(setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags =
":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) =
(beginning-of-line 1) (setq level (or (and (looking-at =
org-outline-regexp) (- (match-end 0) (point) 1)) 1)) (cond ((and (equal =
current "") (equal tags ""))) ((re-search-forward (concat "\\([  ]*" =
(regexp-quote current) "\\)[  ]*$") (point-at-eol) t) (if (equal tags =
"") (setq rpl "") (goto-char (match-beginning 0)) (setq c0 =
(current-column) di (if org-indent-mode (* (1- =
org-indent-indentation-per-level) (1- level)) 0) p0 (if (equal =
(char-before) 42) (1+ (point)) (point)) tc (+ org-tags-column (if (&gt; =
org-tags-column 0) (- di) di)) c1 (max (1+ c0) (if (&gt; tc 0) tc (- ... =
...))) rpl (concat (make-string (max 0 ...) 32) tags))) (replace-match =
rpl t t) (and (not (featurep (quote xemacs))) c0 indent-tabs-mode =
(tabify p0 (point))) tags) (t (error "Tags alignment failed"))) =
(org-move-to-column col) (unless just-align (run-hooks (quote =
org-after-tags-change-hook))))
  (let* ((re org-outline-regexp-bol) (current (unless arg =
(org-get-tags-string))) (col (current-column)) (org-setting-tags t) =
table current-tags inherited-tags tags p0 c0 c1 rpl di tc level) (if arg =
(save-excursion (goto-char (point-min)) (let ((buffer-invisibility-spec =
(org-inhibit-invisibility))) (while (re-search-forward re nil t) =
(org-set-tags nil t) (end-of-line 1))) (message "All tags realigned to =
column %d" org-tags-column)) (if just-align (setq tags current) =
(save-excursion (setq table (append org-tag-persistent-alist =
org-tag-alist (org-get-buffer-tags) (and =
org-complete-tags-always-offer-all-agenda-tags =
(org-global-tags-completion-table ...))) org-last-tags-completion-table =
table current-tags (org-split-string current ":") inherited-tags =
(nreverse (nthcdr (length current-tags) (nreverse ...))) tags (if (or =
(eq t org-use-fast-tag-selection) (and org-use-fast-tag-selection ...)) =
(org-fast-tag-selection current-tags inherited-tags table (if =
org-fast-tag-selection-include-todo org-todo-key-alist)) (let (...) =
(org-trim ...))))) (while (string-match "[-+&amp;]+" tags) (setq tags =
(replace-match ":" t t tags)))) (setq tags (replace-regexp-in-string =
"[,]" ":" tags)) (if org-tags-sort-function (setq tags (mapconcat (quote =
identity) (sort (org-split-string tags (org-re "[^[:alnum:]_@#%]+")) =
org-tags-sort-function) ":"))) (if (string-match "\\`[   ]*\\'" tags) =
(setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags =
":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) =
(beginning-of-line 1) (setq level (or (and (looking-at =
org-outline-regexp) (- (match-end 0) (point) 1)) 1)) (cond ((and (equal =
current "") (equal tags ""))) ((re-search-forward (concat "\\([  ]*" =
(regexp-quote current) "\\)[  ]*$") (point-at-eol) t) (if (equal tags =
"") (setq rpl "") (goto-char (match-beginning 0)) (setq c0 =
(current-column) di (if org-indent-mode (* ... ...) 0) p0 (if (equal ... =
42) (1+ ...) (point)) tc (+ org-tags-column (if ... ... di)) c1 (max (1+ =
c0) (if ... tc ...)) rpl (concat (make-string ... 32) tags))) =
(replace-match rpl t t) (and (not (featurep (quote xemacs))) c0 =
indent-tabs-mode (tabify p0 (point))) tags) (t (error "Tags alignment =
failed"))) (org-move-to-column col) (unless just-align (run-hooks (quote =
org-after-tags-change-hook)))))
  org-set-tags(nil nil)
  (if (or (org-at-heading-p) (and arg (org-before-first-heading-p))) =
(org-set-tags arg just-align) (save-excursion (org-back-to-heading t) =
(org-set-tags arg just-align)))
  org-set-tags-command(nil)
  call-interactively(org-set-tags-command nil nil)
</pre><div><br></div></div></div></div></div><div><div>On Mar 27, 2012, =
at 6:31 AM, Bastien wrote:</div><br =
class=3D"Apple-interchange-newline"><blockquote type=3D"cite"><div>Hi =
Mike,<br><br>Mike McLean &lt;<a =
href=3D"mailto:mike.mclean@pobox.com">mike.mclean@pobox.com</a>&gt; =
writes:<br><br><blockquote type=3D"cite">8 Type tag_ followed by =
&lt;TAB&gt;<br></blockquote><blockquote =
type=3D"cite"><br></blockquote><blockquote type=3D"cite">The expected =
result is a completion list of tag_a and tag_b, =
this<br></blockquote><blockquote type=3D"cite">does not work and the =
Minibuffer prompts [No =
match]<br></blockquote><br>Fixed.<br><br><blockquote type=3D"cite">Note =
that if I were to remove the single =
characters<br></blockquote><blockquote type=3D"cite">for tag_a and tag_b =
completion works for those two but not for<br></blockquote><blockquote =
type=3D"cite">the Personal tag from the =
file<br></blockquote><br>Fixed.<br><br><blockquote type=3D"cite">Shouldn't=
 free tag entry always show all possible tags, regardless =
of<br></blockquote><blockquote type=3D"cite">the setting of or use of =
fast tag completion?<br></blockquote><br>I think so -- thanks a lot for =
the detailed report.<br><br>Best,<br><br>-- <br> =
Bastien<br></div></blockquote></div><br></body></html>=

--Apple-Mail=_36991653-9E25-4527-A35F-22F05E7A79DC--