comparison lisp/textmodes/org.el @ 68031:f556787bf755

(org-end-of-subtree): New function. (org-cycle, org-subtree-end-visible-p, org-scan-tags): Use `org-end-of-subtree'. (org-agenda, org-agenda-convert-date): Protect calls to `fit-window-to-buffer'. (org-tags-view): Force matching of sublevels when doing a todo-only search. Define the correct redo command, including the arguments. (org-agenda-redo): Display message. (org-check-for-org-mode): New function. (org-agenda-type): New variable. (org-timeline, org-agenda-list, org-todo-list, org-tags-view): Set `org-agenda-type'. (org-agenda-check-type): New function. (org-agenda-goto-today, org-agenda-later, org-agenda-earlier) (org-agenda-week-view, org-agenda-day-view) (org-agenda-next-date-line, org-agenda-previous-date-line) (org-agenda-log-mode, org-agenda-toggle-diary) (org-agenda-toggle-time-grid, org-agenda-date-later) (org-agenda-date-prompt, org-agenda-diary-entry) (org-agenda-execute-calendar-command, org-agenda-goto-calendar) (org-agenda-convert-date, org-agenda-menu): Use `org-agenda-check-type'. (org-make-overlay, org-delete-overlay) (org-detatch-overlay, org-move-overlay, org-overlay-put): New compatibility functions. (org-calendar-select-mouse): New command.

68030:fe40de091488

;;; org.el --- Outline-based notes management and organize
;; Carstens outline-mode for keeping track of everything.
;; Copyright (c) 2004, 2005 Free Software Foundation
;;
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.01
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; distribution also contains a PDF version of it.  At the homepage of
;; Org-mode, you can read the same text online as HTML.  There is also an
;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Changes:
;; -------
;; Version 4.01
;;    - Tags can also be set remotely from agenda buffer.
;;    - Boolean logic for tag searches.
;;    - Additional agenda commands can be configured through the variable
;;      `org-agenda-custom-commands'.
;;    - Minor bug fixes.
;;
;; Version 4.00
;;    - Headlines can contain TAGS, and Org-mode can produced a list
;;      of matching headlines based on a TAG search expression.
;;    - `org-agenda' has now become a dispatcher that will produce the agenda
;;      and other views on org-mode data with an additional keypress.
;;
;; Version 3.24
;;    - Switching and item to DONE records a time stamp when the variable
;;      `org-log-done' is turned on.  Default is off.
;;
;; Version 3.23
;;    - M-RET makes new items as well as new headings.
;;    - Various small bug fixes
;;
;; Version 3.22
;;    - CamelCase words link to other locations in the same file.
;;    - File links accept search options, to link to specific locations.
;;    - Plain list items can be folded with `org-cycle'.  See new option
;;      `org-cycle-include-plain-lists'.
;;    - Sparse trees for specific TODO keywords through numeric prefix
;;      argument to `C-c C-v'.
;;    - Global TODO list, also for specific keywords.
;;    - Matches in sparse trees are highlighted (highlights disappear with
;;      next buffer change due to editing).
;;
;; Version 3.21
;;    - Improved CSS support for the HTML export.  Thanks to Christian Egli.
;;    - Editing support for hand-formatted lists
;;      - M-S-cursor keys handle plain list items
;;      - C-c C-c renumbers ordered plain lists
;;
;; Version 3.20
;;    - There is finally an option to make TAB jump over horizontal lines
;;      in tables instead of creating a new line before that line.
;;      The option is `org-table-tab-jumps-over-hlines', default nil.
;;    - New command for sorting tables, on `C-c ^'.
;;    - Changes to the HTML exporter
;;      - hand-formatted lists are exported correctly, similar to
;;        markdown lists.  Nested lists are possible.  See the docstring
;;        of the variable `org-export-plain-list-max-depth'.
;;      - cleaned up to produce valid HTML 4.0 (transitional).
;;      - support for cascading style sheets.
;;    - New command to cycle through all agenda files, on C-,
;;    - C-c [ can now also be used to change the sequence of agenda files.
;;
;; Version 3.19
;;    - Bug fixes
;;
;; Version 3.18
;;    - Export of calendar information in the standard iCalendar format.
;;    - Some bug fixes.
;;
;; Version 3.17
;;    - HTML export specifies character set depending on coding-system.
;;
;; Version 3.16
;;    - In tables, directly after the field motion commands like TAB and RET,
;;      typing a character will blank the field.  Can be turned off with
;;      variable `org-table-auto-blank-field'.
;;    - Inactive timestamps with `C-c !'.  These do not trigger the agenda
;;      and are not linked to the calendar.
;;    - Additional key bindings to allow Org-mode to function on a tty emacs.
;;    - `C-c C-h' prefix key replaced by `C-c C-x', and `C-c C-x C-h' replaced
;;      by `C-c C-x b' (b=Browser).  This was necessary to recover the
;;      standard meaning of C-h after a prefix key (show prefix bindings).
;;
;; Version 3.15
;;    - QUOTE keyword at the beginning of an entry causes fixed-width export
;;      of unmodified entry text. `C-c :' toggles this keyword.
;;    - New face `org-special-keyword' which is used for COMMENT, QUOTE,
;;      DEADLINE and SCHEDULED, and priority cookies.  Default is only a weak
;;      color, to reduce the amount of aggressive color in the buffer.
;;
;; Version 3.14
;;    - Formulas for individual fields in table.
;;    - Automatic recalculation in calculating tables.
;;    - Named fields and columns in tables.
;;    - Fixed bug with calling `org-archive' several times in a row.
;;
;; Version 3.13
;;    - Efficiency improvements:  Fewer table re-alignments needed.
;;    - New special lines in tables, for defining names for individual cells.
;;
;; Version 3.12
;;    - Tables can store formulas (one per column) and compute fields.
;;      Not quite like a full spreadsheet, but very powerful.
;;    - table.el keybinding is now `C-c ~'.
;;    - Numeric argument to org-cycle does `show-subtree' above on level ARG.
;;    - Small changes to keys in agenda buffer.  Affected keys:
;;      [w] weekly view; [d] daily view; [D] toggle diary inclusion.
;;    - Bug fixes.
;;
;; Version 3.11
;;    - Links inserted with C-c C-l are now by default enclosed in angle
;;      brackets.  See the new variable `org-link-format'.
;;    - ">" terminates a link, this is a way to have several links in a line.
;;      Both "<" and ">" are no longer allowed as characters in a link.
;;    - Archiving of finished tasks.
;;    - C-<up>/<down> bindings removed, to allow access to paragraph commands.
;;    - Compatibility with CUA-mode (see variable `org-CUA-compatible').
;;    - Compatibility problems with viper-mode fixed.
;;    - Improved html export of tables.
;;    - Various clean-up changes.
;;
;; Version 3.10
;;    - Using `define-derived-mode' to derive `org-mode' from `outline-mode'.
;;
;; Version 3.09
;;    - Time-of-day specifications in agenda are extracted and placed
;;      into the prefix.  Timed entries can be placed into a time grid for
;;      day.
;;
;; Version 3.08
;;    - "|" no longer allowed as part of a link, to allow links in tables.
;;    - The prefix of items in the agenda buffer can be configured.
;;    - Cleanup.
;;
;; Version 3.07
;;    - Some folding inconsistencies removed.
;;    - BBDB links to company-only entries.
;;    - Bug fixes and global cleanup.
;;
;; Version 3.06
;;    - M-S-RET inserts a new TODO heading.
;;    - New startup option `content'.
;;    - Better visual response when TODO items in agenda change status.
;;    - Window positioning after visibility state changes optimized and made
;;      configurable.  See `org-cycle-hook' and `org-occur-hook'.
;;
;; Version 3.05
;;    - Agenda entries from the diary are linked to the diary file, so
;;      adding and editing diary entries can be done directly from the agenda.
;;    - Many calendar/diary commands available directly from agenda.
;;    - Field copying in tables with S-RET does increment.
;;    - C-c C-x C-v extracts the visible part of the buffer for printing.
;;    - Moving subtrees up and down preserves the whitespace at the tree end.
;;
;; Version 3.04
;;    - Table editor optimized to need fewer realignments, and to keep
;;      table shape when typing in fields.
;;    - A new minor mode, orgtbl-mode, introduces the Org-mode table editor
;;      into arbitrary major modes.
;;    - Fixed bug with realignment in XEmacs.
;;    - Startup options can be set with special #+STARTUP line.
;;    - Heading following a match in org-occur can be suppressed.
;;
;; Version 3.03
;;    - Copyright transfer to the FSF.
;;    - Effect of C-u and C-u C-u in org-timeline swapped.
;;    - Timeline now always contains today, and `.' jumps to it.
;;    - Table editor:
;;      - cut and paste of rectangular regions in tables
;;      - command to convert org-mode table to table.el table and back
;;      - command to treat several cells like a paragraph and fill it
;;      - command to convert a buffer region to a table
;;      - import/export tables as tab-separated files (exchange with Excel)
;;    - Agenda:
;;      - Sorting mechanism for agenda items rewritten from scratch.
;;      - Sorting fully configurable.
;;      - Entries specifying a time are sorted together.
;;    - Completion also covers option keywords after `#-'.
;;    - Bug fixes.
;;
;; Version 3.01
;;    - New reference card, thanks to Philip Rooke for creating it.
;;    - Single file agenda renamed to "Timeline".  It no longer shows
;;      warnings about upcoming deadlines/overdue scheduled items.
;;      That functionality is now limited to the (multifile) agenda.
;;    - When reading a date, the calendar can be manipulated with keys.
;;    - Link support for RMAIL and Wanderlust (from planner.el, untested).
;;    - Minor bug fixes and documentation improvements.

;;; Code:

(eval-when-compile (require 'cl) (require 'calendar))
(require 'outline)
(require 'time-date)

Entries are added to this list with \\[org-agenda-file-to-front] and removed with
\\[org-remove-file].  You can also use customize to edit the list."
  :group 'org-agenda
  :type '(repeat file))

(defcustom org-agenda-custom-commands
  '(("w" todo "WAITING")
    ("u" tags "+WORK+URGENT-BOSS"))
  "Custom commands for the agenda.
These commands will be offered on the splash screen displayed by the
agenda dispatcher \\[org-agenda].  Each entry is a list of 3 items:

key    The key (as a string) to be associated with the command.
type   The command type, either `todo' for a todo list with a specific
       todo keyword, or `tags' for a tags search.
match  What to search for.  Either a TODO keyword, or a tags match query."
  :group 'org-agenda
  :type '(repeat
	  (list (string :tag "Key")
		(choice :tag "Type" (const tags) (const todo))
		(string :tag "Match"))))

(defcustom org-select-timeline-window t
  "Non-nil means, after creating a timeline, move cursor into Timeline window.
When nil, cursor will remain in the current window."

Because of tag inheritance (see variable `org-use-tag-inheritance'),
the sublevels of a headline matching a tag search often also match
the same search.  Listing all of them can create very long lists.
Setting this variable to nil causes subtrees to be skipped.
This option is off by default, because inheritance in on.  If you turn
inheritance off, you very likely want to turn this option on."
  :group 'org-tags
  :type 'boolean)

(defvar org-tags-history nil
  "History of minibuffer reads for tags.")

  ;; Activate before-change-function
  (set (make-local-variable 'org-table-may-need-update) t)
  (make-local-hook 'before-change-functions)  ;; needed for XEmacs
  (add-hook 'before-change-functions 'org-before-change-function nil
	    'local)
  ;; Paragraphs and auto-filling
  (org-set-autofill-regexps)
  ;; Settings for Calc embedded mode
  (set (make-local-variable 'calc-embedded-open-formula) "|\\|\n")
  (set (make-local-variable 'calc-embedded-close-formula) "|\\|\n")

	(let ((this-command 'org-cycle) (last-command 'org-cycle))
	  (org-cycle '(4)) (org-cycle '(4))))))))

(defsubst org-current-line (&optional pos)
  (+ (if (bolp) 1 0) (count-lines (point-min) (or pos (point)))))

;;; Font-Lock stuff

(defvar org-mouse-map (make-sparse-keymap))
(define-key org-mouse-map

	    (beginning-of-line 2)
	    (while (and (not (eobp)) ;; this is like `next-line'
			(get-char-property (1- (point)) 'invisible))
	      (beginning-of-line 2)) (setq eol (point)))
	  (outline-end-of-heading)   (setq eoh (point))
	  (outline-end-of-subtree)   (setq eos (point))
	  (outline-next-heading))
	;; Find out what to do next and set `this-command'
	(cond
	 ((= eos eoh)
	  ;; Nothing is hidden behind this heading

   ((eq state 'subtree)  (or (org-subtree-end-visible-p) (recenter 1)))))

(defun org-subtree-end-visible-p ()
  "Is the end of the current subtree visible?"
  (pos-visible-in-window-p
   (save-excursion (outline-end-of-subtree) (point))))

(defun org-first-headline-recenter (&optional N)
  "Move cursor to the first headline and recenter the headline.
Optional argument N means, put the headline into the Nth line of the window."
  (goto-char (point-min))

	(message "%d match(es) for regexp %s" cnt regexp))
    cnt))

(defun org-show-hierarchy-above ()
  "Make sure point and the headings hierarchy above is visible."
  (if (org-on-heading-p t)
      (org-flag-heading nil)    ; only show the heading
    (and (org-invisible-p) (org-show-hidden-entry)))    ; show entire entry
  (save-excursion
    (and org-show-following-heading
	 (outline-next-heading)
	 (org-flag-heading nil)))  ; show the next heading
  (when org-show-hierarchy-above
    (save-excursion                  ; show all higher headings
      (while (condition-case nil
		 (progn (org-up-heading-all 1) t)
	       (error nil))
	(org-flag-heading nil)))))

(defvar org-occur-highlights nil)
(defun org-highlight-new-match (beg end)
  "Highlight from BEG to END and mark the highlight is an occur headline."
  (let ((ov (make-overlay beg end)))
    (overlay-put ov 'face 'secondary-selection)
    (push ov org-occur-highlights)))

(defun org-remove-occur-highlights (&optional beg end noremove)
  "Remove the occur highlights from the buffer.
BEG and END are ignored.  If NOREMOVE is nil, remove this function
from the before-change-functions in the current buffer."
  (interactive)
  (mapc 'delete-overlay org-occur-highlights)
  (setq org-occur-highlights nil)
  (unless noremove
    (remove-hook 'before-change-functions
		 'org-remove-occur-highlights 'local)))
  

    (setq time (org-read-date arg 'totime))
    (if org-time-was-given (setq fmt (cdr org-time-stamp-formats)))
    (setq fmt (concat "[" (substring fmt 1 -1) "]"))
    (insert (format-time-string fmt time))))

;;; FIXME: Make the function take "Fri" as "next friday"
;;; because these are mostly being used to record the current time.
(defun org-read-date (&optional with-time to-time)
  "Read a date and make things smooth for the user.
The prompt will suggest to enter an ISO date, but you can also enter anything

	  (save-window-excursion
	    (calendar)
	    (calendar-forward-day (- (time-to-days default-time)
				     (calendar-absolute-from-gregorian
				      (calendar-current-date))))
	    (let* ((old-map (current-local-map))
		   (map (copy-keymap calendar-mode-map))
		   (minibuffer-local-map (copy-keymap minibuffer-local-map)))
	      (define-key map (kbd "RET") 'org-calendar-select)
	      (define-key map (if org-xemacs-p [button1] [mouse-1])
		'org-calendar-select)
	      (define-key minibuffer-local-map [(meta shift left)]
		(lambda () (interactive)
		  (org-eval-in-calendar '(calendar-backward-month 1))))
	      (define-key minibuffer-local-map [(meta shift right)]
		(lambda () (interactive)

		    (setq ans (read-string prompt "" nil nil))
		    (setq ans (or ans1 ans2 ans)))
		(use-local-map old-map)))))
      ;; Naked prompt only
      (setq ans (read-string prompt "" nil timestr)))

    (if (string-match
	 "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans)
	(progn
	  (setq year (if (match-end 2)

    (eval form)
    (when (calendar-cursor-to-date)
      (let* ((date (calendar-cursor-to-date))
	     (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
	(setq ans2 (format-time-string "%Y-%m-%d" time))))
    (and org-xemacs-p (sit-for .2))
    (select-window sw)))

(defun org-calendar-select ()
  "Return to `org-read-date' with the date currently selected.
This is used by `org-read-date' in a temporary keymap for the calendar buffer."
  (interactive)
  (when (calendar-cursor-to-date)
    (let* ((date (calendar-cursor-to-date))
	   (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
      (setq ans1 (format-time-string "%Y-%m-%d" time)))
    (if (active-minibuffer-window) (exit-minibuffer))))

(defvar org-agenda-follow-mode nil)
(defvar org-agenda-show-log nil)
(defvar org-agenda-buffer-name "*Org Agenda*")
(defvar org-agenda-redo-command nil)
(defvar org-agenda-mode-hook nil)

(defvar org-agenda-force-single-file nil)

;;;###autoload
(defun org-agenda-mode ()
  "Mode for time-sorted view on action items in Org-mode files.

     :style toggle :selected org-agenda-follow-mode :active t]
    "--"
    ["Cycle TODO" org-agenda-todo t]
    ["Set Tags" org-agenda-set-tags t]
    ("Reschedule"
     ["Reschedule +1 day" org-agenda-date-later t]
     ["Reschedule -1 day" org-agenda-date-earlier t]
     "--"
     ["Reschedule to ..." org-agenda-date-prompt t])
    ("Priority"
     ["Set Priority" org-agenda-priority t]
     ["Increase Priority" org-agenda-priority-up t]
     ["Decrease Priority" org-agenda-priority-down t]
     ["Show Priority" org-agenda-show-priority t])
    "--"
    ["Rebuild buffer" org-agenda-redo t]
    ["Goto Today" org-agenda-goto-today t]
    ["Next Dates" org-agenda-later (local-variable-p 'starting-day (current-buffer))]
    ["Previous Dates" org-agenda-earlier (local-variable-p 'starting-day (current-buffer))]
    "--"
    ["Day View" org-agenda-day-view :active (local-variable-p 'starting-day (current-buffer))
     :style radio :selected (equal org-agenda-ndays 1)]
    ["Week View" org-agenda-week-view :active (local-variable-p 'starting-day (current-buffer))
     :style radio :selected (equal org-agenda-ndays 7)]
    "--"
    ["Show Logbook entries" org-agenda-log-mode
     :style toggle :selected org-agenda-show-log :active t]
    ["Include Diary" org-agenda-toggle-diary
     :style toggle :selected org-agenda-include-diary :active t]
    ["Use Time Grid" org-agenda-toggle-time-grid
     :style toggle :selected org-agenda-use-time-grid :active t]
    "--"
    ["New Diary Entry" org-agenda-diary-entry t]
    ("Calendar Commands"
     ["Goto Calendar" org-agenda-goto-calendar t]
     ["Phases of the Moon" org-agenda-phases-of-moon t]
     ["Sunrise/Sunset" org-agenda-sunrise-sunset t]
     ["Holidays" org-agenda-holidays t]
     ["Convert" org-agenda-convert-date t])
    ["Create iCalendar file" org-export-icalendar-combine-agenda-files t]
    "--"
    ["Quit" org-agenda-quit t]
    ["Exit and Release Buffers" org-agenda-exit t]
    ))

Prompts for a character to select a command.  Any prefix arg will be passed
on to the selected command.  The default selections are:

a     Call `org-agenda' to display the agenda for the current day or week.
t     Call `org-todo-list' to display the global todo list.
T     Call `org-todo-list' to display the global todo list, put
      select only entries with a specific TODO keyword.
m     Call `org-tags-view' to display headlines with tags matching
      a condition.  The tags condition is a list of positive and negative
      selections, like `+WORK+URGENT-WITHBOSS'.
M     like `m', but select only TODO entries, no ordinary headlines.

More commands can be added by configuring the variable
`org-agenda-custom-commands'.

If the current buffer is in Org-mode and visiting a file, you can also
first press `1' to indicate that the agenda should be temporarily
restricted to the current file."
  (interactive "P")
  (catch 'exit
    (let ((restrict-ok (and (buffer-file-name) (eq major-mode 'org-mode)))
	  (custom org-agenda-custom-commands)
	  c entry key type string)

t   List of all TODO entries             T   Entries with special TODO kwd
m   Match a TAGS query                   M   Like m, but only TODO entries.
C   Configure your own agenda commands")
	(while (setq entry (pop custom))
	  (setq key (car entry) type (nth 1 entry) string (nth 2 entry))
	  (insert (format "\n%-4s%-12s: %s"
			  key
			  (if (eq type 'tags) "Tags query" "TODO keyword")
			  string)))
	(goto-char (point-min))
	(fit-window-to-buffer)
	(message "Press key for agenda command%s"
		(if restrict-ok ", or [1] to restrict to current file" ""))
	(setq c (read-char-exclusive))
	(message "")
	(when (equal c ?1)
	  (if restrict-ok
	      (put 'org-agenda-files 'org-restrict (list (buffer-file-name)))

	  (message "Press key for agenda command%s"
		   (if restrict-ok " (restricted to current file)" ""))
	  (setq c (read-char-exclusive))
	  (message "")))
      (require 'calendar)  ; FIXME: can we avoid this for some commands?
      (cond
       ((equal c ?C) (customize-variable 'org-agenda-custom-commands))
       ((equal c ?a) (call-interactively 'org-agenda-list))
       ((equal c ?t) (call-interactively 'org-todo-list))
       ((equal c ?T)

	(cond
	 ((eq type 'tags)
	  (org-tags-view current-prefix-arg string))
	 ((eq type 'todo)
	  (org-todo-list string))
	 (t (error "Invalid custom agenda command type %s" type))))
       (t (error "Invalid key"))))))

(defun org-fit-agenda-window ()
  "Fit the window to the buffer size."
  (and org-fit-agenda-window
       (fboundp 'fit-window-to-buffer)

    (switch-to-buffer-other-window
     (get-buffer-create org-agenda-buffer-name))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (if doclosed (push :closed args))
    (push :timestamp args)
    (if dotodo (push :todo args))
    (while (setq d (pop day-numbers))
      (if (and (>= d today)

	  (switch-to-buffer-other-window
	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'starting-day) (car day-numbers))
    (set (make-local-variable 'include-all-loc) include-all)
    (when (and (or include-all org-agenda-include-all-todo)
	       (member today day-numbers))
      (setq files (org-agenda-files)

	  (switch-to-buffer-other-window
	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'last-arg) arg)
    (set (make-local-variable 'org-todo-keywords) kwds)
    (set (make-local-variable 'org-agenda-redo-command)
	 '(org-todo-list (or current-prefix-arg last-arg) t))
    (setq files (org-agenda-files)

    (if (not org-select-agenda-window) (select-window win))))

(defun org-check-agenda-file (file)
  "Make sure FILE exists.  If not, ask user what to do."
  ;; FIXME:  this does not correctly change the menus
  ;; Could probably be fixed by explicitly going to the buffer.
  (when (not (file-exists-p file))
    (message "non-existent file %s.  [R]emove from agenda-files or [A]bort?"
	     file)
    (let ((r (downcase (read-char-exclusive))))
      (cond
       ((equal r ?r)
	(org-remove-file file)
	(throw 'nextfile t))
       (t (error "Abort"))))))

(defun org-agenda-quit ()
  "Exit agenda by removing the window or the buffer."
  (interactive)
  (let ((buf (current-buffer)))
    (if (not (one-window-p)) (delete-window))

(defun org-agenda-redo ()
  "Rebuild Agenda.
When this is the global TODO list, a prefix argument will be interpreted."
  (interactive)
  (eval org-agenda-redo-command))

(defun org-agenda-goto-today ()
  "Go to today."
  (interactive)
  (if (boundp 'starting-day)
      (let ((cmd (car org-agenda-redo-command))
	    (iall (nth 1 org-agenda-redo-command))
	    (nday (nth 3 org-agenda-redo-command))
	    (keep (nth 4 org-agenda-redo-command)))

(defun org-agenda-later (arg)
  "Go forward in time by `org-agenda-ndays' days.
With prefix ARG, go forward that many times `org-agenda-ndays'."
  (interactive "p")
  (unless (boundp 'starting-day)
    (error "Not allowed"))
  (org-agenda-list (if (boundp 'include-all-loc) include-all-loc nil)
		   (+ starting-day (* arg org-agenda-ndays)) nil t))

(defun org-agenda-earlier (arg)
  "Go back in time by `org-agenda-ndays' days.
With prefix ARG, go back that many times `org-agenda-ndays'."
  (interactive "p")
  (unless (boundp 'starting-day)
    (error "Not allowed"))
  (org-agenda-list (if (boundp 'include-all-loc) include-all-loc nil)
		   (- starting-day (* arg org-agenda-ndays)) nil t))

(defun org-agenda-week-view ()
  "Switch to weekly view for agenda."
  (interactive)
  (unless (boundp 'starting-day)
    (error "Not allowed"))
  (setq org-agenda-ndays 7)
  (org-agenda-list include-all-loc
		   (or (get-text-property (point) 'day)
		       starting-day)
		   nil t)

  (message "Switched to week view"))

(defun org-agenda-day-view ()
  "Switch to weekly view for agenda."
  (interactive)
  (unless (boundp 'starting-day)
    (error "Not allowed"))
  (setq org-agenda-ndays 1)
  (org-agenda-list include-all-loc
		   (or (get-text-property (point) 'day)
		       starting-day)
		   nil t)

  (message "Switched to day view"))

(defun org-agenda-next-date-line (&optional arg)
  "Jump to the next line indicating a date in agenda buffer."
  (interactive "p")
  (beginning-of-line 1)
  (if (looking-at "^\\S-") (forward-char 1))
  (if (not (re-search-forward "^\\S-" nil t arg))
      (progn
	(backward-char 1)

  (goto-char (match-beginning 0)))

(defun org-agenda-previous-date-line (&optional arg)
  "Jump to the next line indicating a date in agenda buffer."
  (interactive "p")
  (beginning-of-line 1)
  (if (not (re-search-backward "^\\S-" nil t arg))
      (error "No previous date before this line in this buffer")))

;; Initialize the highlight
(defvar org-hl (funcall (if org-xemacs-p 'make-extent 'make-overlay) 1 1))
(funcall (if org-xemacs-p 'set-extent-property 'overlay-put) org-hl
	 'face 'highlight)

(defun org-highlight (begin end &optional buffer)
  "Highlight a region with overlay."
  (funcall (if org-xemacs-p 'set-extent-endpoints 'move-overlay)
	   org-hl begin end (or buffer (current-buffer))))

	   (if org-agenda-follow-mode "on" "off")))

(defun org-agenda-log-mode ()
  "Toggle follow mode in an agenda buffer."
  (interactive)
  (setq org-agenda-show-log (not org-agenda-show-log))
  (org-agenda-set-mode-name)
  (org-agenda-redo)
  (message "Log mode is %s"
	   (if org-agenda-show-log "on" "off")))

(defun org-agenda-toggle-diary ()
  "Toggle follow mode in an agenda buffer."
  (interactive)
  (setq org-agenda-include-diary (not org-agenda-include-diary))
  (org-agenda-redo)
  (org-agenda-set-mode-name)
  (message "Diary inclusion turned %s"
	   (if org-agenda-include-diary "on" "off")))

(defun org-agenda-toggle-time-grid ()
  "Toggle follow mode in an agenda buffer."
  (interactive)
  (setq org-agenda-use-time-grid (not org-agenda-use-time-grid))
  (org-agenda-redo)
  (org-agenda-set-mode-name)
  (message "Time-grid turned %s"
	   (if org-agenda-use-time-grid "on" "off")))

	 marker priority category
	 ee txt)
    (goto-char (point-min))
    (while (re-search-forward regexp nil t)
      (goto-char (match-beginning 1))
      (setq marker (org-agenda-new-marker (point-at-bol))
	    category (org-get-category)
	    txt (org-format-agenda-item "" (match-string 1) category)
	    priority
	    (+ (org-get-priority txt)
	       (if org-todo-kwd-priority-p
			 (- org-todo-kwd-max-priority -2
			    (length
			     (member (match-string 2) org-todo-keywords)))
		       1)))
      (add-text-properties
       0 (length txt) (append (list 'org-marker marker 'org-hd-marker marker
				    'priority priority 'category category)
			      props)
       txt)

(defun org-agenda-set-tags ()
  "Set tags for the current headline."
  (interactive)
  (org-agenda-check-no-diary)
  (let* ((marker (or (get-text-property (point) 'org-marker)
		     (org-agenda-error)))
	 (hdmarker (get-text-property (point) 'org-hd-marker))
	 (buffer (marker-buffer hdmarker))
	 (pos (marker-position hdmarker))
	 (buffer-read-only nil)
	 newhead)
    (with-current-buffer buffer

    (beginning-of-line 1)))

(defun org-agenda-date-later (arg &optional what)
  "Change the date of this item to one day later."
  (interactive "p")
  (org-agenda-check-no-diary)
  (let* ((marker (or (get-text-property (point) 'org-marker)
		     (org-agenda-error)))
	 (buffer (marker-buffer marker))
	 (pos (marker-position marker)))

(defun org-agenda-date-prompt (arg)
  "Change the date of this item.  Date is prompted for, with default today.
The prefix ARG is passed to the `org-time-stamp' command and can therefore
be used to request time specification in the time stamp."
  (interactive "P")
  (org-agenda-check-no-diary)
  (let* ((marker (or (get-text-property (point) 'org-marker)
		     (org-agenda-error)))
	 (buffer (marker-buffer marker))
	 (pos (marker-position marker)))

      (message "Time stamp changed to %s" org-last-changed-timestamp))))

