Marcin Borkowski | 27 Nov 08:52 2014
Picon

Can special blocks be nested?

Hello list,

this seems to work when exporting:

#+BEGIN_BLOCK1
Lorem ipsum
#+BEGIN_BLOCK2
dolor sit amet
#+END_BLOCK2
#+END_BLOCK1

but font locking does not (the inner block begin/end markers are not
colorized properly).

Is this construction legal?  May I depend on it being exported
correctly, or is it just an undefined behavior or something like that?

TIA,

--

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University

Jacob Gerlach | 26 Nov 20:00 2014
Picon

Large LaTeX project in single file or using publishing

Hello list,


I'm starting writing my thesis, for which I hope to remain in org-mode rather than regular LaTeX.

I am working on adapting a thesis LaTeX template into org-mode. The template is set up with a main.tex having several individual files (chapters, appendices, etc) \include'd.

I believe that I could parallel this using org's publishing mechanism. An alternate approach would be to use one single file, since I can simply fold chapters to focus my workflow.

My first concern is losing the ability to use internal links if I use separate files. Another thought is compilation time if I use one file and must always run pdflatex over the entire document. I'm sure there are pitfalls either way that I'm not yet aware of.

Any input or advice you can provide would be greatly appreciated.

Regards,
Jake
Sascha Ziemann | 26 Nov 14:56 2014
Picon

How to view everything DONE today?

Hi,

I tried to get a list of all items done today. I tried to open the agenda view but is does not show anything. What is the right command to see the items done today?

Regards,
Sascha
Ian Barton | 26 Nov 12:23 2014
Picon

Customizing Timestamps in html Export.

I can't work out how to do this. I want to customize the format of 
timestamps when I publish a project to html. There seem to be various 
variables, such as org-html-metadata-timestamp-format, which customize 
the format in pre and postambles and when using the DATE: buffer option, 
but nothing that affects the format of timestamps in the body text.

The nearest I can find is org-time-stamp-custom-formats, which works if 
org-display-custom-times is set. However, I am happy with the default 
when I am working in an org buffer and only want to customize the html 
exported timestamp.

Ian.

Marco Wahl | 26 Nov 11:12 2014
X-Face
Face
Picon

[PATCH] org-eww.el: Fix org-store-link for eww-mode

Hello!

Find a small fix to keep up with the eww evolvement.

I'll try to push the patch immediately since it is so small, resides in
contrib and already helps me.

But of course any comments are welcome, as always, thanks.
--

-- 
http://www.wahlzone.de
GPG: 0x49010A040A3AE6F2
Samuel W Flint | 25 Nov 21:45 2014

Including files, a question

When including org files, is there a way to ignore the #+TITLE:
directives, and such?  I have several separate org files, which contain
different things, which can be kept separate, but would also be nice
together, and would like to only have a single title.

Is there any way to do this?

Thanks.

Sam

--

-- 
Samuel W. Flint
swflint <at> flintfam.org                  (402) 517-8468      <XMPP>
swflint <at> teamlogicomaha.com            (402) 431-2755 x215 <XMPP>
freenode: swflint
http://flintfam.org/~swflint
4096R/266596F4
      (9477 D23E 389E 40C5 2F10  DE19 68E5 318E 2665 96F4)
"The most dangerous phrase in the language is, 'We've always done it
this way'."  -- Grace Hopper
Rasmus | 25 Nov 15:37 2014
Face
Picon

Re: [org-drill] understand description-lists

Hi Puneeth,

Puneeth Chaganti <punchagan <at> gmail.com> writes:

> On Tue, Nov 25, 2014 at 4:59 PM, Rasmus <rasmus <at> gmx.us> wrote:
>> I would like to use org-drill to train my Spanish vocabulary.  However,
>> it's essential that I can also export my file for "offline-review".  I
>> don't want to maintain two files.  I like to organize my file like this:
>>
>> *** Days
>> - lunes     :: Monday
>> - martes    :: Tuesday
>> - miércoles :: Wednesday
>> - jueves    :: Thursday
>> - viernes   :: Friday
>> - sábado    :: Saturday
>> - domingo   :: Sunday
>>
>> Is it possible to have org-drill realize that each side of the
>> description item is a side of a card, and that the closest headline is a
>> topic?
>
> org-drill sets properties on each drill headline, to keep track of
> your progress while learning that item.  So, I'm not sure it would be
> easy to do without maintaining two files.

I see.

> One idea could be to have a function that creates (and updates/merges)
> an org-drill file from the normal file that you use for export.
> org-drill ships with functions [1] for merging two drill
> files/buffers.

So, I see three approaches: (i) write an exporter, but this seems like
an overkill, or (ii) store the drill data separately; (iii) store data
in headlines for items.  

I don't know how feasible this is as I'm not familiar with the
org-drill.el.

Thanks,
Rasmus

--

-- 
Dobbelt-A

Rasmus | 25 Nov 12:29 2014
Face
Picon

[org-drill] understand description-lists

Hi,

I would like to use org-drill to train my Spanish vocabulary.  However,
it's essential that I can also export my file for "offline-review".  I
don't want to maintain two files.  I like to organize my file like this:

*** Days
- lunes     :: Monday
- martes    :: Tuesday
- miércoles :: Wednesday
- jueves    :: Thursday
- viernes   :: Friday
- sábado    :: Saturday
- domingo   :: Sunday

Is it possible to have org-drill realize that each side of the
description item is a side of a card, and that the closest headline is a
topic?

Thanks,
Rasmus

--

-- 
If you can mix business and politics wonderful things can happen!

Rainer Stengele | 25 Nov 08:21 2014
Picon

Cannot start any agenda anymore

Hi all,

since yesterday I cannot start any agenda anymore.
I did reorganise a few things but cannot find the reason whats wrong.

setting debug to true I get the message below after a standard "C-a a t". Please help I am completely stuck.
Thank you, Rainer


