Re: [O] Agenda search C-c a s

[Alan L Tyree]

Nick Dokos writes:

> Alan L Tyree <address@hidden> wrote:
>
>> Since a recent ELPA update I get strange behavior when searching
>> agenda files.
>> 
>> If the word searched for is NOT in the agenda files, everything works OK.
>> 
>> If the word IS in the agenda files, I get a blank Org Agenda buffer
>> and a message: Wrong type argument: listp, t.
>> 
>> Is anyone else having this problem? If not where do I begin to fix it.
>> 
>
> Get a backtrace and post it here. See sec. 1.4, "Feedback", of the
> org manual to find out how to get a useful backtrace.
>
> Nick
Thanks, Nick. Here are the details.

Emacs version 24.2.1 on Debian Wheezy (with emacs24 from Sid)
Org org-plus-contrib-20130114

I started emacs with the min org file as explained in Section 1.4

C-U M-X org-reload

Loaded an agenda file addr.org and added to agenda

M-x agenda

s

Enter a search term in the minibuffer that I know is in addr.org

Obtain the following backtrace:

Debugger entered--Lisp error: (wrong-type-argument listp t)
  memq(todo t)
  (or (eq org-agenda-show-inherited-tags (quote always)) (memq (quote todo) 
org-agenda-show-inherited-tags) (and (eq org-agenda-show-inherited-tags t) (or 
(eq org-agenda-use-tag-inheritance t) (memq (quote todo) 
org-agenda-use-tag-inheritance))))
  (setq marker (org-agenda-new-marker (point)) category (org-get-category) 
category-pos (get-text-property (point) (quote org-category-position)) 
inherited-tags (or (eq org-agenda-show-inherited-tags (quote always)) (memq 
(quote todo) org-agenda-show-inherited-tags) (and (eq 
org-agenda-show-inherited-tags t) (or (eq org-agenda-use-tag-inheritance t) 
(memq (quote todo) org-agenda-use-tag-inheritance)))) tags (org-get-tags-at nil 
(not inherited-tags)) txt (org-agenda-format-item "" 
(buffer-substring-no-properties beg1 (point-at-eol)) category tags t))
  (catch :skip (goto-char beg) (org-agenda-skip) (setq str 
(buffer-substring-no-properties (point-at-bol) (if hdl-only (point-at-eol) 
end))) (mapc (lambda (wr) (when (string-match wr str) (goto-char (1- end)) 
(throw :skip t))) regexps-) (mapc (lambda (wr) (unless (string-match wr str) 
(goto-char (1- end)) (throw :skip t))) (if todo-only (cons (concat "^*+[  ]+" 
org-not-done-regexp) regexps+) regexps+)) (goto-char beg) (setq marker 
(org-agenda-new-marker (point)) category (org-get-category) category-pos 
(get-text-property (point) (quote org-category-position)) inherited-tags (or 
(eq org-agenda-show-inherited-tags (quote always)) (memq (quote todo) 
org-agenda-show-inherited-tags) (and (eq org-agenda-show-inherited-tags t) (or 
(eq org-agenda-use-tag-inheritance t) (memq (quote todo) 
org-agenda-use-tag-inheritance)))) tags (org-get-tags-at nil (not 
inherited-tags)) txt (org-agenda-format-item "" (buffer-substring-no-properties 
beg1 (point-at-eol)) category tags t)) (org-add-props txt props (quote 
org-marker) marker (quote org-hd-marker) marker (quote org-todo-regexp) 
org-todo-regexp (quote org-complex-heading-regexp) org-complex-heading-regexp 
(quote priority) 1000 (quote org-category) category (quote 
org-category-position) category-pos (quote type) "search") (push txt ee) 
(goto-char (1- end)))
  (while (re-search-forward regexp nil t) (org-back-to-heading t) 
(skip-chars-forward "* ") (setq beg (point-at-bol) beg1 (point) end (progn 
(outline-next-heading) (point))) (catch :skip (goto-char beg) (org-agenda-skip) 
(setq str (buffer-substring-no-properties (point-at-bol) (if hdl-only 
(point-at-eol) end))) (mapc (lambda (wr) (when (string-match wr str) (goto-char 
(1- end)) (throw :skip t))) regexps-) (mapc (lambda (wr) (unless (string-match 
wr str) (goto-char (1- end)) (throw :skip t))) (if todo-only (cons (concat 
"^*+[      ]+" org-not-done-regexp) regexps+) regexps+)) (goto-char beg) (setq 
marker (org-agenda-new-marker (point)) category (org-get-category) category-pos 
(get-text-property (point) (quote org-category-position)) inherited-tags (or 
(eq org-agenda-show-inherited-tags (quote always)) (memq (quote todo) 
org-agenda-show-inherited-tags) (and (eq org-agenda-show-inherited-tags t) (or 
(eq org-agenda-use-tag-inheritance t) (memq (quote todo) 
org-agenda-use-tag-inheritance)))) tags (org-get-tags-at nil (not 
inherited-tags)) txt (org-agenda-format-item "" (buffer-substring-no-properties 
beg1 (point-at-eol)) category tags t)) (org-add-props txt props (quote 
org-marker) marker (quote org-hd-marker) marker (quote org-todo-regexp) 
org-todo-regexp (quote org-complex-heading-regexp) org-complex-heading-regexp 
(quote priority) 1000 (quote org-category) category (quote 
org-category-position) category-pos (quote type) "search") (push txt ee) 
(goto-char (1- end))))
  (save-restriction (if org-agenda-restrict (narrow-to-region 
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (goto-char 
(point-min)) (unless (or (org-at-heading-p) (outline-next-heading)) (throw 
(quote nextfile) t)) (goto-char (max (point-min) (1- (point)))) (while 
(re-search-forward regexp nil t) (org-back-to-heading t) (skip-chars-forward "* 
") (setq beg (point-at-bol) beg1 (point) end (progn (outline-next-heading) 
(point))) (catch :skip (goto-char beg) (org-agenda-skip) (setq str 
(buffer-substring-no-properties (point-at-bol) (if hdl-only (point-at-eol) 
end))) (mapc (lambda (wr) (when (string-match wr str) (goto-char (1- end)) 
(throw :skip t))) regexps-) (mapc (lambda (wr) (unless (string-match wr str) 
(goto-char (1- end)) (throw :skip t))) (if todo-only (cons (concat "^*+[        
]+" org-not-done-regexp) regexps+) regexps+)) (goto-char beg) (setq marker 
(org-agenda-new-marker (point)) category (org-get-category) category-pos 
(get-text-property (point) (quote org-category-position)) inherited-tags (or 
(eq org-agenda-show-inherited-tags (quote always)) (memq (quote todo) 
org-agenda-show-inherited-tags) (and (eq org-agenda-show-inherited-tags t) (or 
(eq org-agenda-use-tag-inheritance t) (memq ... 
org-agenda-use-tag-inheritance)))) tags (org-get-tags-at nil (not 
inherited-tags)) txt (org-agenda-format-item "" (buffer-substring-no-properties 
beg1 (point-at-eol)) category tags t)) (org-add-props txt props (quote 
org-marker) marker (quote org-hd-marker) marker (quote org-todo-regexp) 
org-todo-regexp (quote org-complex-heading-regexp) org-complex-heading-regexp 
(quote priority) 1000 (quote org-category) category (quote 
org-category-position) category-pos (quote type) "search") (push txt ee) 
(goto-char (1- end)))))
  (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region 
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (goto-char 
(point-min)) (unless (or (org-at-heading-p) (outline-next-heading)) (throw 
(quote nextfile) t)) (goto-char (max (point-min) (1- (point)))) (while 
(re-search-forward regexp nil t) (org-back-to-heading t) (skip-chars-forward "* 
") (setq beg (point-at-bol) beg1 (point) end (progn (outline-next-heading) 
(point))) (catch :skip (goto-char beg) (org-agenda-skip) (setq str 
(buffer-substring-no-properties (point-at-bol) (if hdl-only (point-at-eol) 
end))) (mapc (lambda (wr) (when (string-match wr str) (goto-char ...) (throw 
:skip t))) regexps-) (mapc (lambda (wr) (unless (string-match wr str) 
(goto-char ...) (throw :skip t))) (if todo-only (cons (concat "^*+[  ]+" 
org-not-done-regexp) regexps+) regexps+)) (goto-char beg) (setq marker 
(org-agenda-new-marker (point)) category (org-get-category) category-pos 
(get-text-property (point) (quote org-category-position)) inherited-tags (or 
(eq org-agenda-show-inherited-tags (quote always)) (memq (quote todo) 
org-agenda-show-inherited-tags) (and (eq org-agenda-show-inherited-tags t) (or 
... ...))) tags (org-get-tags-at nil (not inherited-tags)) txt 
(org-agenda-format-item "" (buffer-substring-no-properties beg1 (point-at-eol)) 
category tags t)) (org-add-props txt props (quote org-marker) marker (quote 
org-hd-marker) marker (quote org-todo-regexp) org-todo-regexp (quote 
org-complex-heading-regexp) org-complex-heading-regexp (quote priority) 1000 
(quote org-category) category (quote org-category-position) category-pos (quote 
type) "search") (push txt ee) (goto-char (1- end))))))
  (let ((case-fold-search t)) (save-excursion (save-restriction (if 
org-agenda-restrict (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (goto-char (point-min)) (unless (or 
(org-at-heading-p) (outline-next-heading)) (throw (quote nextfile) t)) 
(goto-char (max (point-min) (1- (point)))) (while (re-search-forward regexp nil 
t) (org-back-to-heading t) (skip-chars-forward "* ") (setq beg (point-at-bol) 
beg1 (point) end (progn (outline-next-heading) (point))) (catch :skip 
(goto-char beg) (org-agenda-skip) (setq str (buffer-substring-no-properties 
(point-at-bol) (if hdl-only ... end))) (mapc (lambda (wr) (when ... ... ...)) 
regexps-) (mapc (lambda (wr) (unless ... ... ...)) (if todo-only (cons ... 
regexps+) regexps+)) (goto-char beg) (setq marker (org-agenda-new-marker 
(point)) category (org-get-category) category-pos (get-text-property (point) 
(quote org-category-position)) inherited-tags (or (eq 
org-agenda-show-inherited-tags ...) (memq ... org-agenda-show-inherited-tags) 
(and ... ...)) tags (org-get-tags-at nil (not inherited-tags)) txt 
(org-agenda-format-item "" (buffer-substring-no-properties beg1 ...) category 
tags t)) (org-add-props txt props (quote org-marker) marker (quote 
org-hd-marker) marker (quote org-todo-regexp) org-todo-regexp (quote 
org-complex-heading-regexp) org-complex-heading-regexp (quote priority) 1000 
(quote org-category) category (quote org-category-position) category-pos (quote 
type) "search") (push txt ee) (goto-char (1- end)))))))
  (progn (set-syntax-table (org-search-syntax-table)) (unless (derived-mode-p 
(quote org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (let 
((case-fold-search t)) (save-excursion (save-restriction (if 
org-agenda-restrict (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (goto-char (point-min)) (unless (or 
(org-at-heading-p) (outline-next-heading)) (throw (quote nextfile) t)) 
(goto-char (max (point-min) (1- (point)))) (while (re-search-forward regexp nil 
t) (org-back-to-heading t) (skip-chars-forward "* ") (setq beg (point-at-bol) 
beg1 (point) end (progn (outline-next-heading) (point))) (catch :skip 
(goto-char beg) (org-agenda-skip) (setq str (buffer-substring-no-properties ... 
...)) (mapc (lambda ... ...) regexps-) (mapc (lambda ... ...) (if todo-only ... 
regexps+)) (goto-char beg) (setq marker (org-agenda-new-marker ...) category 
(org-get-category) category-pos (get-text-property ... ...) inherited-tags (or 
... ... ...) tags (org-get-tags-at nil ...) txt (org-agenda-format-item "" ... 
category tags t)) (org-add-props txt props (quote org-marker) marker (quote 
org-hd-marker) marker (quote org-todo-regexp) org-todo-regexp (quote 
org-complex-heading-regexp) org-complex-heading-regexp (quote priority) 1000 
(quote org-category) category (quote org-category-position) category-pos (quote 
type) "search") (push txt ee) (goto-char (1- end))))))))
  (unwind-protect (progn (set-syntax-table (org-search-syntax-table)) (unless 
(derived-mode-p (quote org-mode)) (error "Agenda file %s is not in `org-mode'" 
file)) (let ((case-fold-search t)) (save-excursion (save-restriction (if 
org-agenda-restrict (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (goto-char (point-min)) (unless (or 
(org-at-heading-p) (outline-next-heading)) (throw (quote nextfile) t)) 
(goto-char (max (point-min) (1- ...))) (while (re-search-forward regexp nil t) 
(org-back-to-heading t) (skip-chars-forward "* ") (setq beg (point-at-bol) beg1 
(point) end (progn ... ...)) (catch :skip (goto-char beg) (org-agenda-skip) 
(setq str ...) (mapc ... regexps-) (mapc ... ...) (goto-char beg) (setq marker 
... category ... category-pos ... inherited-tags ... tags ... txt ...) 
(org-add-props txt props ... marker ... marker ... org-todo-regexp ... 
org-complex-heading-regexp ... 1000 ... category ... category-pos ... "search") 
(push txt ee) (goto-char ...))))))) (save-current-buffer (set-buffer buffer) 
(set-syntax-table table)))
  (let ((table (syntax-table)) (buffer (current-buffer))) (unwind-protect 
(progn (set-syntax-table (org-search-syntax-table)) (unless (derived-mode-p 
(quote org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (let 
((case-fold-search t)) (save-excursion (save-restriction (if 
org-agenda-restrict (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (goto-char (point-min)) (unless (or ... ...) 
(throw ... t)) (goto-char (max ... ...)) (while (re-search-forward regexp nil 
t) (org-back-to-heading t) (skip-chars-forward "* ") (setq beg ... beg1 ... end 
...) (catch :skip ... ... ... ... ... ... ... ... ... ...)))))) 
(save-current-buffer (set-buffer buffer) (set-syntax-table table))))
  (with-syntax-table (org-search-syntax-table) (unless (derived-mode-p (quote 
org-mode)) (error "Agenda file %s is not in `org-mode'" file)) (let 
((case-fold-search t)) (save-excursion (save-restriction (if 
org-agenda-restrict (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (goto-char (point-min)) (unless (or 
(org-at-heading-p) (outline-next-heading)) (throw (quote nextfile) t)) 
(goto-char (max (point-min) (1- (point)))) (while (re-search-forward regexp nil 
t) (org-back-to-heading t) (skip-chars-forward "* ") (setq beg (point-at-bol) 
beg1 (point) end (progn (outline-next-heading) (point))) (catch :skip 
(goto-char beg) (org-agenda-skip) (setq str (buffer-substring-no-properties ... 
...)) (mapc (lambda ... ...) regexps-) (mapc (lambda ... ...) (if todo-only ... 
regexps+)) (goto-char beg) (setq marker (org-agenda-new-marker ...) category 
(org-get-category) category-pos (get-text-property ... ...) inherited-tags (or 
... ... ...) tags (org-get-tags-at nil ...) txt (org-agenda-format-item "" ... 
category tags t)) (org-add-props txt props (quote org-marker) marker (quote 
org-hd-marker) marker (quote org-todo-regexp) org-todo-regexp (quote 
org-complex-heading-regexp) org-complex-heading-regexp (quote priority) 1000 
(quote org-category) category (quote org-category-position) category-pos (quote 
type) "search") (push txt ee) (goto-char (1- end))))))))
  (save-current-buffer (set-buffer buffer) (with-syntax-table 
(org-search-syntax-table) (unless (derived-mode-p (quote org-mode)) (error 
"Agenda file %s is not in `org-mode'" file)) (let ((case-fold-search t)) 
(save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region 
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (goto-char 
(point-min)) (unless (or (org-at-heading-p) (outline-next-heading)) (throw 
(quote nextfile) t)) (goto-char (max (point-min) (1- ...))) (while 
(re-search-forward regexp nil t) (org-back-to-heading t) (skip-chars-forward "* 
") (setq beg (point-at-bol) beg1 (point) end (progn ... ...)) (catch :skip 
(goto-char beg) (org-agenda-skip) (setq str ...) (mapc ... regexps-) (mapc ... 
...) (goto-char beg) (setq marker ... category ... category-pos ... 
inherited-tags ... tags ... txt ...) (org-add-props txt props ... marker ... 
marker ... org-todo-regexp ... org-complex-heading-regexp ... 1000 ... category 
... category-pos ... "search") (push txt ee) (goto-char ...))))))))
  (with-current-buffer buffer (with-syntax-table (org-search-syntax-table) 
(unless (derived-mode-p (quote org-mode)) (error "Agenda file %s is not in 
`org-mode'" file)) (let ((case-fold-search t)) (save-excursion 
(save-restriction (if org-agenda-restrict (narrow-to-region 
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (goto-char 
(point-min)) (unless (or (org-at-heading-p) (outline-next-heading)) (throw 
(quote nextfile) t)) (goto-char (max (point-min) (1- ...))) (while 
(re-search-forward regexp nil t) (org-back-to-heading t) (skip-chars-forward "* 
") (setq beg (point-at-bol) beg1 (point) end (progn ... ...)) (catch :skip 
(goto-char beg) (org-agenda-skip) (setq str ...) (mapc ... regexps-) (mapc ... 
...) (goto-char beg) (setq marker ... category ... category-pos ... 
inherited-tags ... tags ... txt ...) (org-add-props txt props ... marker ... 
marker ... org-todo-regexp ... org-complex-heading-regexp ... 1000 ... category 
... category-pos ... "search") (push txt ee) (goto-char ...))))))))
  (catch (quote nextfile) (org-check-agenda-file file) (setq buffer (if 
(file-exists-p file) (org-get-agenda-file-buffer file) (error "No such file %s" 
file))) (if (not buffer) (setq rtn (list (format "ORG-AGENDA-ERROR: No such 
org-file %s" file)))) (with-current-buffer buffer (with-syntax-table 
(org-search-syntax-table) (unless (derived-mode-p (quote org-mode)) (error 
"Agenda file %s is not in `org-mode'" file)) (let ((case-fold-search t)) 
(save-excursion (save-restriction (if org-agenda-restrict (narrow-to-region 
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (goto-char 
(point-min)) (unless (or ... ...) (throw ... t)) (goto-char (max ... ...)) 
(while (re-search-forward regexp nil t) (org-back-to-heading t) 
(skip-chars-forward "* ") (setq beg ... beg1 ... end ...) (catch :skip ... ... 
... ... ... ... ... ... ... ...))))))))
  (while (setq file (pop files)) (setq ee nil) (catch (quote nextfile) 
(org-check-agenda-file file) (setq buffer (if (file-exists-p file) 
(org-get-agenda-file-buffer file) (error "No such file %s" file))) (if (not 
buffer) (setq rtn (list (format "ORG-AGENDA-ERROR: No such org-file %s" 
file)))) (with-current-buffer buffer (with-syntax-table 
(org-search-syntax-table) (unless (derived-mode-p (quote org-mode)) (error 
"Agenda file %s is not in `org-mode'" file)) (let ((case-fold-search t)) 
(save-excursion (save-restriction (if org-agenda-restrict ... ...) (goto-char 
...) (unless ... ...) (goto-char ...) (while ... ... ... ... ...))))))) (setq 
rtn (nreverse ee)) (setq rtnall (append rtnall rtn)))
  (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name (if 
(stringp string) (format "*Org Agenda(%s:%s)*" (or org-keys (or (and todo-only 
"S") "s")) string) (format "*Org Agenda(%s)*" (or (and todo-only "S") "s"))))) 
(org-agenda-prepare "SEARCH") (org-compile-prefix-format (quote search)) 
(org-set-sorting-strategy (quote search)) (setq org-agenda-redo-command (list 
(quote org-search-view) (if todo-only t nil) (list (quote if) (quote 
current-prefix-arg) nil string))) (setq org-agenda-query-string string) (if 
(equal (string-to-char string) 42) (setq hdl-only t words (substring string 1)) 
(setq words string)) (when (equal (string-to-char words) 33) (setq todo-only t 
words (substring words 1))) (when (equal (string-to-char words) 58) (setq 
full-words t words (substring words 1))) (if (or 
org-agenda-search-view-always-boolean (member (string-to-char words) (quote (45 
43 123)))) (setq boolean t)) (setq words (org-split-string words)) (let (www w) 
(while (setq w (pop words)) (while (and (string-match "\\\\\\'" w) words) (setq 
w (concat (substring w 0 -1) " " (pop words)))) (push w www)) (setq words 
(nreverse www) www nil) (while (setq w (pop words)) (when (and (string-match 
"\\`[-+]?{" w) (not (string-match "}\\'" w))) (while (and words (not 
(string-match "}\\'" ...))) (setq w (concat w " " (pop words)))) (setq w 
(concat w " " (pop words)))) (push w www)) (setq words (nreverse www))) (setq 
org-agenda-last-search-view-search-was-boolean boolean) (when boolean (let (wds 
w) (while (setq w (pop words)) (if (or (equal (substring w 0 1) "\"") (and (> 
... 1) (member ... ...) (equal ... "\""))) (while (and words (not ...)) (setq w 
(concat w " " ...)))) (and (string-match "\\`\\([-+]?\\)\"" w) (setq w 
(replace-match "\\1" nil nil w))) (and (equal (substring w -1) "\"") (setq w 
(substring w 0 -1))) (push w wds)) (setq words (nreverse wds)))) (if boolean 
(mapc (lambda (w) (setq c (string-to-char w)) (if (equal c 45) (setq neg t w 
(substring w 1)) (if (equal c 43) (setq neg nil w (substring w 1)) (setq neg 
nil))) (if (string-match "\\`{.*}\\'" w) (setq re (substring w 1 -1)) (if 
full-words (setq re (concat "\\<" ... "\\>")) (setq re (regexp-quote ...)))) 
(if neg (push re regexps-) (push re regexps+))) words) (push (mapconcat (lambda 
(w) (regexp-quote w)) words "\\s-+") regexps+)) (setq regexps+ (sort regexps+ 
(lambda (a b) (> (length a) (length b))))) (if (not regexps+) (setq regexp 
org-outline-regexp-bol) (setq regexp (pop regexps+)) (if hdl-only (setq regexp 
(concat org-outline-regexp-bol ".*?" regexp)))) (setq files (org-agenda-files 
nil (quote ifmode))) (when (eq (car org-agenda-text-search-extra-files) (quote 
agenda-archives)) (pop org-agenda-text-search-extra-files) (setq files 
(org-add-archive-files files))) (setq files (append files 
org-agenda-text-search-extra-files) rtnall nil) (while (setq file (pop files)) 
(setq ee nil) (catch (quote nextfile) (org-check-agenda-file file) (setq buffer 
(if (file-exists-p file) (org-get-agenda-file-buffer file) (error "No such file 
%s" file))) (if (not buffer) (setq rtn (list (format "ORG-AGENDA-ERROR: No such 
org-file %s" file)))) (with-current-buffer buffer (with-syntax-table 
(org-search-syntax-table) (unless (derived-mode-p (quote org-mode)) (error 
"Agenda file %s is not in `org-mode'" file)) (let ((case-fold-search t)) 
(save-excursion (save-restriction ... ... ... ... ...)))))) (setq rtn (nreverse 
ee)) (setq rtnall (append rtnall rtn))) (if org-agenda-overriding-header 
(insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote 
face) (quote org-agenda-structure)) "\n") (insert "Search words: ") 
(add-text-properties (point-min) (1- (point)) (list (quote face) (quote 
org-agenda-structure))) (setq pos (point)) (insert string "\n") 
(add-text-properties pos (1- (point)) (list (quote face) (quote org-warning))) 
(setq pos (point)) (unless org-agenda-multi (insert "Press `[', `]' to add/sub 
word, `{', `}' to add/sub regexp, `C-u r' to edit\n") (add-text-properties pos 
(1- (point)) (list (quote face) (quote org-agenda-structure))))) 
(org-agenda-mark-header-line (point-min)) (when rtnall (insert 
(org-agenda-finalize-entries rtnall) "\n")) (goto-char (point-min)) (or 
org-agenda-multi (org-agenda-fit-window-to-buffer)) (add-text-properties 
(point-min) (point-max) (\` (org-agenda-type search org-last-args ((\, 
todo-only) (\, string) (\, edit-at)) org-redo-cmd (\, org-agenda-redo-command) 
org-series-cmd (\, org-cmd)))) (org-agenda-finalize) (setq buffer-read-only t))
  (let* ((props (list (quote face) nil (quote done-face) (quote 
org-agenda-done) (quote org-not-done-regexp) org-not-done-regexp (quote 
org-todo-regexp) org-todo-regexp (quote org-complex-heading-regexp) 
org-complex-heading-regexp (quote mouse-face) (quote highlight) (quote 
help-echo) (format "mouse-2 or RET jump to location"))) (full-words 
org-agenda-search-view-force-full-words) (org-agenda-text-search-extra-files 
org-agenda-text-search-extra-files) regexp rtn rtnall files file pos 
inherited-tags marker category category-pos tags c neg re boolean ee txt beg 
end words regexps+ regexps- hdl-only buffer beg1 str) (unless (and (not 
edit-at) (stringp string) (string-match "\\S-" string)) (setq string 
(read-string (if org-agenda-search-view-always-boolean "[+-]Word/{Regexp} ...: 
" "Phrase or [+-]Word/{Regexp} ...: ") (cond ((integerp edit-at) (cons string 
edit-at)) (edit-at string)) (quote org-agenda-search-history)))) (catch (quote 
exit) (if org-agenda-sticky (setq org-agenda-buffer-name (if (stringp string) 
(format "*Org Agenda(%s:%s)*" (or org-keys (or ... "s")) string) (format "*Org 
Agenda(%s)*" (or (and todo-only "S") "s"))))) (org-agenda-prepare "SEARCH") 
(org-compile-prefix-format (quote search)) (org-set-sorting-strategy (quote 
search)) (setq org-agenda-redo-command (list (quote org-search-view) (if 
todo-only t nil) (list (quote if) (quote current-prefix-arg) nil string))) 
(setq org-agenda-query-string string) (if (equal (string-to-char string) 42) 
(setq hdl-only t words (substring string 1)) (setq words string)) (when (equal 
(string-to-char words) 33) (setq todo-only t words (substring words 1))) (when 
(equal (string-to-char words) 58) (setq full-words t words (substring words 
1))) (if (or org-agenda-search-view-always-boolean (member (string-to-char 
words) (quote (45 43 123)))) (setq boolean t)) (setq words (org-split-string 
words)) (let (www w) (while (setq w (pop words)) (while (and (string-match 
"\\\\\\'" w) words) (setq w (concat (substring w 0 -1) " " (pop words)))) (push 
w www)) (setq words (nreverse www) www nil) (while (setq w (pop words)) (when 
(and (string-match "\\`[-+]?{" w) (not (string-match "}\\'" w))) (while (and 
words (not ...)) (setq w (concat w " " ...))) (setq w (concat w " " (pop 
words)))) (push w www)) (setq words (nreverse www))) (setq 
org-agenda-last-search-view-search-was-boolean boolean) (when boolean (let (wds 
w) (while (setq w (pop words)) (if (or (equal ... "\"") (and ... ... ...)) 
(while (and words ...) (setq w ...))) (and (string-match "\\`\\([-+]?\\)\"" w) 
(setq w (replace-match "\\1" nil nil w))) (and (equal (substring w -1) "\"") 
(setq w (substring w 0 -1))) (push w wds)) (setq words (nreverse wds)))) (if 
boolean (mapc (lambda (w) (setq c (string-to-char w)) (if (equal c 45) (setq 
neg t w (substring w 1)) (if (equal c 43) (setq neg nil w ...) (setq neg nil))) 
(if (string-match "\\`{.*}\\'" w) (setq re (substring w 1 -1)) (if full-words 
(setq re ...) (setq re ...))) (if neg (push re regexps-) (push re regexps+))) 
words) (push (mapconcat (lambda (w) (regexp-quote w)) words "\\s-+") regexps+)) 
(setq regexps+ (sort regexps+ (lambda (a b) (> (length a) (length b))))) (if 
(not regexps+) (setq regexp org-outline-regexp-bol) (setq regexp (pop 
regexps+)) (if hdl-only (setq regexp (concat org-outline-regexp-bol ".*?" 
regexp)))) (setq files (org-agenda-files nil (quote ifmode))) (when (eq (car 
org-agenda-text-search-extra-files) (quote agenda-archives)) (pop 
org-agenda-text-search-extra-files) (setq files (org-add-archive-files files))) 
(setq files (append files org-agenda-text-search-extra-files) rtnall nil) 
(while (setq file (pop files)) (setq ee nil) (catch (quote nextfile) 
(org-check-agenda-file file) (setq buffer (if (file-exists-p file) 
(org-get-agenda-file-buffer file) (error "No such file %s" file))) (if (not 
buffer) (setq rtn (list (format "ORG-AGENDA-ERROR: No such org-file %s" 
file)))) (with-current-buffer buffer (with-syntax-table 
(org-search-syntax-table) (unless (derived-mode-p ...) (error "Agenda file %s 
is not in `org-mode'" file)) (let (...) (save-excursion ...))))) (setq rtn 
(nreverse ee)) (setq rtnall (append rtnall rtn))) (if 
org-agenda-overriding-header (insert (org-add-props (copy-sequence 
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) 
"\n") (insert "Search words: ") (add-text-properties (point-min) (1- (point)) 
(list (quote face) (quote org-agenda-structure))) (setq pos (point)) (insert 
string "\n") (add-text-properties pos (1- (point)) (list (quote face) (quote 
org-warning))) (setq pos (point)) (unless org-agenda-multi (insert "Press `[', 
`]' to add/sub word, `{', `}' to add/sub regexp, `C-u r' to edit\n") 
(add-text-properties pos (1- (point)) (list (quote face) (quote 
org-agenda-structure))))) (org-agenda-mark-header-line (point-min)) (when 
rtnall (insert (org-agenda-finalize-entries rtnall) "\n")) (goto-char 
(point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) 
(add-text-properties (point-min) (point-max) (\` (org-agenda-type search 
org-last-args ((\, todo-only) (\, string) (\, edit-at)) org-redo-cmd (\, 
org-agenda-redo-command) org-series-cmd (\, org-cmd)))) (org-agenda-finalize) 
(setq buffer-read-only t)))
  org-search-view(nil)
  call-interactively(org-search-view)
  (cond ((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or 
(symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 
entry) org-match (eval (nth 3 entry)) lprops (nth 4 entry)) (if 
org-agenda-sticky (setq org-agenda-buffer-name (or (and ... ...) (format "*Org 
Agenda(%s)*" org-keys)))) (put (quote org-agenda-redo-command) (quote 
org-lprops) lprops) (cond ((eq type (quote agenda)) (org-let lprops (quote 
...))) ((eq type (quote alltodo)) (org-let lprops (quote ...))) ((eq type 
(quote search)) (org-let lprops (quote ...))) ((eq type (quote stuck)) (org-let 
lprops (quote ...))) ((eq type (quote tags)) (org-let lprops (quote ...))) ((eq 
type (quote tags-todo)) (org-let lprops (quote ...))) ((eq type (quote todo)) 
(org-let lprops (quote ...))) ((eq type (quote tags-tree)) 
(org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type (quote 
todo-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type 
(quote occur-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) 
((functionp type) (org-let lprops (quote ...))) ((fboundp type) (org-let lprops 
(quote ...))) (t (error "Invalid custom agenda command type %s" type)))) 
(org-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal org-keys "C") 
(setq org-agenda-custom-commands org-agenda-custom-commands-orig) 
(customize-variable (quote org-agenda-custom-commands))) ((equal org-keys "a") 
(call-interactively (quote org-agenda-list))) ((equal org-keys "s") 
(call-interactively (quote org-search-view))) ((equal org-keys "S") 
(org-call-with-arg (quote org-search-view) (or arg (quote (4))))) ((equal 
org-keys "t") (call-interactively (quote org-todo-list))) ((equal org-keys "T") 
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal 
org-keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote 
post-command-hook) (lambda nil (unless (current-message) (let* ((m ...) (note 
...)) (when note (message ...))))) t t)) ((equal org-keys "L") (unless 
(derived-mode-p (quote org-mode)) (error "This is not an Org-mode file")) 
(unless restriction (put (quote org-agenda-files) (quote org-restrict) (list 
bfn)) (org-call-with-arg (quote org-timeline) arg))) ((equal org-keys "#") 
(call-interactively (quote org-agenda-list-stuck-projects))) ((equal org-keys 
"/") (call-interactively (quote org-occur-in-agenda-files))) ((equal org-keys 
"!") (customize-variable (quote org-stuck-projects))) (t (error "Invalid agenda 
key")))
  (let* ((prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name) 
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup)) 
(org-agenda-custom-commands-orig org-agenda-custom-commands) 
(org-agenda-custom-commands (delq nil (mapcar (lambda (x) (cond (... ... nil) 
(... x) (... ...) (t ...))) org-agenda-custom-commands))) 
(org-agenda-custom-commands (org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn 
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans) 
(unless org-agenda-overriding-restriction (unless (org-bound-and-true-p 
org-agenda-keep-restricted-file-list) (put (quote org-agenda-files) (quote 
org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker 
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put 
(quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote 
org-agenda-redo-command) (quote last-args) nil) (setq 
org-agenda-last-dispatch-buffer (current-buffer)) (unless org-keys (setq ans 
(org-agenda-get-restriction-and-command prefix-descriptions) org-keys (car ans) 
restriction (cdr ans))) (if org-agenda-sticky (setq org-agenda-buffer-name 
(format "*Org Agenda(%s)*" org-keys))) (when (and (not 
org-agenda-overriding-restriction) restriction) (put (quote org-agenda-files) 
(quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq 
org-agenda-restrict t) (move-marker org-agenda-restrict-begin 
(region-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq 
restriction (quote subtree)) (save-excursion (setq org-agenda-restrict t) 
(org-back-to-heading t) (move-marker org-agenda-restrict-begin (point)) 
(move-marker org-agenda-restrict-end (progn (org-end-of-subtree t))))))) (cond 
((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 
2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 entry) org-match 
(eval (nth 3 entry)) lprops (nth 4 entry)) (if org-agenda-sticky (setq 
org-agenda-buffer-name (or ... ...))) (put (quote org-agenda-redo-command) 
(quote org-lprops) lprops) (cond ((eq type ...) (org-let lprops ...)) ((eq type 
...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) 
(org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) 
(org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) 
(org-check-for-org-mode) (org-let lprops ...)) ((eq type ...) 
(org-check-for-org-mode) (org-let lprops ...)) ((eq type ...) 
(org-check-for-org-mode) (org-let lprops ...)) ((functionp type) (org-let 
lprops ...)) ((fboundp type) (org-let lprops ...)) (t (error "Invalid custom 
agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry) (cddr 
entry)))) ((equal org-keys "C") (setq org-agenda-custom-commands 
org-agenda-custom-commands-orig) (customize-variable (quote 
org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively (quote 
org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote 
org-search-view) (or arg (quote (4))))) ((equal org-keys "t") 
(call-interactively (quote org-todo-list))) ((equal org-keys "T") 
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal 
org-keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote 
post-command-hook) (lambda nil (unless (current-message) (let* (... ...) (when 
note ...)))) t t)) ((equal org-keys "L") (unless (derived-mode-p (quote 
org-mode)) (error "This is not an Org-mode file")) (unless restriction (put 
(quote org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg 
(quote org-timeline) arg))) ((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively 
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable 
(quote org-stuck-projects))) (t (error "Invalid agenda key"))))
  (catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name) 
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup)) 
(org-agenda-custom-commands-orig org-agenda-custom-commands) 
(org-agenda-custom-commands (delq nil (mapcar (lambda (x) (cond ... ... ... 
...)) org-agenda-custom-commands))) (org-agenda-custom-commands 
(org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn 
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans) 
(unless org-agenda-overriding-restriction (unless (org-bound-and-true-p 
org-agenda-keep-restricted-file-list) (put (quote org-agenda-files) (quote 
org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker 
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put 
(quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote 
org-agenda-redo-command) (quote last-args) nil) (setq 
org-agenda-last-dispatch-buffer (current-buffer)) (unless org-keys (setq ans 
(org-agenda-get-restriction-and-command prefix-descriptions) org-keys (car ans) 
restriction (cdr ans))) (if org-agenda-sticky (setq org-agenda-buffer-name 
(format "*Org Agenda(%s)*" org-keys))) (when (and (not 
org-agenda-overriding-restriction) restriction) (put (quote org-agenda-files) 
(quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq 
org-agenda-restrict t) (move-marker org-agenda-restrict-begin 
(region-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq 
restriction (quote subtree)) (save-excursion (setq org-agenda-restrict t) 
(org-back-to-heading t) (move-marker org-agenda-restrict-begin (point)) 
(move-marker org-agenda-restrict-end (progn ...)))))) (cond ((setq entry (assoc 
org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) 
(functionp (nth 2 entry))) (progn (setq type (nth 2 entry) org-match (eval ...) 
lprops (nth 4 entry)) (if org-agenda-sticky (setq org-agenda-buffer-name ...)) 
(put (quote org-agenda-redo-command) (quote org-lprops) lprops) (cond (... ...) 
(... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... 
... ...) (... ... ...) (... ...) (... ...) (t ...))) (org-agenda-run-series 
(nth 1 entry) (cddr entry)))) ((equal org-keys "C") (setq 
org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable 
(quote org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively 
(quote org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote 
org-search-view) (or arg (quote (4))))) ((equal org-keys "t") 
(call-interactively (quote org-todo-list))) ((equal org-keys "T") 
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal 
org-keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote 
post-command-hook) (lambda nil (unless (current-message) (let* ... ...))) t t)) 
((equal org-keys "L") (unless (derived-mode-p (quote org-mode)) (error "This is 
not an Org-mode file")) (unless restriction (put (quote org-agenda-files) 
(quote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) 
((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively 
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable 
(quote org-stuck-projects))) (t (error "Invalid agenda key")))))
  org-agenda(nil)
  call-interactively(org-agenda t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)


Note: following the same procedure except without loading the min-org.el
file:
org version 7.8.11

The search works as expected.

Thanks for any help.

Alan

-- 
Alan L Tyree           http://www2.austlii.edu.au/~alan
Tel:  04 2748 6206     sip:address@hidden