(defun org-get-heading ()
  "Return the heading of the current entry, without the stars."
  (save-excursion
    (and (bolp) (end-of-line 1))
    (if (and (re-search-backward "[\r\n]\\*" nil t)
	     (looking-at "[\r\n]\\*+[ \t]+\\(.*\\)"))
	(match-string 1)
      "")))

(defun org-agenda-diary-entry ()
  "Make a diary entry, like the `i' command from the calendar.
All the standard commands work: block, weekly etc"
  (interactive)
  (require 'diary-lib)
  (let* ((char (progn
		 (message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic")
		 (read-char-exclusive)))
	 (cmd (cdr (assoc char

(defun org-agenda-execute-calendar-command (cmd)
  "Execute a calendar command from the agenda, with the date associated to
the cursor position."
  (require 'diary-lib)
  (unless (get-text-property (point) 'day)
    (error "Don't know which date to use for calendar command"))
  (let* ((oldf (symbol-function 'calendar-cursor-to-date))
	 (point (point))

    (org-agenda-execute-calendar-command 'calendar-sunrise-sunset)))

(defun org-agenda-goto-calendar ()
  "Open the Emacs calendar with the date at the cursor."
  (interactive)
  (let* ((day (or (get-text-property (point) 'day)
		  (error "Don't know which date to open in calendar")))
	 (date (calendar-gregorian-from-absolute day))
	 (calendar-move-hook nil)
	 (view-diary-entries-initially nil))

			(calendar-cursor-to-date))
		   nil t))

(defun org-agenda-convert-date ()
  (interactive)
  (let ((day (get-text-property (point) 'day))
	date s)
    (unless day
      (error "Don't know which date to convert"))
    (setq date (calendar-gregorian-from-absolute day))

	     "Ethiopic:   " (calendar-ethiopic-date-string date) "\n"
	     "Persian:    " (calendar-persian-date-string date) "\n"
	     "Chinese:    " (calendar-chinese-date-string date) "\n"))
    (with-output-to-temp-buffer "*Dates*"
      (princ s))
    (fit-window-to-buffer (get-buffer-window "*Dates*"))))

;;; Tags

(defun org-scan-tags (action matcher &optional todo-only)
  "Scan headline tags with inheritance and produce output ACTION.

		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 tags tags-list tags-alist (llast 0) rtn level category i txt
	 todo marker)

    (save-excursion
      (goto-char (point-min))
      (when (eq action 'sparse-tree) (hide-sublevels 1))
      (while (re-search-forward re nil t)
	(setq todo (if (match-end 1) (match-string 2))
	      tags (if (match-end 4) (match-string 4)))
	(goto-char (1+ (match-beginning 0)))
	(setq level (outline-level)
	      category (org-get-category))
	(setq i llast llast level)
	;; remove tag lists from same and sublevels
	(while (>= i level)

		       (concat
			(if org-tags-match-list-sublevels
			    (make-string (1- level) ?.) "")
			(org-get-heading))
		       category))
	    (setq marker (org-agenda-new-marker))
	    (add-text-properties
	     0 (length txt) 
	     (append (list 'org-marker marker 'org-hd-marker marker
			   'category category)
		     props)
	     txt)
	    (push txt rtn))
	  ;; if we are to skip sublevels, jump to end of subtree
	  (or org-tags-match-list-sublevels (outline-end-of-subtree)))))
    (nreverse rtn)))

(defun org-tags-sparse-tree (&optional arg match)
  "Create a sparse tree according to tags search string MATCH.
MATCH can contain positive and negative selection of tags, like

      (setq matcher nil))
    (setq matcher (if (> (length orlist) 1) (cons 'or orlist) (car orlist)))
    ;; Return the string and lisp forms of the matcher
    (cons match0 matcher)))

;;(org-make-tags-matcher "&hello&-you")


;;;###autoload
(defun org-tags-view (&optional todo-only match keep-modes)
  "Show all headlines for all `org-agenda-files' matching a TAGS criterions.
The prefix arg TODO-ONLY limits the search to TODO entries."
  (interactive "P")
  (org-agenda-maybe-reset-markers 'force)
  (org-compile-prefix-format org-agenda-prefix-format)
  (let* ((org-agenda-keep-modes keep-modes)
	 (win (selected-window))
	 (completion-ignore-case t)
	 rtn rtnall files file pos matcher
	 buffer)
    (setq matcher (org-make-tags-matcher match)

	  (switch-to-buffer-other-window
	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-redo-command)
	 '(call-interactively 'org-tags-view))
    (setq files (org-agenda-files)
	  rtnall nil)
    (while (setq file (pop files))
      (catch 'nextfile
	(org-check-agenda-file file)

    (add-text-properties (point-min) (1- (point))
			 (list 'face 'org-link))
    (setq pos (point))
    (insert match "\n")
    (add-text-properties pos (1- (point)) (list 'face 'org-warning))
    (when rtnall
      (insert (mapconcat 'identity rtnall "\n")))
    (goto-char (point-min))
    (setq buffer-read-only t)
    (org-fit-agenda-window)

  (interactive)
  (let* (;(inherit (org-get-inherited-tags))
	 (re (concat "^" outline-regexp))
	 (col (current-column))
	 (current (org-get-tags))
	 tags hd)
    (if arg
	(save-excursion
	  (goto-char (point-min))
	  (while (re-search-forward re nil t)
	    (org-set-tags nil t))

	      (let ((org-add-colon-after-tag-completion t))
		(completing-read "Tags: " 'org-tags-completion-function
				 nil nil current 'org-tags-history)))
	(while (string-match "[-+&]+" tags)
	  (setq tags (replace-match ":" t t tags)))
	(unless (string-match ":$" tags) (setq tags (concat tags ":")))
	(unless (string-match "^:" tags) (setq tags (concat ":" tags))))
      (if (equal current "")
	  (end-of-line 1)
	(beginning-of-line 1)
	(looking-at (concat "\\(.*\\)\\(" (regexp-quote current) "\\)[ \t]*"))
	(setq hd (match-string 1))
	(delete-region (match-beginning 0) (match-end 0))
	(insert (org-trim hd) " "))
      (unless (equal tags "")
	(move-to-column (max (current-column)
			     (if (> org-tags-column 0)
				 org-tags-column
			       (- (- org-tags-column) (length tags))))

  (let (tags)
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward "[ \t]:\\([A-Za-z_:]+\\):[ \t\r\n]" nil t)
	(mapc (lambda (x) (add-to-list 'tags x))
	      (org-split-string (match-string-no-properties 1) ":"))))
    (mapcar 'list tags)))

;;; Link Stuff

(defun org-find-file-at-mouse (ev)

  (interactive "P")
  (if (org-at-table-p)
      (org-table-paste-rectangle)
    (org-paste-subtree arg)))

;; FIXME: document tags
(defun org-ctrl-c-ctrl-c (&optional arg)
  "Call realign table, or recognize a table.el table, or update keywords.
When the cursor is inside a table created by the table.el package,
activate that table.  Otherwise, if the cursor is at a normal table
created with org.el, re-align that table.  This command works even if
the automatic table editor has been turned off.
If the cursor is in one of the special #+KEYWORD lines, this triggers
scanning the buffer for these lines and updating the information.
If the cursor is on a #+TBLFM line, re-apply the formulae to the table."
  (interactive "P")
  (let  ((org-enable-table-editor t))

					 image-file-name-extensions)
				 image-file-name-extensions)
			  t)
	      "\\'"))))

;; Functions needed for compatibility with old outline.el

;; The following functions capture almost the entire compatibility code
;; between the different versions of outline-mode.  The only other place
;; where this is important are the font-lock-keywords.  Search for
;; `org-noutline-p' to find it.

;; C-a should go to the beginning of a *visible* line, also in the
;; new outline.el.  I guess this should be patched into Emacs?
(defun org-beginning-of-line ()
  "Go to the beginning of the current line.  If that is invisible, continue

    (if (org-invisible-p)
	(while (and (not (bobp)) (org-invisible-p))
	  (backward-char 1)
	  (beginning-of-line 1))
      (forward-char 1))))
(when org-noutline-p
  (define-key org-mode-map "\C-a" 'org-beginning-of-line))

(defun org-invisible-p ()
  "Check if point is at a character currently not visible."
  (if org-noutline-p
      ;; Early versions of noutline don't have `outline-invisible-p'.

(defun org-back-to-heading (&optional invisible-ok)
  "Move to previous heading line, or beg of this line if it's a heading.
Only visible heading lines are considered, unless INVISIBLE-OK is non-nil."
  (if org-noutline-p
      (outline-back-to-heading invisible-ok)
    (if (looking-at outline-regexp)
	t
      (if (re-search-backward (concat (if invisible-ok "\\([\r\n]\\|^\\)" "^")
				      outline-regexp)
			      nil t)
	  (if invisible-ok

			   (save-excursion (outline-end-of-heading) (point))
			   (if org-noutline-p
			       flag
			     (if flag ?\r ?\n))))))

(defun org-show-subtree ()
  "Show everything after this heading at deeper levels."
  (outline-flag-region
   (point)
   (save-excursion

(run-hooks 'org-load-hook)

;; arch-tag: e77da1a7-acc7-4336-b19e-efa25af3f9fd
;;; org.el ends here

68031:f556787bf755

;;; org.el --- Outline-based notes management and organize
;; Carstens outline-mode for keeping track of everything.
;; Copyright (c) 2004, 2005, 2006 Free Software Foundation
;;
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.02
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; distribution also contains a PDF version of it.  At the homepage of
;; Org-mode, you can read the same text online as HTML.  There is also an
;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Changes since version 4.00:
;; ---------------------------
;; Version 4.02
;;    - Minor bug fixes and improvements around tag searches.
;;    - XEmacs compatibility fixes.
;;
;; Version 4.01
;;    - Tags can also be set remotely from agenda buffer.
;;    - Boolean logic for tag searches.
;;    - Additional agenda commands can be configured through the variable
;;      `org-agenda-custom-commands'.
;;    - Minor bug fixes.
;;
;;; Code:

(eval-when-compile (require 'cl) (require 'calendar))
(require 'outline)
(require 'time-date)

Entries are added to this list with \\[org-agenda-file-to-front] and removed with
\\[org-remove-file].  You can also use customize to edit the list."
  :group 'org-agenda
  :type '(repeat file))

(defcustom org-agenda-custom-commands '(("w" todo "WAITING"))
  "Custom commands for the agenda.
These commands will be offered on the splash screen displayed by the
agenda dispatcher \\[org-agenda].  Each entry is a list of 3 items:

key    The key (a single char as a string) to be associated with the command.
type   The command type, any of the following symbols:
        todo        Entries with a specific TODO keyword, in all agenda files.
        tags        Tags match in all agenda files.
        todo-tree   Sparse tree of specific TODO keyword in *current* file.
        tags-tree   Sparse tree with all tags matches in *current* file.
        occur-tree  Occur sparse tree for current file.
match  What to search for:
        - a single keyword for TODO keyword searches
        - a tags match expression for tags searches
        - a regular expression for occur searches"
  :group 'org-agenda
  :type '(repeat
	  (list (string :tag "Key")
		(choice :tag "Type"
			(const :tag "Tags search in all agenda files" tags)
			(const :tag "TODO keyword search in all agenda files" todo)
			(const :tag "Tags sparse tree in current buffer" tags-tree)
			(const :tag "TODO keyword tree in current buffer" todo-tree)
			(const :tag "Occur tree in current buffer" occur-tree))
		(string :tag "Match"))))

(defcustom org-select-timeline-window t
  "Non-nil means, after creating a timeline, move cursor into Timeline window.
When nil, cursor will remain in the current window."

Because of tag inheritance (see variable `org-use-tag-inheritance'),
the sublevels of a headline matching a tag search often also match
the same search.  Listing all of them can create very long lists.
Setting this variable to nil causes subtrees to be skipped.
This option is off by default, because inheritance in on.  If you turn
inheritance off, you very likely want to turn this option on.

As a special case, if the tag search is restricted to TODO items, the
value of this variable is ignored and sublevels are always checked, to
make sure all corresponding TODO items find their way into the list."
  :group 'org-tags
  :type 'boolean)

(defvar org-tags-history nil
  "History of minibuffer reads for tags.")

  ;; Activate before-change-function
  (set (make-local-variable 'org-table-may-need-update) t)
  (make-local-hook 'before-change-functions)  ;; needed for XEmacs
  (add-hook 'before-change-functions 'org-before-change-function nil
	    'local)
  ;; FIXME: The following does not work because isearch-mode-end-hook
  ;; is called *before* the visibility overlays as removed.
  ;; There should be another hook then for me to be used.
;;  (make-local-hook 'isearch-mode-end-hook)  ;; needed for XEmacs
;;  (add-hook 'isearch-mode-end-hook 'org-show-hierarchy-above nil
;;	    'local)
  ;; Paragraphs and auto-filling
  (org-set-autofill-regexps)
  ;; Settings for Calc embedded mode
  (set (make-local-variable 'calc-embedded-open-formula) "|\\|\n")
  (set (make-local-variable 'calc-embedded-close-formula) "|\\|\n")

	(let ((this-command 'org-cycle) (last-command 'org-cycle))
	  (org-cycle '(4)) (org-cycle '(4))))))))

(defsubst org-current-line (&optional pos)
  (+ (if (bolp) 1 0) (count-lines (point-min) (or pos (point)))))


;; FIXME: Do we need to copy?
(defun org-string-props (string &rest properties)
  "Add PROPERTIES to string."
  (add-text-properties 0 (length string) properties string)
  string)

;;; Font-Lock stuff

(defvar org-mouse-map (make-sparse-keymap))
(define-key org-mouse-map

	    (beginning-of-line 2)
	    (while (and (not (eobp)) ;; this is like `next-line'
			(get-char-property (1- (point)) 'invisible))
	      (beginning-of-line 2)) (setq eol (point)))
	  (outline-end-of-heading)   (setq eoh (point))
	  (org-end-of-subtree t)     (setq eos (point))
	  (outline-next-heading))
	;; Find out what to do next and set `this-command'
	(cond
	 ((= eos eoh)
	  ;; Nothing is hidden behind this heading

   ((eq state 'subtree)  (or (org-subtree-end-visible-p) (recenter 1)))))

(defun org-subtree-end-visible-p ()
  "Is the end of the current subtree visible?"
  (pos-visible-in-window-p
   (save-excursion (org-end-of-subtree t) (point))))

(defun org-first-headline-recenter (&optional N)
  "Move cursor to the first headline and recenter the headline.
Optional argument N means, put the headline into the Nth line of the window."
  (goto-char (point-min))

	(message "%d match(es) for regexp %s" cnt regexp))
    cnt))

(defun org-show-hierarchy-above ()
  "Make sure point and the headings hierarchy above is visible."
  (catch 'exit
    (if (org-on-heading-p t)
	(org-flag-heading nil)    ; only show the heading
      (and (org-invisible-p) (org-show-hidden-entry)))    ; show entire entry
    (save-excursion
      (and org-show-following-heading
	   (outline-next-heading)
	   (org-flag-heading nil)))  ; show the next heading
    (when org-show-hierarchy-above
      (save-excursion                  ; show all higher headings
	(while (and (condition-case nil
			(progn (org-up-heading-all 1) t)
		      (error nil))
		    (not (bobp)))
	  (org-flag-heading nil))))))

;; Overlay compatibility functions
(defun org-make-overlay (beg end &optional buffer)
  (if org-xemacs-p (make-extent beg end buffer) (make-overlay beg end buffer)))
(defun org-delete-overlay (ovl)
  (if org-xemacs-p (delete-extent ovl) (delete-overlay ovl)))
(defun org-detatch-overlay (ovl) 
  (if org-xemacs-p (detach-extent ovl) (delete-overlay ovl)))
(defun org-move-overlay (ovl beg end &optional buffer)
  (if org-xemacs-p
      (set-extent-endpoints ovl beg end buffer)
    (move-overlay ovl beg end buffer)))
(defun org-overlay-put (ovl prop value)
  (if org-xemacs-p
      (set-extent-property ovl prop value)
    (overlay-put ovl prop value)))

(defvar org-occur-highlights nil)
(defun org-highlight-new-match (beg end)
  "Highlight from BEG to END and mark the highlight is an occur headline."
  (let ((ov (org-make-overlay beg end)))
    (org-overlay-put ov 'face 'secondary-selection)
    (push ov org-occur-highlights)))

(defun org-remove-occur-highlights (&optional beg end noremove)
  "Remove the occur highlights from the buffer.
BEG and END are ignored.  If NOREMOVE is nil, remove this function
from the before-change-functions in the current buffer."
  (interactive)
  (mapc 'org-delete-overlay org-occur-highlights)
  (setq org-occur-highlights nil)
  (unless noremove
    (remove-hook 'before-change-functions
		 'org-remove-occur-highlights 'local)))
  

    (setq time (org-read-date arg 'totime))
    (if org-time-was-given (setq fmt (cdr org-time-stamp-formats)))
    (setq fmt (concat "[" (substring fmt 1 -1) "]"))
    (insert (format-time-string fmt time))))

(defvar org-date-ovl (org-make-overlay 1 1))
(org-overlay-put org-date-ovl 'face 'org-warning)
(org-detatch-overlay org-date-ovl)

;;; FIXME: Make the function take "Fri" as "next friday"
;;; because these are mostly being used to record the current time.
(defun org-read-date (&optional with-time to-time)
  "Read a date and make things smooth for the user.
The prompt will suggest to enter an ISO date, but you can also enter anything

	  (save-window-excursion
	    (calendar)
	    (calendar-forward-day (- (time-to-days default-time)
				     (calendar-absolute-from-gregorian
				      (calendar-current-date))))
            (org-eval-in-calendar nil)
	    (let* ((old-map (current-local-map))
		   (map (copy-keymap calendar-mode-map))
		   (minibuffer-local-map (copy-keymap minibuffer-local-map)))
	      (define-key map (kbd "RET") 'org-calendar-select)
	      (define-key map (if org-xemacs-p [button1] [mouse-1])
		'org-calendar-select-mouse)
	      (define-key map (if org-xemacs-p [button2] [mouse-2])
		'org-calendar-select-mouse)
	      (define-key minibuffer-local-map [(meta shift left)]
		(lambda () (interactive)
		  (org-eval-in-calendar '(calendar-backward-month 1))))
	      (define-key minibuffer-local-map [(meta shift right)]
		(lambda () (interactive)

		    (setq ans (read-string prompt "" nil nil))
		    (setq ans (or ans1 ans2 ans)))
		(use-local-map old-map)))))
      ;; Naked prompt only
      (setq ans (read-string prompt "" nil timestr)))
    (org-detatch-overlay org-date-ovl)

    (if (string-match
	 "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans)
	(progn
	  (setq year (if (match-end 2)

    (eval form)
    (when (calendar-cursor-to-date)
      (let* ((date (calendar-cursor-to-date))
	     (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
	(setq ans2 (format-time-string "%Y-%m-%d" time))))
    (org-move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer))
    (select-window sw)))

(defun org-calendar-select ()
  "Return to `org-read-date' with the date currently selected.
This is used by `org-read-date' in a temporary keymap for the calendar buffer."
  (interactive)
  (when (calendar-cursor-to-date)
    (let* ((date (calendar-cursor-to-date))
	   (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
      (setq ans1 (format-time-string "%Y-%m-%d" time)))
    (if (active-minibuffer-window) (exit-minibuffer))))

(defun org-calendar-select-mouse (ev)
  "Return to `org-read-date' with the date currently selected.
This is used by `org-read-date' in a temporary keymap for the calendar buffer."
  (interactive "e")
  (mouse-set-point ev)
  (when (calendar-cursor-to-date)
    (let* ((date (calendar-cursor-to-date))
	   (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
      (setq ans1 (format-time-string "%Y-%m-%d" time)))
    (if (active-minibuffer-window) (exit-minibuffer))))

(defvar org-agenda-follow-mode nil)
(defvar org-agenda-show-log nil)
(defvar org-agenda-buffer-name "*Org Agenda*")
(defvar org-agenda-redo-command nil)
(defvar org-agenda-mode-hook nil)
(defvar org-agenda-type nil)
(defvar org-agenda-force-single-file nil)

;;;###autoload
(defun org-agenda-mode ()
  "Mode for time-sorted view on action items in Org-mode files.

     :style toggle :selected org-agenda-follow-mode :active t]
    "--"
    ["Cycle TODO" org-agenda-todo t]
    ["Set Tags" org-agenda-set-tags t]
    ("Reschedule"
     ["Reschedule +1 day" org-agenda-date-later (org-agenda-check-type nil 'agenda 'timeline)]
     ["Reschedule -1 day" org-agenda-date-earlier (org-agenda-check-type nil 'agenda 'timeline)]
     "--"
     ["Reschedule to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda 'timeline)])
    ("Priority"
     ["Set Priority" org-agenda-priority t]
     ["Increase Priority" org-agenda-priority-up t]
     ["Decrease Priority" org-agenda-priority-down t]
     ["Show Priority" org-agenda-show-priority t])
    "--"
    ;; ["New agenda command" org-agenda t]
    ["Rebuild buffer" org-agenda-redo t]
    "--"
    ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda 'timeline)]
    ["Next Dates" org-agenda-later (org-agenda-check-type nil 'agenda)]
    ["Previous Dates" org-agenda-earlier (org-agenda-check-type nil 'agenda)]
    "--"
    ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda)
     :style radio :selected (equal org-agenda-ndays 1)]
    ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda)
     :style radio :selected (equal org-agenda-ndays 7)]
    "--"
    ["Show Logbook entries" org-agenda-log-mode
     :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda 'timeline)]
    ["Include Diary" org-agenda-toggle-diary
     :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)]
    ["Use Time Grid" org-agenda-toggle-time-grid
     :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)]
    "--"
    ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda 'timeline)]
    ("Calendar Commands"
     ["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda 'timeline)]
     ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda 'timeline)]
     ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda 'timeline)]
     ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda 'timeline)]
     ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda 'timeline)])
    ["Create iCalendar file" org-export-icalendar-combine-agenda-files t]
    "--"
    ["Quit" org-agenda-quit t]
    ["Exit and Release Buffers" org-agenda-exit t]
    ))

Prompts for a character to select a command.  Any prefix arg will be passed
on to the selected command.  The default selections are:

a     Call `org-agenda' to display the agenda for the current day or week.
t     Call `org-todo-list' to display the global todo list.
T     Call `org-todo-list' to display the global todo list, select only
      entries with a specific TODO keyword (the user get a prompt).
m     Call `org-tags-view' to display headlines with tags matching
      a condition  (the user is prompted for the condition).
M     like `m', but select only TODO entries, no ordinary headlines.

More commands can be added by configuring the variable
`org-agenda-custom-commands'.  In particular, specific tags and TODO keyword
searches can be pre-defined in this way.

If the current buffer is in Org-mode and visiting a file, you can also
first press `1' to indicate that the agenda should be temporarily (until the
next use of \\[org-agenda]) restricted to the current file."
  (interactive "P")
  (catch 'exit
    (let ((restrict-ok (and (buffer-file-name) (eq major-mode 'org-mode)))
	  (custom org-agenda-custom-commands)
	  c entry key type string)

t   List of all TODO entries             T   Entries with special TODO kwd
m   Match a TAGS query                   M   Like m, but only TODO entries.
C   Configure your own agenda commands")
	(while (setq entry (pop custom))
	  (setq key (car entry) type (nth 1 entry) string (nth 2 entry))
	  (insert (format "\n%-4s%-14s: %s"
			  key
			  (cond
			   ((eq type 'tags) "Tags query")
			   ((eq type 'todo) "TODO keyword")
			   ((eq type 'tags-tree) "Tags tree")
			   ((eq type 'todo-tree) "TODO kwd tree")
			   ((eq type 'occur-tree) "Occur tree")
			   (t "???"))
			  (org-string-props string 'face 'org-link))))
	(goto-char (point-min))
	(if (fboundp 'fit-window-to-buffer) (fit-window-to-buffer))
	(message "Press key for agenda command%s"
		 (if restrict-ok ", or [1] to restrict to current file" ""))
	(setq c (read-char-exclusive))
	(message "")
	(when (equal c ?1)
	  (if restrict-ok
	      (put 'org-agenda-files 'org-restrict (list (buffer-file-name)))

	  (message "Press key for agenda command%s"
		   (if restrict-ok " (restricted to current file)" ""))
	  (setq c (read-char-exclusive))
	  (message "")))
      (require 'calendar)  ; FIXME: can we avoid this for some commands?
      ;; For example the todo list should not need it (but does...)
      (cond
       ((equal c ?C) (customize-variable 'org-agenda-custom-commands))
       ((equal c ?a) (call-interactively 'org-agenda-list))
       ((equal c ?t) (call-interactively 'org-todo-list))
       ((equal c ?T)

	(cond
	 ((eq type 'tags)
	  (org-tags-view current-prefix-arg string))
	 ((eq type 'todo)
	  (org-todo-list string))
	 ((eq type 'tags-tree)
	  (org-check-for-org-mode)
	  (org-tags-sparse-tree current-prefix-arg string))
	 ((eq type 'todo-tree)
	  (org-check-for-org-mode)
	  (org-occur (concat "^" outline-regexp "[ \t]*"
			     (regexp-quote string) "\\>")))
	 ((eq type 'occur-tree)
	  (org-check-for-org-mode)
	  (org-occur string))
	 (t (error "Invalid custom agenda command type %s" type))))
       (t (error "Invalid key"))))))

(defun org-check-for-org-mode ()
  "Make sure current buffer is in org-mode.  Error if not."
  (or (eq major-mode 'org-mode)
      (error "Cannot execute org-mode agenda command on buffer in %s."
	     major-mode)))

(defun org-fit-agenda-window ()
  "Fit the window to the buffer size."
  (and org-fit-agenda-window
       (fboundp 'fit-window-to-buffer)

    (switch-to-buffer-other-window
     (get-buffer-create org-agenda-buffer-name))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-type) 'timeline)
    (if doclosed (push :closed args))
    (push :timestamp args)
    (if dotodo (push :todo args))
    (while (setq d (pop day-numbers))
      (if (and (>= d today)

	  (switch-to-buffer-other-window
	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-type) 'agenda)
    (set (make-local-variable 'starting-day) (car day-numbers))
    (set (make-local-variable 'include-all-loc) include-all)
    (when (and (or include-all org-agenda-include-all-todo)
	       (member today day-numbers))
      (setq files (org-agenda-files)

	  (switch-to-buffer-other-window
	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-type) 'todo)
    (set (make-local-variable 'last-arg) arg)
    (set (make-local-variable 'org-todo-keywords) kwds)
    (set (make-local-variable 'org-agenda-redo-command)
	 '(org-todo-list (or current-prefix-arg last-arg) t))
    (setq files (org-agenda-files)

    (if (not org-select-agenda-window) (select-window win))))

(defun org-check-agenda-file (file)
  "Make sure FILE exists.  If not, ask user what to do."
  ;; FIXME:  this does not correctly change the menus
  ;; Could probably be fixed by explicitly going to the buffer where
  ;; the call originated.
  (when (not (file-exists-p file))
    (message "non-existent file %s.  [R]emove from agenda-files or [A]bort?"
	     file)
    (let ((r (downcase (read-char-exclusive))))
      (cond
       ((equal r ?r)
	(org-remove-file file)
	(throw 'nextfile t))
       (t (error "Abort"))))))

(defun org-agenda-check-type (error &rest types)
  "Check if agenda buffer is of allowed type.
If ERROR is non-nil, throw an error, otherwise just return nil."
  (if (memq org-agenda-type types)
      t
    (if error
	(error "Now allowed in %s-type agenda buffers" org-agenda-type)
      nil)))

(defun org-agenda-quit ()
  "Exit agenda by removing the window or the buffer."
  (interactive)
  (let ((buf (current-buffer)))
    (if (not (one-window-p)) (delete-window))

(defun org-agenda-redo ()
  "Rebuild Agenda.
When this is the global TODO list, a prefix argument will be interpreted."
  (interactive)
  (message "Rebuilding agenda buffer...")
  (eval org-agenda-redo-command)
  (message "Rebuilding agenda buffer...done"))

(defun org-agenda-goto-today ()
  "Go to today."
  (interactive)
  (org-agenda-check-type t 'timeline 'agenda)
  (if (boundp 'starting-day)
      (let ((cmd (car org-agenda-redo-command))
	    (iall (nth 1 org-agenda-redo-command))
	    (nday (nth 3 org-agenda-redo-command))
	    (keep (nth 4 org-agenda-redo-command)))

(defun org-agenda-later (arg)
  "Go forward in time by `org-agenda-ndays' days.
With prefix ARG, go forward that many times `org-agenda-ndays'."
  (interactive "p")
  (org-agenda-check-type t 'agenda)
  (org-agenda-list (if (boundp 'include-all-loc) include-all-loc nil)
		   (+ starting-day (* arg org-agenda-ndays)) nil t))

(defun org-agenda-earlier (arg)
  "Go back in time by `org-agenda-ndays' days.
With prefix ARG, go back that many times `org-agenda-ndays'."
  (interactive "p")
  (org-agenda-check-type t 'agenda)
  (org-agenda-list (if (boundp 'include-all-loc) include-all-loc nil)
		   (- starting-day (* arg org-agenda-ndays)) nil t))

(defun org-agenda-week-view ()
  "Switch to weekly view for agenda."
  (interactive)
  (org-agenda-check-type t 'agenda)
  (setq org-agenda-ndays 7)
  (org-agenda-list include-all-loc
		   (or (get-text-property (point) 'day)
		       starting-day)
		   nil t)

  (message "Switched to week view"))

(defun org-agenda-day-view ()
  "Switch to weekly view for agenda."
  (interactive)
  (org-agenda-check-type t 'agenda)
  (setq org-agenda-ndays 1)
  (org-agenda-list include-all-loc
		   (or (get-text-property (point) 'day)
		       starting-day)
		   nil t)

  (message "Switched to day view"))

(defun org-agenda-next-date-line (&optional arg)
  "Jump to the next line indicating a date in agenda buffer."
  (interactive "p")
  (org-agenda-check-type t 'agenda 'timeline)
  (beginning-of-line 1)
  (if (looking-at "^\\S-") (forward-char 1))
  (if (not (re-search-forward "^\\S-" nil t arg))
      (progn
	(backward-char 1)

  (goto-char (match-beginning 0)))

(defun org-agenda-previous-date-line (&optional arg)
  "Jump to the next line indicating a date in agenda buffer."
  (interactive "p")
  (org-agenda-check-type t 'agenda 'timeline)
  (beginning-of-line 1)
  (if (not (re-search-backward "^\\S-" nil t arg))
      (error "No previous date before this line in this buffer")))

;; Initialize the highlight
(defvar org-hl (org-make-overlay 1 1))
(org-overlay-put org-hl 'face 'highlight)

(defun org-highlight (begin end &optional buffer)
  "Highlight a region with overlay."
  (funcall (if org-xemacs-p 'set-extent-endpoints 'move-overlay)
	   org-hl begin end (or buffer (current-buffer))))

	   (if org-agenda-follow-mode "on" "off")))

(defun org-agenda-log-mode ()
  "Toggle follow mode in an agenda buffer."
  (interactive)
  (org-agenda-check-type t 'agenda 'timeline)
  (setq org-agenda-show-log (not org-agenda-show-log))
  (org-agenda-set-mode-name)
  (org-agenda-redo)
  (message "Log mode is %s"
	   (if org-agenda-show-log "on" "off")))

(defun org-agenda-toggle-diary ()
  "Toggle follow mode in an agenda buffer."
  (interactive)
  (org-agenda-check-type t 'agenda)
  (setq org-agenda-include-diary (not org-agenda-include-diary))
  (org-agenda-redo)
  (org-agenda-set-mode-name)
  (message "Diary inclusion turned %s"
	   (if org-agenda-include-diary "on" "off")))

(defun org-agenda-toggle-time-grid ()
  "Toggle follow mode in an agenda buffer."
  (interactive)
  (org-agenda-check-type t 'agenda)
  (setq org-agenda-use-time-grid (not org-agenda-use-time-grid))
  (org-agenda-redo)
  (org-agenda-set-mode-name)
  (message "Time-grid turned %s"
	   (if org-agenda-use-time-grid "on" "off")))

	 marker priority category
	 ee txt)
    (goto-char (point-min))
    (while (re-search-forward regexp nil t)
      (goto-char (match-beginning 1))
      (setq marker (org-agenda-new-marker (1+ (match-beginning 0)))
	    category (org-get-category)
	    txt (org-format-agenda-item "" (match-string 1) category)
	    priority
	    (+ (org-get-priority txt)
	       (if org-todo-kwd-priority-p
                   (- org-todo-kwd-max-priority -2
                      (length
                       (member (match-string 2) org-todo-keywords)))
                 1)))
      (add-text-properties
       0 (length txt) (append (list 'org-marker marker 'org-hd-marker marker
				    'priority priority 'category category)
			      props)
       txt)

(defun org-agenda-set-tags ()
  "Set tags for the current headline."
  (interactive)
  (org-agenda-check-no-diary)
  (org-agenda-show)   ;;; FIXME This is a stupid hack and should not be needed
  (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
                       (org-agenda-error)))
	 (buffer (marker-buffer hdmarker))
	 (pos (marker-position hdmarker))
	 (buffer-read-only nil)
	 newhead)
    (with-current-buffer buffer

    (beginning-of-line 1)))

(defun org-agenda-date-later (arg &optional what)
  "Change the date of this item to one day later."
  (interactive "p")
  (org-agenda-check-type t 'agenda 'timeline)
  (org-agenda-check-no-diary)
  (let* ((marker (or (get-text-property (point) 'org-marker)
		     (org-agenda-error)))
	 (buffer (marker-buffer marker))
	 (pos (marker-position marker)))

(defun org-agenda-date-prompt (arg)
  "Change the date of this item.  Date is prompted for, with default today.
The prefix ARG is passed to the `org-time-stamp' command and can therefore
be used to request time specification in the time stamp."
  (interactive "P")
  (org-agenda-check-type t 'agenda 'timeline)
  (org-agenda-check-no-diary)
  (let* ((marker (or (get-text-property (point) 'org-marker)
		     (org-agenda-error)))
	 (buffer (marker-buffer marker))
	 (pos (marker-position marker)))

      (message "Time stamp changed to %s" org-last-changed-timestamp))))

(defun org-get-heading ()
  "Return the heading of the current entry, without the stars."
  (save-excursion
    (and (memq (char-before) '(?\n ?\r)) (skip-chars-forward "^\n\r"))
;;FIXME????????    (and (bolp) (end-of-line 1))
    (if (and (re-search-backward "[\r\n]\\*" nil t)
	     (looking-at "[\r\n]\\*+[ \t]+\\([^\r\n]*\\)"))
	(match-string 1)
      "")))

(defun org-agenda-diary-entry ()
  "Make a diary entry, like the `i' command from the calendar.
All the standard commands work: block, weekly etc"
  (interactive)
  (org-agenda-check-type t 'agenda 'timeline)
  (require 'diary-lib)
  (let* ((char (progn
		 (message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic")
		 (read-char-exclusive)))
	 (cmd (cdr (assoc char

(defun org-agenda-execute-calendar-command (cmd)
  "Execute a calendar command from the agenda, with the date associated to
the cursor position."
  (org-agenda-check-type t 'agenda 'timeline)
  (require 'diary-lib)
  (unless (get-text-property (point) 'day)
    (error "Don't know which date to use for calendar command"))
  (let* ((oldf (symbol-function 'calendar-cursor-to-date))
	 (point (point))

    (org-agenda-execute-calendar-command 'calendar-sunrise-sunset)))

(defun org-agenda-goto-calendar ()
  "Open the Emacs calendar with the date at the cursor."
  (interactive)
  (org-agenda-check-type t 'agenda 'timeline)
  (let* ((day (or (get-text-property (point) 'day)
		  (error "Don't know which date to open in calendar")))
	 (date (calendar-gregorian-from-absolute day))
	 (calendar-move-hook nil)
	 (view-diary-entries-initially nil))

			(calendar-cursor-to-date))
		   nil t))

(defun org-agenda-convert-date ()
  (interactive)
  (org-agenda-check-type t 'agenda 'timeline)
  (let ((day (get-text-property (point) 'day))
	date s)
    (unless day
      (error "Don't know which date to convert"))
    (setq date (calendar-gregorian-from-absolute day))

	     "Ethiopic:   " (calendar-ethiopic-date-string date) "\n"
	     "Persian:    " (calendar-persian-date-string date) "\n"
	     "Chinese:    " (calendar-chinese-date-string date) "\n"))
    (with-output-to-temp-buffer "*Dates*"
      (princ s))
    (if (fboundp 'fit-window-to-buffer)
	(fit-window-to-buffer (get-buffer-window "*Dates*")))))

;;; Tags

(defun org-scan-tags (action matcher &optional todo-only)
  "Scan headline tags with inheritance and produce output ACTION.

		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
         lspos
	 tags tags-list tags-alist (llast 0) rtn level category i txt
	 todo marker)

    (save-excursion
      (goto-char (point-min))
      (when (eq action 'sparse-tree) (hide-sublevels 1))
      (while (re-search-forward re nil t)
	(setq todo (if (match-end 1) (match-string 2))
	      tags (if (match-end 4) (match-string 4)))
	(goto-char (setq lspos (1+ (match-beginning 0))))
	(setq level (outline-level)
	      category (org-get-category))
	(setq i llast llast level)
	;; remove tag lists from same and sublevels
	(while (>= i level)

		       (concat
			(if org-tags-match-list-sublevels
			    (make-string (1- level) ?.) "")
			(org-get-heading))
		       category))
            (goto-char lspos)
	    (setq marker (org-agenda-new-marker))
	    (add-text-properties
	     0 (length txt) 
	     (append (list 'org-marker marker 'org-hd-marker marker
			   'category category)
		     props)
	     txt)
	    (push txt rtn))
	  ;; if we are to skip sublevels, jump to end of subtree
          (point)
	  (or org-tags-match-list-sublevels (org-end-of-subtree)))))
    (nreverse rtn)))

(defun org-tags-sparse-tree (&optional arg match)
  "Create a sparse tree according to tags search string MATCH.
MATCH can contain positive and negative selection of tags, like

      (setq matcher nil))
    (setq matcher (if (> (length orlist) 1) (cons 'or orlist) (car orlist)))
    ;; Return the string and lisp forms of the matcher
    (cons match0 matcher)))

;;;###autoload
(defun org-tags-view (&optional todo-only match keep-modes)
  "Show all headlines for all `org-agenda-files' matching a TAGS criterions.
The prefix arg TODO-ONLY limits the search to TODO entries."
  (interactive "P")
  (org-agenda-maybe-reset-markers 'force)
  (org-compile-prefix-format org-agenda-prefix-format)
  (let* ((org-agenda-keep-modes keep-modes)
	 (org-tags-match-list-sublevels
	  (if todo-only t org-tags-match-list-sublevels))
	 (win (selected-window))
	 (completion-ignore-case t)
	 rtn rtnall files file pos matcher
	 buffer)
    (setq matcher (org-make-tags-matcher match)

	  (switch-to-buffer-other-window
	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-type) 'tags)
    (set (make-local-variable 'org-agenda-redo-command)
	 (list 'org-tags-view (list 'quote todo-only) 
	       (list 'if 'current-prefix-arg nil match) t))
    (setq files (org-agenda-files)
	  rtnall nil)
    (while (setq file (pop files))
      (catch 'nextfile
	(org-check-agenda-file file)

    (add-text-properties (point-min) (1- (point))
			 (list 'face 'org-link))
    (setq pos (point))
    (insert match "\n")
    (add-text-properties pos (1- (point)) (list 'face 'org-warning))
    (setq pos (point))
    (insert "Press `C-u r' to search again with new search string\n")
    (add-text-properties pos (1- (point)) (list 'face 'org-link))
    (when rtnall
      (insert (mapconcat 'identity rtnall "\n")))
    (goto-char (point-min))
    (setq buffer-read-only t)
    (org-fit-agenda-window)

  (interactive)
  (let* (;(inherit (org-get-inherited-tags))
	 (re (concat "^" outline-regexp))
	 (col (current-column))
	 (current (org-get-tags))
	 tags hd empty)
    (if arg
	(save-excursion
	  (goto-char (point-min))
	  (while (re-search-forward re nil t)
	    (org-set-tags nil t))

	      (let ((org-add-colon-after-tag-completion t))
		(completing-read "Tags: " 'org-tags-completion-function
				 nil nil current 'org-tags-history)))
	(while (string-match "[-+&]+" tags)
	  (setq tags (replace-match ":" t t tags)))
	(unless (setq empty (string-match "\\`[\t ]*\\'" tags))
	  (unless (string-match ":$" tags) (setq tags (concat tags ":")))
	  (unless (string-match "^:" tags) (setq tags (concat ":" tags)))))
      (if (equal current "")
	  (progn
	    (end-of-line 1)
	    (or empty (insert " ")))
	(beginning-of-line 1)
	(looking-at (concat "\\(.*\\)\\(" (regexp-quote current) "\\)[ \t]*"))
	(setq hd (match-string 1))
	(delete-region (match-beginning 0) (match-end 0))
	(insert (org-trim hd) (if empty "" " ")))
      (unless (equal tags "")
	(move-to-column (max (current-column)
			     (if (> org-tags-column 0)
				 org-tags-column
			       (- (- org-tags-column) (length tags))))

  (let (tags)
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward "[ \t]:\\([A-Za-z_:]+\\):[ \t\r\n]" nil t)
	(mapc (lambda (x) (add-to-list 'tags x))
	      (org-split-string (match-string 1) ":"))))
    (mapcar 'list tags)))

;;; Link Stuff

(defun org-find-file-at-mouse (ev)

  (interactive "P")
  (if (org-at-table-p)
      (org-table-paste-rectangle)
    (org-paste-subtree arg)))

(defun org-ctrl-c-ctrl-c (&optional arg)
  "Call realign table, or recognize a table.el table, or update keywords.
When the cursor is inside a table created by the table.el package,
activate that table.  Otherwise, if the cursor is at a normal table
created with org.el, re-align that table.  This command works even if
the automatic table editor has been turned off.

If the cursor is in a headline, prompt for tags and insert them into
the current line, aligned to `org-tags-column'.  When in a headline and
called with prefix arg, realign all tags in the current buffer.

If the cursor is in one of the special #+KEYWORD lines, this triggers
scanning the buffer for these lines and updating the information.
If the cursor is on a #+TBLFM line, re-apply the formulae to the table."
  (interactive "P")
  (let  ((org-enable-table-editor t))

					 image-file-name-extensions)
				 image-file-name-extensions)
			  t)
	      "\\'"))))

;; Functions needed for compatibility with old outline.el.

;; Programming for the old outline.el (that uses selective display
;; instead of `invisible' text properties) is a nightmare, mostly
;; because regular expressions can no longer be anchored at
;; beginning/end of line.  Therefore a number of function need special
;; treatment when the old outline.el is being used.

;; The following functions capture almost the entire compatibility code
;; between the different versions of outline-mode.  The only other
;; places where this is important are the font-lock-keywords, and in
;; `org-export-copy-visible'.  Search for `org-noutline-p' to find them.

;; C-a should go to the beginning of a *visible* line, also in the
;; new outline.el.  I guess this should be patched into Emacs?
(defun org-beginning-of-line ()
  "Go to the beginning of the current line.  If that is invisible, continue

    (if (org-invisible-p)
	(while (and (not (bobp)) (org-invisible-p))
	  (backward-char 1)
	  (beginning-of-line 1))
      (forward-char 1))))

(when org-noutline-p
  (define-key org-mode-map "\C-a" 'org-beginning-of-line))
;; FIXME: should I use substitute-key-definition to reach other bindings
;; of beginning-of-line?

(defun org-invisible-p ()
  "Check if point is at a character currently not visible."
  (if org-noutline-p
      ;; Early versions of noutline don't have `outline-invisible-p'.

(defun org-back-to-heading (&optional invisible-ok)
  "Move to previous heading line, or beg of this line if it's a heading.
Only visible heading lines are considered, unless INVISIBLE-OK is non-nil."
  (if org-noutline-p
      (outline-back-to-heading invisible-ok)
    (if (and (memq (char-before) '(?\n ?\r))
             (looking-at outline-regexp))
	t
      (if (re-search-backward (concat (if invisible-ok "\\([\r\n]\\|^\\)" "^")
				      outline-regexp)
			      nil t)
	  (if invisible-ok

			   (save-excursion (outline-end-of-heading) (point))
			   (if org-noutline-p
			       flag
			     (if flag ?\r ?\n))))))

(defun org-end-of-subtree (&optional invisible-OK)
  ;; This is an exact copy of the original function, but it uses
  ;; `org-back-to-heading', to make it work also in invisible
  ;; trees.  And is uses an invisible-OK argument.
  ;; Under Emacs this is not needed, but the old outline.el needs this fix.
  (org-back-to-heading invisible-OK)
  (let ((opoint (point))
	(first t)
	(level (funcall outline-level)))
    (while (and (not (eobp))
		(or first (> (funcall outline-level) level)))
      (setq first nil)
      (outline-next-heading))
    (if (memq (preceding-char) '(?\n ?\^M))
	(progn
	  ;; Go to end of line before heading
	  (forward-char -1)
	  (if (memq (preceding-char) '(?\n ?\^M))
	      ;; leave blank line before heading
	      (forward-char -1))))))

(defun org-show-subtree ()
  "Show everything after this heading at deeper levels."
  (outline-flag-region
   (point)
   (save-excursion

(run-hooks 'org-load-hook)

;; arch-tag: e77da1a7-acc7-4336-b19e-efa25af3f9fd
;;; org.el ends here