Org-mode version 8.3beta (release_8.3beta-589-g9eff31  <at>  c:/Users/rainer/AppData/Roaming/.emacs.d/org/lisp/)
GNU Emacs 24.3.50.1 (i386-mingw-nt6.1.7601) of 2013-03-14 on VBOX



Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  looking-at(nil)
  outline-on-heading-p(t)
  org-at-heading-p()
  (cond ((eq mode (quote item)) (org-element-item-parser limit structure raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq mode (quote
node-property)) (org-element-node-property-parser limit)) ((let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp
org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quote section))
(org-element-section-parser limit)) ((eq mode (quote first-section)) (org-element-section-parser (or (save-excursion (let* ((org-called-with-limited-levels t) (org-outline-regexp
...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (outline-next-heading))) limit))) ((and (eq mode (quote planning)) (looking-at org-planning-line-re))
(org-element-planning-parser limit)) ((and (memq mode (quote (planning property-drawer))) (looking-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) ((not
(bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) (org-element-inlinetask-parser
limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr affiliated) (>= (point) limit)) (goto-char (car affiliated))
(org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp)
(org-element-drawer-parser limit affiliated)) ((looking-at "[ 	]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ 	]*#") (goto-char (match-end 0))
(cond ((looking-at "\\(?: \\|$\\)") (beginning-of-line) (org-element-comment-parser limit affiliated)) ((looking-at "\\+BEGIN_\\(\\S-+\\)") (beginning-of-line) (let ... ...))
((looking-at "\\+CALL:") (beginning-of-line) (org-element-babel-call-parser limit affiliated)) ((looking-at "\\+BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-parser
limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-line) (org-element-keyword-parser limit affiliated)) (t (beginning-of-line) (org-element-paragraph-parser limit
affiliated)))) ((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ 	]*-\\{5,\\}[ 	]*$")
(org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((org-at-table-p t) (org-element-table-parser limit
affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit affiliated (or structure (org-element--list-struct limit)))) (t (org-element-paragraph-parser limit
affiliated))))))
  (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq granularity (quote object)))))) (cond ((eq mode (quote item)) (org-element-item-parser limit structure
raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq mode (quote node-property)) (org-element-node-property-parser limit)) ((let*
((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^"
org-outline-regexp))) (org-at-heading-p)) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser limit)) ((eq mode (quote
first-section)) (org-element-section-parser (or (save-excursion (let* (... ... ... ...) (outline-next-heading))) limit))) ((and (eq mode (quote planning)) (looking-at
org-planning-line-re)) (org-element-planning-parser limit)) ((and (memq mode (quote (planning property-drawer))) (looking-at org-property-drawer-re))
(org-element-property-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at org-clock-line-re) (org-element-clock-parser limit))
((org-at-heading-p) (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr affiliated) (>=
... limit)) (goto-char (car affiliated)) (org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit
affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ 	]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated))
((looking-at "[ 	]*#") (goto-char (match-end 0)) (cond (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (t ... ...))) ((looking-at org-footnote-definition-re)
(org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ 	]*-\\{5,\\}[ 	]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(")
(org-element-diary-sexp-parser limit affiliated)) ((org-at-table-p t) (org-element-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit
affiliated (or structure ...))) (t (org-element-paragraph-parser limit affiliated)))))))
  (save-excursion (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq granularity (quote object)))))) (cond ((eq mode (quote item)) (org-element-item-parser limit
structure raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq mode (quote node-property)) (org-element-node-property-parser limit)) ((let*
((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^"
org-outline-regexp))) (org-at-heading-p)) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser limit)) ((eq mode (quote
first-section)) (org-element-section-parser (or (save-excursion (let* ... ...)) limit))) ((and (eq mode (quote planning)) (looking-at org-planning-line-re))
(org-element-planning-parser limit)) ((and (memq mode (quote (planning property-drawer))) (looking-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) ((not
(bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) (org-element-inlinetask-parser
limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and ... ...) (goto-char ...) (org-element-keyword-parser limit nil))
((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit
affiliated)) ((looking-at "[ 	]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ 	]*#") (goto-char ...) (cond ... ... ... ... ... ...))
((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ 	]*-\\{5,\\}[ 	]*$") (org-element-horizontal-rule-parser limit
affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((org-at-table-p t) (org-element-table-parser limit affiliated)) ((looking-at ...)
(org-element-plain-list-parser limit affiliated ...)) (t (org-element-paragraph-parser limit affiliated))))))))
  org-element--current-element(779 element nil nil)
  (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent)))
  (if element nil (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent)
(org-element--cache-put element))
  (while t (if syncp (progn (cond ((= (point) pos) (throw (quote exit) parent)) ((org-element--cache-interrupt-p time-limit) (throw (quote interrupt) nil))))) (if element nil (setq
element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put
element)) (let ((elem-end (org-element-property :end element)) (type (org-element-type element))) (cond ((and (<= elem-end pos) (/= (point-max) elem-end)) (goto-char elem-end)
(setq mode (org-element--next-mode type nil))) ((not (memq type org-element-greater-elements)) (throw (quote exit) element)) ((let ((cbeg (org-element-property :contents-begin
element)) (cend (org-element-property :contents-end element))) (if (or syncp (and cbeg cend ... ...)) (progn (goto-char ...) (setq next nil mode ... parent element end cend))))) (t
(throw (quote exit) element)))) (setq element nil))
  (let ((end (or (org-element-property :end element) (save-excursion (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp)
(org-outline-regexp-bol ...)) (outline-next-heading)) (point)))) (parent element)) (while t (if syncp (progn (cond ((= (point) pos) (throw (quote exit) parent))
((org-element--cache-interrupt-p time-limit) (throw (quote interrupt) nil))))) (if element nil (setq element (org-element--current-element end (quote element) mode
(org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end element))
(type (org-element-type element))) (cond ((and (<= elem-end pos) (/= (point-max) elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) ((not (memq type
org-element-greater-elements)) (throw (quote exit) element)) ((let ((cbeg ...) (cend ...)) (if (or syncp ...) (progn ... ...)))) (t (throw (quote exit) element)))) (setq element nil)))
  (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property :begin cached)) element next mode) (cond ((not cached) (if
(let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^"
org-outline-regexp))) (outline-previous-heading)) (progn (setq mode (quote planning)) (forward-line))) (skip-chars-forward "
	\n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp (org-element-property :parent cached) cached))) ((re-search-backward (let* ((org-called-with-limited-levels
t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) org-outline-regexp-bol) begin
t) (forward-line) (skip-chars-forward "
	\n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos (if (= ... pos) (1- pos) pos))) (goto-char (or (org-element-property :contents-begin cached)
begin)) (while (let ((end ...)) (and (<= end pos) (goto-char end) (setq up ...)))) (cond ((not up)) ((eobp) (setq element up)) (t (setq element up next (point))))))) (let ((end (or
(org-element-property :end element) (save-excursion (let* (... ... ... ...) (outline-next-heading)) (point)))) (parent element)) (while t (if syncp (progn (cond ((= ... pos) (throw
... parent)) ((org-element--cache-interrupt-p time-limit) (throw ... nil))))) (if element nil (setq element (org-element--current-element end (quote element) mode
(org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end element))
(type (org-element-type element))) (cond ((and (<= elem-end pos) (/= ... elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) ((not (memq type
org-element-greater-elements)) (throw (quote exit) element)) ((let (... ...) (if ... ...))) (t (throw (quote exit) element)))) (setq element nil))))
  (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property :begin cached))
element next mode) (cond ((not cached) (if (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...))
(outline-previous-heading)) (progn (setq mode (quote planning)) (forward-line))) (skip-chars-forward "
	\n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp (org-element-property :parent cached) cached))) ((re-search-backward (let* ((org-called-with-limited-levels
t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) org-outline-regexp-bol) begin t) (forward-line) (skip-chars-forward "
	\n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos (if ... ... pos))) (goto-char (or (org-element-property :contents-begin cached) begin)) (while
(let (...) (and ... ... ...))) (cond ((not up)) ((eobp) (setq element up)) (t (setq element up next ...)))))) (let ((end (or (org-element-property :end element) (save-excursion
(let* ... ...) (point)))) (parent element)) (while t (if syncp (progn (cond (... ...) (... ...)))) (if element nil (setq element (org-element--current-element end (quote element)
mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end
element)) (type (org-element-type element))) (cond ((and ... ...) (goto-char elem-end) (setq mode ...)) ((not ...) (throw ... element)) ((let ... ...)) (t (throw ... element))))
(setq element nil)))))
  (save-excursion (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property
:begin cached)) element next mode) (cond ((not cached) (if (let* (... ... ... ...) (outline-previous-heading)) (progn (setq mode ...) (forward-line))) (skip-chars-forward "
	\n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp (org-element-property :parent cached) cached))) ((re-search-backward (let* (... ... ... ...)
org-outline-regexp-bol) begin t) (forward-line) (skip-chars-forward "
	\n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos ...)) (goto-char (or ... begin)) (while (let ... ...)) (cond (...) (... ...) (t ...))))) (let
((end (or (org-element-property :end element) (save-excursion ... ...))) (parent element)) (while t (if syncp (progn (cond ... ...))) (if element nil (setq element
(org-element--current-element end ... mode ...)) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end ...) (type ...)) (cond (... ...
...) (... ...) (...) (t ...))) (setq element nil))))))
  (catch (quote exit) (save-excursion (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin
(org-element-property :begin cached)) element next mode) (cond ((not cached) (if (let* ... ...) (progn ... ...)) (skip-chars-forward "
	\n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp ... cached))) ((re-search-backward (let* ... org-outline-regexp-bol) begin t) (forward-line)
(skip-chars-forward "
	\n") (beginning-of-line) (setq mode (quote planning))) (t (let (... ...) (goto-char ...) (while ...) (cond ... ... ...)))) (let ((end (or ... ...)) (parent element)) (while t (if
syncp (progn ...)) (if element nil (setq element ...) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let (... ...) (cond ... ... ... ...))
(setq element nil)))))))
  org-element--parse-to(21)
  (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol
(concat "^" org-outline-regexp))) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not
org-element--cache) (org-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-element--parse-to origin)))
  (let ((origin (point))) (end-of-line) (skip-chars-backward "
	\n") (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp)
(org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p)
(progn (if (not org-element--cache) (org-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-element--parse-to origin))))
  (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-chars-backward "
	\n") (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp)
(org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p)
(progn (if (not org-element--cache) (org-element-cache-reset) (org-element--cache-sync ... origin)))) (org-element--parse-to origin)))))
  (save-excursion (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-chars-backward "
	\n") (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (org-at-heading-p))
(beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn (if ... ... ...))) (org-element--parse-to origin))))))
  org-element-at-point()
  (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key element)) (value (org-element-property
:value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn ...))) ((equal key "CATEGORY") (setq alist (cons ... alist))) ((equal key "COLUMNS") (setq alist
(cons ... alist))) ((equal key "CONSTANTS") (let* (... ...) (progn ...) (if constants ... ...))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn ...))) ((equal key
"LINK") (if (string-match "\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn ...))) ((equal key "PRIORITIES") (setq alist (cons ... alist))) ((equal key "PROPERTY") (if (string-match
"\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn ...))) ((equal key "STARTUP") (let (...) (if startup ... ...))) ((equal key "TAGS") (let (...) (if tag-cell ... ...))) ((member key (quote
...)) (let (... ...) (if todo ... ...))) ((equal key "SETUPFILE") (if buffer-read-only nil (let ... ...))))))))
  (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key
element)) (value (org-element-property :value element))) (cond ((equal key "ARCHIVE") (if ... ...)) ((equal key "CATEGORY") (setq alist ...)) ((equal key "COLUMNS") (setq alist
...)) ((equal key "CONSTANTS") (let* ... ... ...)) ((equal key "FILETAGS") (if ... ...)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq alist ...)) ((equal key
"PROPERTY") (if ... ...)) ((equal key "STARTUP") (let ... ...)) ((equal key "TAGS") (let ... ...)) ((member key ...) (let ... ...)) ((equal key "SETUPFILE") (if buffer-read-only
nil ...))))))))
  (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key
...) (value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...))))))))
  (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq
(org-element-type element) (quote keyword)) (progn (let (... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...))))))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if
(eq (org-element-type element) (quote keyword)) (progn (let ... ...))))))))
  org--setup-collect-keywords("^[
]*#\\+\\(\\(?:ARCHIVE\\|C\\(?:ATEGORY\\|O\\(?:\\(?:LUMN\\|NSTANT\\)S\\)\\)\\|FILETAGS\\|LINK\\|PR\\(?:IORITIES\\|OPERTY\\)\\|S\\(?:E\\(?:Q_TODO\\|TUPFILE\\)\\|TARTUP\\)\\|T\\(?:AGS\\|\\(?:YP_T\\)?ODO\\)\\)\\):[
	]*\\(.*\\)" ("c:/Users/rainer/AppData/Roaming/org/GLOBAL_SETUP_DIPLAN.org") nil)
  (let ((major-mode (quote org-mode))) (org--setup-collect-keywords regexp (cons f files) alist))
  (setq alist (let ((major-mode (quote org-mode))) (org--setup-collect-keywords regexp (cons f files) alist)))
  (progn (insert-file-contents f) (setq alist (let ((major-mode (quote org-mode))) (org--setup-collect-keywords regexp (cons f files) alist))))
  (unwind-protect (progn (insert-file-contents f) (setq alist (let ((major-mode (quote org-mode))) (org--setup-collect-keywords regexp (cons f files) alist)))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents f) (setq alist (let ((major-mode (quote org-mode))) (org--setup-collect-keywords regexp
(cons f files) alist)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents f) (setq alist (let ((major-mode
...)) (org--setup-collect-keywords regexp (cons f files) alist)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents f) (setq alist (let (...)
(org--setup-collect-keywords regexp ... alist)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (if (and f (file-readable-p f) (not (member f files))) (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect
(progn (insert-file-contents f) (setq alist (let ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))
  (let ((f (and (org-string-nw-p value) (expand-file-name (org-remove-double-quotes value))))) (if (and f (file-readable-p f) (not (member f files))) (progn (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents f) (setq alist ...)) (and (buffer-name temp-buffer)
(kill-buffer temp-buffer))))))))
  (if buffer-read-only nil (let ((f (and (org-string-nw-p value) (expand-file-name (org-remove-double-quotes value))))) (if (and f (file-readable-p f) (not (member f files)))
(progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))))))
  (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn (setq alist (cons (cons (quote archive) value) alist))))) ((equal key "CATEGORY") (setq alist (cons (cons (quote
category) value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons (quote columns) value) alist))) ((equal key "CONSTANTS") (let* ((constants (assq (quote constants) alist))
(store (cdr constants))) (progn (let ((--dolist-tail-- (org-split-string value)) pair) (while --dolist-tail-- (setq pair (car --dolist-tail--)) (if (string-match
"^\\([a-zA-Z0][_a-zA-Z0-9]*\\)=\\(.*\\)" pair) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if constants (setcdr constants store) (setq alist (cons (cons (quote
constants) store) alist))))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn (let ((old (assq ... alist)) (new (apply ... ...))) (if old (setcdr old (append new ...))
(setq alist (cons ... alist))))))) ((equal key "LINK") (if (string-match "\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (let ((links (assq ... alist)) (pair (cons ... ...))) (if links
(let* (...) (setcdr v ...)) (setq alist (cons ... alist))))))) ((equal key "PRIORITIES") (setq alist (cons (cons (quote priorities) (let ((prio ...)) (if (< ... 3) (quote ...)
(mapcar ... prio)))) alist))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn (let* ((property (assq ... alist)) (value
(org--update-property-plist ... ... ...))) (if property (setcdr property value) (setq alist (cons ... alist))))))) ((equal key "STARTUP") (let ((startup (assq (quote startup)
alist))) (if startup (setcdr startup (append (cdr startup) (org-split-string value))) (setq alist (cons (cons (quote startup) (org-split-string value)) alist))))) ((equal key
"TAGS") (let ((tag-cell (assq (quote tags) alist))) (if tag-cell (setcdr tag-cell (append (cdr tag-cell) (quote ("\\n")) (org-split-string value))) (setq alist (cons (cons (quote
tags) (org-split-string value)) alist))))) ((member key (quote ("TODO" "SEQ_TODO" "TYP_TODO"))) (let ((todo (assq (quote todo) alist)) (value (cons (if (equal key "TYP_TODO")
(quote type) (quote sequence)) (org-split-string value)))) (if todo (let* ((v todo)) (setcdr v (cons value (cdr v)))) (setq alist (cons (list (quote todo) value) alist))))) ((equal
key "SETUPFILE") (if buffer-read-only nil (let ((f (and (org-string-nw-p value) (expand-file-name ...)))) (if (and f (file-readable-p f) (not (member f files))) (progn (let (...)
(save-current-buffer ... ...))))))))
  (let ((key (org-element-property :key element)) (value (org-element-property :value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn (setq alist (cons
(cons ... value) alist))))) ((equal key "CATEGORY") (setq alist (cons (cons (quote category) value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons (quote columns) value)
alist))) ((equal key "CONSTANTS") (let* ((constants (assq (quote constants) alist)) (store (cdr constants))) (progn (let ((--dolist-tail-- ...) pair) (while --dolist-tail-- (setq
pair ...) (if ... ...) (setq --dolist-tail-- ...)))) (if constants (setcdr constants store) (setq alist (cons (cons ... store) alist))))) ((equal key "FILETAGS") (if
(org-string-nw-p value) (progn (let ((old ...) (new ...)) (if old (setcdr old ...) (setq alist ...)))))) ((equal key "LINK") (if (string-match "\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value)
(progn (let ((links ...) (pair ...)) (if links (let* ... ...) (setq alist ...)))))) ((equal key "PRIORITIES") (setq alist (cons (cons (quote priorities) (let (...) (if ... ...
...))) alist))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn (let* ((property ...) (value ...)) (if property (setcdr property value) (setq
alist ...)))))) ((equal key "STARTUP") (let ((startup (assq (quote startup) alist))) (if startup (setcdr startup (append (cdr startup) (org-split-string value))) (setq alist (cons
(cons ... ...) alist))))) ((equal key "TAGS") (let ((tag-cell (assq (quote tags) alist))) (if tag-cell (setcdr tag-cell (append (cdr tag-cell) (quote ...) (org-split-string
value))) (setq alist (cons (cons ... ...) alist))))) ((member key (quote ("TODO" "SEQ_TODO" "TYP_TODO"))) (let ((todo (assq (quote todo) alist)) (value (cons (if ... ... ...)
(org-split-string value)))) (if todo (let* ((v todo)) (setcdr v (cons value ...))) (setq alist (cons (list ... value) alist))))) ((equal key "SETUPFILE") (if buffer-read-only nil
(let ((f (and ... ...))) (if (and f (file-readable-p f) (not ...)) (progn (let ... ...))))))))
  (progn (let ((key (org-element-property :key element)) (value (org-element-property :value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn (setq alist
(cons ... alist))))) ((equal key "CATEGORY") (setq alist (cons (cons (quote category) value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons (quote columns) value) alist)))
((equal key "CONSTANTS") (let* ((constants (assq ... alist)) (store (cdr constants))) (progn (let (... pair) (while --dolist-tail-- ... ... ...))) (if constants (setcdr constants
store) (setq alist (cons ... alist))))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn (let (... ...) (if old ... ...))))) ((equal key "LINK") (if (string-match
"\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (let (... ...) (if links ... ...))))) ((equal key "PRIORITIES") (setq alist (cons (cons (quote priorities) (let ... ...)) alist)))
((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn (let* (... ...) (if property ... ...))))) ((equal key "STARTUP") (let ((startup (assq ...
alist))) (if startup (setcdr startup (append ... ...)) (setq alist (cons ... alist))))) ((equal key "TAGS") (let ((tag-cell (assq ... alist))) (if tag-cell (setcdr tag-cell (append
... ... ...)) (setq alist (cons ... alist))))) ((member key (quote ("TODO" "SEQ_TODO" "TYP_TODO"))) (let ((todo (assq ... alist)) (value (cons ... ...))) (if todo (let* (...)
(setcdr v ...)) (setq alist (cons ... alist))))) ((equal key "SETUPFILE") (if buffer-read-only nil (let ((f ...)) (if (and f ... ...) (progn ...))))))))
  (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key element)) (value (org-element-property :value element))) (cond ((equal key
"ARCHIVE") (if (org-string-nw-p value) (progn (setq alist ...)))) ((equal key "CATEGORY") (setq alist (cons (cons ... value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons
... value) alist))) ((equal key "CONSTANTS") (let* ((constants ...) (store ...)) (progn (let ... ...)) (if constants (setcdr constants store) (setq alist ...)))) ((equal key
"FILETAGS") (if (org-string-nw-p value) (progn (let ... ...)))) ((equal key "LINK") (if (string-match "\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (let ... ...)))) ((equal key
"PRIORITIES") (setq alist (cons (cons ... ...) alist))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn (let* ... ...)))) ((equal key "STARTUP")
(let ((startup ...)) (if startup (setcdr startup ...) (setq alist ...)))) ((equal key "TAGS") (let ((tag-cell ...)) (if tag-cell (setcdr tag-cell ...) (setq alist ...)))) ((member
key (quote ("TODO" "SEQ_TODO" "TYP_TODO"))) (let ((todo ...) (value ...)) (if todo (let* ... ...) (setq alist ...)))) ((equal key "SETUPFILE") (if buffer-read-only nil (let (...)
(if ... ...))))))))
  (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key element)) (value (org-element-property
:value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn ...))) ((equal key "CATEGORY") (setq alist (cons ... alist))) ((equal key "COLUMNS") (setq alist
(cons ... alist))) ((equal key "CONSTANTS") (let* (... ...) (progn ...) (if constants ... ...))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn ...))) ((equal key
"LINK") (if (string-match "\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn ...))) ((equal key "PRIORITIES") (setq alist (cons ... alist))) ((equal key "PROPERTY") (if (string-match
"\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn ...))) ((equal key "STARTUP") (let (...) (if startup ... ...))) ((equal key "TAGS") (let (...) (if tag-cell ... ...))) ((member key (quote
...)) (let (... ...) (if todo ... ...))) ((equal key "SETUPFILE") (if buffer-read-only nil (let ... ...))))))))
  (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key
element)) (value (org-element-property :value element))) (cond ((equal key "ARCHIVE") (if ... ...)) ((equal key "CATEGORY") (setq alist ...)) ((equal key "COLUMNS") (setq alist
...)) ((equal key "CONSTANTS") (let* ... ... ...)) ((equal key "FILETAGS") (if ... ...)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq alist ...)) ((equal key
"PROPERTY") (if ... ...)) ((equal key "STARTUP") (let ... ...)) ((equal key "TAGS") (let ... ...)) ((member key ...) (let ... ...)) ((equal key "SETUPFILE") (if buffer-read-only
nil ...))))))))
  (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key
...) (value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...))))))))
  (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq
(org-element-type element) (quote keyword)) (progn (let (... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...))))))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if
(eq (org-element-type element) (quote keyword)) (progn (let ... ...))))))))
  org--setup-collect-keywords("^[
]*#\\+\\(\\(?:ARCHIVE\\|C\\(?:ATEGORY\\|O\\(?:\\(?:LUMN\\|NSTANT\\)S\\)\\)\\|FILETAGS\\|LINK\\|PR\\(?:IORITIES\\|OPERTY\\)\\|S\\(?:E\\(?:Q_TODO\\|TUPFILE\\)\\|TARTUP\\)\\|T\\(?:AGS\\|\\(?:YP_T\\)?ODO\\)\\)\\):[
	]*\\(.*\\)")
  (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append (quote ("FILETAGS" "TAGS" "SETUPFILE")) (and (not tags-only) (quote ...))))))) (org--setup-process-tags
(cdr (assq (quote tags) alist)) (cdr (assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) (let
((archive (cdr (assq (quote archive) alist)))) (if archive (progn (org-set-local (quote org-archive-location) archive)))) (let ((cat (org-string-nw-p (cdr (assq ... alist))))) (if
cat (progn (org-set-local (quote org-category) (intern cat)) (org-set-local (quote org-file-properties) (org--update-property-plist "CATEGORY" cat org-file-properties))))) (let
((column (cdr (assq (quote columns) alist)))) (if column (progn (org-set-local (quote org-columns-default-format) column)))) (setq org-table-formula-constants-local (cdr (assq
(quote constants) alist))) (let ((links (cdr (assq (quote link) alist)))) (if links (progn (setq org-link-abbrev-alist-local (nreverse links))))) (let ((priorities (cdr (assq
(quote priorities) alist)))) (if priorities (progn (org-set-local (quote org-highest-priority) (nth 0 priorities)) (org-set-local (quote org-lowest-priority) (nth 1 priorities))
(org-set-local (quote org-default-priority) (nth 2 priorities))))) (let ((startup (cdr (assq (quote startup) alist)))) (progn (let ((--dolist-tail-- startup) option) (while
--dolist-tail-- (setq option (car --dolist-tail--)) (let (...) (if entry ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (org-set-local (quote org-todo-kwd-alist) nil)
(org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote
org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (let ((todo-sequences
(or (nreverse (cdr ...)) (let (...) (if ... d ...))))) (progn (let ((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq sequence (car --dolist-tail--)) (let*
(... ... ... ... names alist) (progn ...) (let* ... ... ... ... ... ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq org-todo-sets (nreverse org-todo-sets)
org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (function cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys
org-todo-key-alist)) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (last org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all
org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (regexp-opt org-todo-keywords-1 t) org-not-done-regexp (regexp-opt org-not-done-keywords t)
org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp)
org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_ <at> #%:]+:\\)\\)?" "[
]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)*" "\\(%s\\)" "\\(?:
*\\[[0-9%%/]+\\]\\)*" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_ <at> #%%:]+:\\)\\)?" "[ 	]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
+\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_ <at> #%]+:\\)\\)?" "[ 	]*$")) (org-compute-latex-and-related-regexp)))
  (progn (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append (quote ...) (and ... ...)))))) (org--setup-process-tags (cdr (assq (quote tags) alist)) (cdr
(assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) (let ((archive (cdr (assq ... alist)))) (if
archive (progn (org-set-local (quote org-archive-location) archive)))) (let ((cat (org-string-nw-p (cdr ...)))) (if cat (progn (org-set-local (quote org-category) (intern cat))
(org-set-local (quote org-file-properties) (org--update-property-plist "CATEGORY" cat org-file-properties))))) (let ((column (cdr (assq ... alist)))) (if column (progn
(org-set-local (quote org-columns-default-format) column)))) (setq org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let ((links (cdr (assq ... alist)))) (if
links (progn (setq org-link-abbrev-alist-local (nreverse links))))) (let ((priorities (cdr (assq ... alist)))) (if priorities (progn (org-set-local (quote org-highest-priority)
(nth 0 priorities)) (org-set-local (quote org-lowest-priority) (nth 1 priorities)) (org-set-local (quote org-default-priority) (nth 2 priorities))))) (let ((startup (cdr (assq ...
alist)))) (progn (let ((--dolist-tail-- startup) option) (while --dolist-tail-- (setq option ...) (let ... ...) (setq --dolist-tail-- ...))))) (org-set-local (quote
org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil)
(org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil)
(let ((todo-sequences (or (nreverse ...) (let ... ...)))) (progn (let ((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq sequence ...) (let* ... ... ...)
(setq --dolist-tail-- ...))))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (function cdr)
org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (last
org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (regexp-opt org-todo-keywords-1 t)
org-not-done-regexp (regexp-opt org-not-done-keywords t) org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format
org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?:
+\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_ <at> #%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
+\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)*" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)*" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_ <at> #%%:]+:\\)\\)?" "[ 	]*$")
org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_ <at> #%]+:\\)\\)?" "[ 	]*$"))
(org-compute-latex-and-related-regexp))))
  (if (derived-mode-p (quote org-mode)) (progn (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append ... ...))))) (org--setup-process-tags (cdr (assq (quote
tags) alist)) (cdr (assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) (let ((archive (cdr ...))) (if
archive (progn (org-set-local ... archive)))) (let ((cat (org-string-nw-p ...))) (if cat (progn (org-set-local ... ...) (org-set-local ... ...)))) (let ((column (cdr ...))) (if
column (progn (org-set-local ... column)))) (setq org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let ((links (cdr ...))) (if links (progn (setq
org-link-abbrev-alist-local ...)))) (let ((priorities (cdr ...))) (if priorities (progn (org-set-local ... ...) (org-set-local ... ...) (org-set-local ... ...)))) (let ((startup
(cdr ...))) (progn (let (... option) (while --dolist-tail-- ... ... ...)))) (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil)
(org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads)
nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (let ((todo-sequences (or ... ...))) (progn (let (... sequence) (while
--dolist-tail-- ... ... ...)))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (function cdr)
org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (last
org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (regexp-opt org-todo-keywords-1 t)
org-not-done-regexp (regexp-opt org-not-done-keywords t) org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format
org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?:
+\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_ <at> #%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
+\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)*" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)*" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_ <at> #%%:]+:\\)\\)?" "[ 	]*$")
org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_ <at> #%]+:\\)\\)?" "[ 	]*$"))
(org-compute-latex-and-related-regexp)))))
  org-set-regexps-and-options()
  (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote
org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let
((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table))))
(if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list
local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if
(boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)))
(define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote
undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec
(quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local
(quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq
bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function (lambda
... ...)) (if (stringp org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if (and
org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ")
(modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (if org-startup-truncated (setq truncate-lines t)) (if
org-startup-indented (progn (require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region))
(org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote
kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function)
(quote org-indent-line)) (org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-element-cache-reset)
(org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote end-of-defun-function) (function (lambda nil (if (not (org-at-heading-p))
(org-forward-element) (org-forward-element) (forward-char -1))))) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies
(add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote
org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))
(remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^[
]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) ...)
  (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote
outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent
org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent org-mode-syntax-table
(syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents
(list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if
(boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)))
(define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote
undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec
(quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local
(quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq
bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function ...) (if
... org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if (and org-tag-faces (not
org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w")
(modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require
(quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update)
t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil
(quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote
indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-element-cache-reset) (org-set-local (quote beginning-of-defun-function)
(quote org-backward-element)) (org-set-local (quote end-of-defun-function) (function (lambda nil (if (not (org-at-heading-p)) (org-forward-element) (org-forward-element)
(forward-char -1))))) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote
org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if
org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote
org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^[ 	]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote
(org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) ...))
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer Projectmanagement.org> "~/org/DIPLAN/Projectmanagement.org" nil nil "~/org/DIPLAN/Projectmanagement.org" ((65536 0 . 58137) (39125 . 52227)))
  find-file-noselect("~/org/DIPLAN/Projectmanagement.org")
  (setq buf (find-file-noselect file))
  (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf)
  (let ((buf (org-find-base-buffer-visiting file))) (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf))
  org-get-agenda-file-buffer("~/org/DIPLAN/Projectmanagement.org")
  (set-buffer (org-get-agenda-file-buffer file))
  (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file)))
  (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options
(quote tags-only)) (setq pos (point)) (or (memq (quote category) org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq (quote stats)
org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote effort) org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq (quote appt)
org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime))) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda
org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if
org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p))
(buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (save-excursion
(remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char ...) (while ... ...))) (goto-char (point-min)) (setq re (format "^\\*
.*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ... ...) (progn ...))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos))
  (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer
(org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options (quote tags-only)) (setq pos (point)) (or (memq (quote category) org-agenda-ignore-properties)
(org-refresh-category-properties)) (or (memq (quote stats) org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote effort) org-agenda-ignore-properties)
(org-refresh-effort-properties)) (or (memq (quote appt) org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime))) (setq
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords))
(setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda
org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn ... ...)) (goto-char
(point-min)) (setq re (format "^\\* .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if ... ...)))) (if modified nil (restore-buffer-modified-p nil))))
(goto-char pos)))
  (save-restriction (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file)
(set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options (quote tags-only)) (setq pos (point)) (or (memq (quote category) org-agenda-ignore-properties)
(org-refresh-category-properties)) (or (memq (quote stats) org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote effort) org-agenda-ignore-properties)
(org-refresh-effort-properties)) (or (memq (quote appt) org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime))) (setq
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords))
(setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda
org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion (remove-text-properties ... ... pall) (if org-agenda-skip-archived-trees ...) (goto-char ...) (setq re ...) (while ...
...))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos))))
  (save-excursion (save-restriction (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file)
(org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options (quote tags-only)) (setq pos (point)) (or (memq (quote category)
org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq (quote stats) org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote effort)
org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq (quote appt) org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote
org-appt-warntime))) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append
org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda
(org-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (save-excursion ... ... ... ... ...)) (if modified nil
(restore-buffer-modified-p nil)))) (goto-char pos)))))
  (let ((pa (quote (:org-archived t))) (pc (quote (:org-comment t))) (pall (quote (:org-archived t :org-comment t))) (inhibit-read-only t) (org-inhibit-startup
org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")) file re pos) (setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-agenda nil) (save-excursion
(save-restriction (while (setq file (car (prog1 files (setq files ...)))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer
(org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options (quote tags-only)) (setq pos (point)) (or (memq (quote category) org-agenda-ignore-properties)
(org-refresh-category-properties)) (or (memq (quote stats) org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote effort) org-agenda-ignore-properties)
(org-refresh-effort-properties)) (or (memq (quote appt) org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime))) (setq
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords))
(setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist ...))) (let* ((modified ...) (buffer-undo-list t)
(inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn ...) (if modified nil ...))) (goto-char pos)))))
(setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda)))
  org-agenda-prepare-buffers(("~/org/DIPLAN/Projectmanagement.org" "~/org/DIPLAN/AL.org" "~/org/DIPLAN/AEM.org" "~/org/DIPLAN/BECOM.org" "~/org/DIPLAN/DIPLAN.org"
"~/org/DIPLAN/Jenoptik.org" "~/org/DIPLAN/Komitec.org" "~/org/DIPLAN/Lenzing.org" "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org"
"~/org/DIPLAN/Livaenergy.org" "~/org/DIPLAN/Molex.org" "~/org/DIPLAN/Seuffer.org" "~/org/DIPLAN/Stoll.org" "~/org/DIPLAN/Technokom.org" "~/org/DIPLAN/UBMED.org"))
  (if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp) org-agenda-compact-blocks (not org-agenda-block-separator)) nil (insert "\n" (if
(stringp org-agenda-block-separator) org-agenda-block-separator (make-string (window-width) org-agenda-block-separator)) "\n")) (narrow-to-region (point) (point-max))) (setq
org-done-keywords-for-agenda nil) (org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name) filter-alist) (setq buffer-read-only nil) (org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil) (setq org-agenda-columns-active nil)
(org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg current-prefix-arg) (setq org-agenda-this-buffer-name
org-agenda-buffer-name) (and name (not org-agenda-name) (org-set-local (quote org-agenda-name) name)))
  (if (org-agenda-use-sticky-p) (progn (put (quote org-agenda-tag-filter) :preset-filter nil) (put (quote org-agenda-category-filter) :preset-filter nil) (put (quote
org-agenda-regexp-filter) :preset-filter nil) (org-agenda-prepare-window (get-buffer org-agenda-buffer-name) filter-alist) (message "Sticky Agenda buffer, use `r' to refresh") (or
org-agenda-multi (org-agenda-fit-window-to-buffer)) (throw (quote exit) "Sticky Agenda buffer, use `r' to refresh")) (setq org-todo-keywords-for-agenda nil) (put (quote
org-agenda-tag-filter) :preset-filter org-agenda-tag-filter-preset) (put (quote org-agenda-category-filter) :preset-filter org-agenda-category-filter-preset) (put (quote
org-agenda-regexp-filter) :preset-filter org-agenda-regexp-filter-preset) (put (quote org-agenda-effort-filter) :preset-filter org-agenda-effort-filter-preset) (if org-agenda-multi
(progn (setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp) org-agenda-compact-blocks (not org-agenda-block-separator)) nil (insert "\n" (if (stringp
org-agenda-block-separator) org-agenda-block-separator (make-string (window-width) org-agenda-block-separator)) "\n")) (narrow-to-region (point) (point-max))) (setq
org-done-keywords-for-agenda nil) (org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name) filter-alist) (setq buffer-read-only nil) (org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil) (setq org-agenda-columns-active nil)
(org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg current-prefix-arg) (setq org-agenda-this-buffer-name
org-agenda-buffer-name) (and name (not org-agenda-name) (org-set-local (quote org-agenda-name) name))) (setq buffer-read-only nil))
  (let ((filter-alist (if org-agenda-persistent-filter (list (cons (quote tag) org-agenda-tag-filter) (cons (quote re) org-agenda-regexp-filter) (cons (quote effort)
org-agenda-effort-filter) (cons (quote car) org-agenda-category-filter))))) (if (org-agenda-use-sticky-p) (progn (put (quote org-agenda-tag-filter) :preset-filter nil) (put (quote
org-agenda-category-filter) :preset-filter nil) (put (quote org-agenda-regexp-filter) :preset-filter nil) (org-agenda-prepare-window (get-buffer org-agenda-buffer-name)
filter-alist) (message "Sticky Agenda buffer, use `r' to refresh") (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (throw (quote exit) "Sticky Agenda buffer, use `r' to
refresh")) (setq org-todo-keywords-for-agenda nil) (put (quote org-agenda-tag-filter) :preset-filter org-agenda-tag-filter-preset) (put (quote org-agenda-category-filter)
:preset-filter org-agenda-category-filter-preset) (put (quote org-agenda-regexp-filter) :preset-filter org-agenda-regexp-filter-preset) (put (quote org-agenda-effort-filter)
:preset-filter org-agenda-effort-filter-preset) (if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp) org-agenda-compact-blocks (not
org-agenda-block-separator)) nil (insert "\n" (if (stringp org-agenda-block-separator) org-agenda-block-separator (make-string ... org-agenda-block-separator)) "\n"))
(narrow-to-region (point) (point-max))) (setq org-done-keywords-for-agenda nil) (org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name) filter-alist) (setq
buffer-read-only nil) (org-agenda-reset-markers) (let ((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq org-agenda-buffer (current-buffer)) (setq
org-agenda-contributing-files nil) (setq org-agenda-columns-active nil) (org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (setq org-todo-keywords-for-agenda
(org-uniquify org-todo-keywords-for-agenda)) (setq org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg current-prefix-arg)
(setq org-agenda-this-buffer-name org-agenda-buffer-name) (and name (not org-agenda-name) (org-set-local (quote org-agenda-name) name))) (setq buffer-read-only nil)))
  org-agenda-prepare("TODO")
  (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name (if (stringp org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or org-keys "t")
org-select-this-todo-keyword) (format "*Org Agenda(%s)*" (or org-keys "t"))))) (org-agenda-prepare "TODO") (org-compile-prefix-format (quote todo)) (org-set-sorting-strategy (quote
todo)) (setq org-agenda-redo-command (list (quote org-todo-list) (list (quote or) (quote (and (numberp current-prefix-arg) current-prefix-arg)) org-select-this-todo-keyword (quote
current-prefix-arg) arg))) (setq files (org-agenda-files nil (quote ifmode)) rtnall nil) (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile)
(org-check-agenda-file file) (setq rtn (org-agenda-get-day-entries file date :todo)) (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 "Global list of TODO items of type: ") (add-text-properties (point-min)
(1- (point)) (list (quote face) (quote org-agenda-structure) (quote short-heading) (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) (org-agenda-mark-header-line
(point-min)) (insert (org-agenda-propertize-selected-todo-keywords org-select-this-todo-keyword)) (setq pos (point)) (if org-agenda-multi nil (insert "Available with `N r':
(0)[ALL]") (let ((n 0) s) (mapc (function (lambda (x) (setq s ...) (if ... ...) (insert " " s))) kwds)) (insert "\n")) (add-text-properties pos (1- (point)) (list (quote face)
(quote org-agenda-structure)))) (org-agenda-mark-header-line (point-min)) (if rtnall (progn (insert (org-agenda-finalize-entries rtnall (quote todo)) "\n"))) (goto-char
(point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-max) (list (quote org-agenda-type) (quote todo) (quote org-last-args)
arg (quote org-redo-cmd) org-agenda-redo-command (quote org-series-cmd) org-cmd)) (org-agenda-finalize) (setq buffer-read-only t))
  (let* ((today (org-today)) (date (calendar-gregorian-from-absolute today)) (kwds org-todo-keywords-for-agenda) (completion-ignore-case t) (org-select-this-todo-keyword (if
(stringp arg) arg (and arg (integerp arg) (> arg 0) (nth (1- arg) kwds)))) rtn rtnall files file pos) (if (equal arg (quote (4))) (progn (setq org-select-this-todo-keyword
(org-icompleting-read "Keyword (or KWD1|K2D2|...): " (mapcar (quote list) kwds) nil nil)))) (and (equal 0 arg) (setq org-select-this-todo-keyword nil)) (catch (quote exit) (if
org-agenda-sticky (setq org-agenda-buffer-name (if (stringp org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or org-keys "t") org-select-this-todo-keyword) (format
"*Org Agenda(%s)*" (or org-keys "t"))))) (org-agenda-prepare "TODO") (org-compile-prefix-format (quote todo)) (org-set-sorting-strategy (quote todo)) (setq org-agenda-redo-command
(list (quote org-todo-list) (list (quote or) (quote (and (numberp current-prefix-arg) current-prefix-arg)) org-select-this-todo-keyword (quote current-prefix-arg) arg))) (setq
files (org-agenda-files nil (quote ifmode)) rtnall nil) (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (org-check-agenda-file file) (setq
rtn (org-agenda-get-day-entries file date :todo)) (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 "Global list of TODO items of type: ") (add-text-properties (point-min) (1- (point))
(list (quote face) (quote org-agenda-structure) (quote short-heading) (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) (org-agenda-mark-header-line (point-min)) (insert
(org-agenda-propertize-selected-todo-keywords org-select-this-todo-keyword)) (setq pos (point)) (if org-agenda-multi nil (insert "Available with `N r': (0)[ALL]") (let ((n 0) s)
(mapc (function (lambda ... ... ... ...)) kwds)) (insert "\n")) (add-text-properties pos (1- (point)) (list (quote face) (quote org-agenda-structure))))
(org-agenda-mark-header-line (point-min)) (if rtnall (progn (insert (org-agenda-finalize-entries rtnall (quote todo)) "\n"))) (goto-char (point-min)) (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-max) (list (quote org-agenda-type) (quote todo) (quote org-last-args) arg (quote org-redo-cmd)
org-agenda-redo-command (quote org-series-cmd) org-cmd)) (org-agenda-finalize) (setq buffer-read-only t)))
  org-todo-list(nil)
  call-interactively(org-todo-list)
  (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 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 (user-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) (function (lambda nil (if (current-message) nil (let* (... ...) (if note ...))))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote org-mode)) nil
(user-error "This is not an Org-mode file")) (if restriction nil (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 (user-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 (function (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) (if org-agenda-overriding-restriction nil (if (and (boundp (quote
org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-list) nil (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)) (if org-keys nil (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))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq
org-agenda-restrict (current-buffer)) (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 (current-buffer)) (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 (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-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 (user-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) (function (lambda nil (if (current-message) nil (let* ...
...)))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote org-mode)) nil (user-error "This is not an Org-mode file")) (if restriction nil (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 (user-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 (function (lambda ...
...)) 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) (if org-agenda-overriding-restriction nil (if (and (boundp (quote
org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-list) nil (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)) (if org-keys nil (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))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq
org-agenda-restrict (current-buffer)) (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 ...) (org-back-to-heading t) (move-marker org-agenda-restrict-begin ...) (move-marker org-agenda-restrict-end ...)))))) (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) (function (lambda nil (if ... nil ...))) t t)) ((equal
org-keys "L") (if (derived-mode-p (quote org-mode)) nil (user-error "This is not an Org-mode file")) (if restriction nil (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 (user-error "Invalid agenda key")))))
  org-agenda(nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)



Karl Fogel | 24 Nov 18:36 2014

[PATCH] Improve success message from org-remove-file.

The attached patch improves the interactive success message from
`org-remove-file'.  Comments / suggestions welcome, of course; I've
tried to follow http://orgmode.org/worg/org-contribute.html here.

Best,
-Karl

Marcin Borkowski | 24 Nov 16:53 2014
Picon

How to represent Emacs keystrokes in Org?

Hello,

I'm writing (in Org) a text on Emacs usage.  How to
correctly/canonically represent keystrokes, like "C-x RET f"?
Currently, I use =C-x RET f=; are there any alternatives?

TIA,

--

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University


Gmane