lisp/textmodes/org.el

0 ;;;; org.el --- Outline-based notes management and organize
7 ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
52 ;;   http://staff.science.uva.nl/~dominik/Tools/org/org.html#Installation
63 ;; http://www.astro.uva.nl/~dominik/Tools/org/Changes
86 (defvar org-version "4.67c"
87   "The version number of the file org.el.")
88 (defun org-version ()
90   (message "Org-mode version %s" org-version))
93 (defconst org-xemacs-p (featurep 'xemacs)) ; not used by org.el itself
94 (defconst org-format-transports-properties-p
102 (defgroup org nil
109 (defgroup org-startup nil
112   :group 'org)
114 (defcustom org-startup-folded t
122   :group 'org-startup
128 (defcustom org-startup-truncated t
132   :group 'org-startup
135 (defcustom org-startup-align-all-tables nil
143   :group 'org-startup
146 (defcustom org-insert-mode-line-in-empty-file nil
148 When the function `org-mode' is called interactively in an empty file, this
153   :group 'org-startup
156 (defcustom org-CUA-compatible nil
171 `org-disputed-keys'.
174 *before* org.el is loaded.  Changing it requires a restart of Emacs to
176   :group 'org-startup
179 (defvar org-disputed-keys
187 second element will be used when `org-CUA-compatible' is t.")
189 (defun org-key (key)
190   "Select a key according to `org-CUA-compatible'."
191   (nth (if org-CUA-compatible 2 1)
192        (or (assq key org-disputed-keys)
193 	   (error "Invalid Key %s in `org-key'" key))))
195 (defcustom org-ellipsis nil
199 Changing this requires executing `M-x org-mode' in a buffer to become
201   :group 'org-startup
205 (defvar org-display-table nil
206   "The display table for org-mode, in case `org-ellipsis' is non-nil.")
208 (defgroup org-keywords nil
211   :group 'org)
213 (defcustom org-deadline-string "DEADLINE:"
214   "String to mark deadline entries.
215 A deadline is this string, followed by a time stamp.  Should be a word,
217 a timestamp with \\[org-deadline].
219   :group 'org-keywords
222 (defcustom org-scheduled-string "SCHEDULED:"
226 a timestamp with \\[org-schedule].
228   :group 'org-keywords
231 (defcustom org-closed-string "CLOSED:"
233   :group 'org-keywords
236 (defcustom org-clock-string "CLOCK:"
238   :group 'org-keywords
241 (defcustom org-comment-string "COMMENT"
244 \\[org-toggle-comment].
246   :group 'org-keywords
249 (defcustom org-quote-string "QUOTE"
254 \\[org-toggle-fixed-width-section]."
255   :group 'org-keywords
258 (defvar org-repeat-re "\\<REPEAT(\\([-+ 0-9dwmy]+\\))"
262 (defgroup org-structure nil
265   :group 'org)
267 (defgroup org-reveal-location nil
270   :group 'org-structure)
272 (defcustom org-show-hierarchy-above '((default . t))
274 Org-mode often shows locations in an org-mode file which might have
281   org-goto       when using the command `org-goto' on key C-c C-j
282   occur-tree     when using the command `org-occur' on key C-c /
289   :group 'org-reveal-location
297 		    (const org-goto)
307 (defcustom org-show-following-heading '((default . t))
309 Org-mode often shows locations in an org-mode file which might have
314 use the command \\[org-reveal] to show more context.
316 contexts.  See `org-show-hierarchy-above' for valid contexts."
317   :group 'org-reveal-location
325 		    (const org-goto)
335 (defcustom org-show-siblings '((default . nil) (isearch t))
337 Org-mode often shows locations in an org-mode file which might have
339 heading are all made visible.  If `org-show-hierarchy-above' is t,
345 use the command \\[org-reveal] to show more context.
347 contexts.  See `org-show-hierarchy-above' for valid contexts."
348   :group 'org-reveal-location
356 		    (const org-goto)
366 (defgroup org-cycle nil
369   :group 'org-structure)
371 (defcustom org-cycle-global-at-bob t
376 this way, `org-cycle-hook' is disables temporarily, to make sure the
380   :group 'org-cycle
383 (defcustom org-cycle-emulate-tab t
384   "Where should `org-cycle' emulate TAB.
391   :group 'org-cycle
398 (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees
399 			    org-optimize-window-after-visibility-change)
400   "Hook that is run after `org-cycle' has changed the buffer visibility.
402 the new state that was set by the most recent `org-cycle' command.  The
406   :group 'org-cycle
410 (defgroup org-edit-structure nil
413   :group 'org-structure)
415 (defcustom org-odd-levels-only nil
427   :group 'org-edit-structure
428   :group 'org-font-lock
431 (defcustom org-adapt-indentation t
437   :group 'org-edit-structure
440 (defcustom org-blank-before-new-entry '((heading . nil)
442   "Should `org-insert-heading' leave a blank line before new heading/item?
445   :group 'org-edit-structure
450 (defcustom org-insert-heading-hook nil
452   :group 'org-edit-structure
455 (defcustom org-enable-fixed-width-editor t
460   :group 'org-edit-structure
463 (defgroup org-sparse-trees nil
466   :group 'org-structure)
468 (defcustom org-highlight-sparse-tree-matches t
472   :group 'org-sparse-trees
475 (defcustom org-remove-highlights-with-change t
477 Such highlights are created by `org-occur' and `org-clock-display'.
479 The highlights created by `org-preview-latex-fragment' always need
481   :group 'org-sparse-trees
482   :group 'org-time
486 (defcustom org-occur-hook '(org-first-headline-recenter)
487   "Hook that is run after `org-occur' has constructed a sparse tree.
490   :group 'org-sparse-trees
493 (defgroup org-plain-lists nil
496   :group 'org-structure)
498 (defcustom org-cycle-include-plain-lists nil
505   :group 'org-plain-lists
508 (defcustom org-plain-list-ordered-item-terminator t
514   :group 'org-plain-lists
519 (defcustom org-auto-renumber-ordered-lists t
522 \\[org-shiftmetaup] or \\[org-shiftmetadown].  After other editing commands,
523 use \\[org-ctrl-c-ctrl-c] to trigger renumbering."
524   :group 'org-plain-lists
527 (defcustom org-provide-checkbox-statistics t
530 a new checkbox with \\[org-insert-todo-heading] or toggle a checkbox
531 with \\[org-ctrl-c-ctrl-c\\]."
532   :group 'org-plain-lists
535 (defgroup org-archive nil
538   :group 'org-structure)
540 (defcustom org-archive-tag "ARCHIVE"
544   :group 'org-archive
545   :group 'org-keywords
548 (defcustom org-agenda-skip-archived-trees t
551   :group 'org-archive
552   :group 'org-agenda-skip
555 (defcustom org-cycle-open-archived-trees nil
556   "Non-nil means, `org-cycle' will open archived trees.
560   :group 'org-archive
561   :group 'org-cycle
564 (defcustom org-sparse-tree-open-archived-trees nil
568   :group 'org-archive
569   :group 'org-sparse-trees
572 (defcustom org-archive-location "%s_archive::"
587 	If the current file is Projects.org, archive in file
594 \"~/org/archive.org::\"
595 	Archive in file ~/org/archive.org (absolute path), as top-level trees.
605   :group 'org-archive
608 (defcustom org-archive-mark-done t
610   :group 'org-archive
613 (defcustom org-archive-stamp-time t
617 `org-archive-mark-done'."
618   :group 'org-archive
621 (defgroup org-table nil
624   :group 'org)
626 (defcustom org-enable-table-editor 'optimized
642 force one with \\[org-ctrl-c-ctrl-c].
650 See also the variable `org-table-auto-blank-field'."
651   :group 'org-table
657 (defcustom orgtbl-optimized (eq org-enable-table-editor 'optimized)
666 Org-mode.  See the variable `org-enable-table-editor' for details.  Changing
668   :group 'org-table
693   :group 'org-table
698 (defgroup org-table-settings nil
701   :group 'org-table)
703 (defcustom org-table-default-size "5x2"
705   :group 'org-table-settings
708 (defcustom org-table-number-regexp
721   :group 'org-table-settings
737 (defcustom org-table-number-fraction 0.5
740 fraction of fields is matched by `org-table-number-fraction',
742   :group 'org-table-settings
745 (defgroup org-table-editing nil
748   :group 'org-table)
750 (defcustom org-table-automatic-realign t
752 When nil, aligning is only done with \\[org-table-align], or after column
754   :group 'org-table-editing
757 (defcustom org-table-auto-blank-field t
761 Only relevant when `org-enable-table-editor' is equal to `optimized'."
762   :group 'org-table-editing
765 (defcustom org-table-tab-jumps-over-hlines t
768 `org-table-next-field' can either create a new row before that line, or jump
771   :group 'org-table-editing
774 (defcustom org-table-tab-recognizes-table.el t
778   :group 'org-table-editing
781 (defgroup org-table-calculation nil
784   :group 'org-table)
786 (defcustom org-table-copy-increment t
787   "Non-nil means, increment when copying current field with \\[org-table-copy-down]."
788   :group 'org-table-calculation
791 (defcustom org-calc-default-modes
804   :group 'org-table-calculation
807 (defcustom org-table-formula-evaluate-inline t
811 string of the command `org-table-eval-formula'.  This feature requires the
814 the command \\[org-table-eval-formula]."
815   :group 'org-table-calculation
821 (defcustom org-table-formula-use-constants t
824 by the value given in `org-table-formula-constants', or by a value obtained
826   :group 'org-table-calculation
829 (defcustom org-table-formula-constants nil
835   (setq org-table-formula-constants '((\"c\" . \"299792458.\")))
838   :group 'org-table-calculation
843 (defcustom org-table-allow-automatic-line-recalculation t
846   :group 'org-table-calculation
849 (defgroup org-link nil
852   :group 'org)
854 (defvar org-link-abbrev-alist-local nil
855   "buffer-local version of `org-link-abbrev-alist', which see.
857 (make-variable-buffer-local 'org-link-abbrev-alist-local)
859 (defcustom org-link-abbrev-alist nil
871   :group 'org-link
874 (defcustom org-descriptive-links t
877 state in new org-mode buffers.  The setting can then be toggled on a
879   :group 'org-link
882 (defcustom org-link-file-path-type 'adaptive
892   :group 'org-link
899 (defcustom org-activate-links '(bracket angle plain radio tag date)
914   :group 'org-link
922 (defgroup org-link-store nil
925   :group 'org-link)
927 (defcustom org-email-link-description-format "Email %c: %.30s"
936      will be \"to NAME\".  See also the variable `org-from-is-user-regexp'.
944   :group 'org-link-store
947 (defcustom org-from-is-user-regexp
950       (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>")))
952       (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
956   :group 'org-link-store
957   :type 'regexp)
959 (defcustom org-context-in-file-links t
960   "Non-nil means, file links from `org-store-link' contain context.
963 `org-open-at-point'.
964 Using a prefix arg to the command \\[org-store-link] (`org-store-link')
966   :group 'org-link-store
969 (defcustom org-keep-stored-link-after-insertion nil
972 The command `org-store-link' adds a link pointing to the current
974 The command `org-insert-link' can be used to insert links into any
976 option is nil, every link which has been inserted once using \\[org-insert-link]
979   :group 'org-link-store
982 (defcustom org-usenet-links-prefer-google nil
983   "Non-nil means, `org-store-link' will create web links to Google groups.
985 Using a prefix arg to the command \\[org-store-link] (`org-store-link')
987   :group 'org-link-store
990 (defgroup org-link-follow nil
993   :group 'org-link)
995 (defcustom org-tab-follows-link nil
997 Needs to be set before org.el is loaded."
998   :group 'org-link-follow
1001 (defcustom org-return-follows-link nil
1003 Needs to be set before org.el is loaded."
1004   :group 'org-link-follow
1007 (defcustom org-mouse-1-follows-link t
1010 Needs to be set before org.el is loaded."
1011   :group 'org-link-follow
1014 (defcustom org-mark-ring-length 4
1017   :group 'org-link-follow
1020 (defcustom org-link-frame-setup
1041   :group 'org-link-follow
1058 (defcustom org-display-internal-link-with-indirect-buffer nil
1066   :group 'org-link-follow
1069 (defcustom org-open-non-existing-files nil
1070   "Non-nil means, `org-open-file' will open non-existing files.
1072   :group 'org-link-follow
1075 (defcustom org-link-mailto-program '(browse-url "mailto:%a?subject=%s")
1080 if one was given like in <mailto:arthur@galaxy.org::this subject>."
1081   :group 'org-link-follow
1088 (defcustom org-confirm-shell-link-function 'yes-or-no-p
1099   :group 'org-link-follow
1105 (defcustom org-confirm-elisp-link-function 'yes-or-no-p
1116   :group 'org-link-follow
1122 (defconst org-file-apps-defaults-gnu
1126 See `org-file-apps'.")
1128 (defconst org-file-apps-defaults-macosx
1140 See `org-file-apps'.")
1142 (defconst org-file-apps-defaults-windowsnt
1152 See `org-file-apps'.")
1154 (defcustom org-file-apps
1159     ("org" . emacs)
1184 `org-file-apps-defaults-macosx'
1185 `org-file-apps-defaults-windowsnt'
1186 `org-file-apps-defaults-gnu'."
1187   :group 'org-link-follow
1200 (defcustom org-mhe-search-all-folders nil
1205   :group 'org-link-follow
1208 (defgroup org-remember nil
1211   :group 'org)
1213 (defcustom org-directory "~/org"
1214   "Directory with org files.
1215 This directory will be used as default to prompt for org files.
1217   :group 'org-remember
1220 (defcustom org-default-notes-file "~/.notes"
1225 `org-remember-templates'."
1226   :group 'org-remember
1231 (defcustom org-remember-default-headline ""
1235 `org-remember-templates'."
1236   :group 'org-remember
1239 (defcustom org-remember-templates nil
1246 The default file is given by `org-default-notes-file'.  An optional third
1249 given in the variable `org-remember-default-headline'.
1252 a first line starting with a star, to act as the org-mode headline.
1262   %a          annotation, normally the link created with org-store-link
1286   :group 'org-remember
1301 (defcustom org-reverse-note-order nil
1304   :group 'org-remember
1308 	  (repeat :tag "By file name regexp"
1309 		  (cons regexp boolean))))
1311 (defgroup org-todo nil
1314   :group 'org)
1316 (defgroup org-progress nil
1319   :group 'org-time)
1321 (defcustom org-todo-keywords '("TODO" "DONE")
1323 \\<org-mode-map>By default, this is '(\"TODO\" \"DONE\").  The last entry in the list is
1327 The command \\[org-todo] cycles an entry through these states, and an
1329 cycling, see also the variable `org-todo-interpretation'
1331   :group 'org-todo
1332   :group 'org-keywords
1335 (defcustom org-todo-interpretation 'sequence
1337 This variable is only relevant if `org-todo-keywords' contains more than two
1338 states.  \\<org-mode-map>Possible values are `sequence' and `type'.
1340 When `sequence', \\[org-todo] will always switch to the next state in the
1341 `org-todo-keywords' list. When `type', \\[org-todo] only cycles from state
1345   :group 'org-todo
1346   :group 'org-keywords
1350 (defcustom org-after-todo-state-change-hook nil
1354   :group 'org-todo
1357 (defcustom org-log-done nil
1369              interpreted as sequence, see variable `org-todo-interpretation'.
1376 `org-log-note-headings'.
1386   :group 'org-todo
1387   :group 'org-progress
1396 (defcustom org-log-note-headings
1408   :group  'org-todo
1409   :group  'org-progress
1417 (defcustom org-allow-auto-repeat t
1422   :group 'org-todo
1423   :group 'org-progress
1426 (defgroup org-priorities nil
1429   :group 'org-todo)
1431 (defcustom org-default-priority ?B
1434   :group 'org-priorities
1437 (defcustom org-lowest-priority ?C
1439   :group 'org-priorities
1442 (defgroup org-time nil
1445   :group 'org)
1447 (defcustom org-insert-labeled-timestamps-at-point nil
1452   :group 'org-time
1455 (defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
1459 (defcustom org-time-stamp-rounding-minutes 0
1465   :group 'org-time
1468 (defcustom org-display-custom-times nil
1470 The formats are defined through the variable `org-time-stamp-custom-formats'.
1473   :group 'org-time
1476 (make-variable-buffer-local 'org-display-custom-times)
1478 (defcustom org-time-stamp-custom-formats
1482 `org-display-custom-times' is set."
1483   :group 'org-time
1486 (defun org-time-stamp-format (&optional long inactive)
1488   (let ((f (if long (cdr org-time-stamp-formats)
1489 	     (car org-time-stamp-formats))))
1494 (defcustom org-deadline-warning-days 30
1495   "No. of days before expiration during which a deadline becomes active.
1497   :group 'org-time
1500 (defcustom org-popup-calendar-for-date-prompt t
1505   :group 'org-time
1508 (defcustom org-calendar-follow-timestamp-change t
1512   :group 'org-time
1515 (defgroup org-tags nil
1518   :group 'org)
1520 (defcustom org-tag-alist nil
1527   :group 'org-tags
1535 (defcustom org-use-fast-tag-selection 'auto
1541 `org-tag-alist' or through a #+TAGS line in the buffer.
1544   :group 'org-tags
1550 (defcustom org-fast-tag-selection-single-key nil
1556   :group 'org-tags
1562 (defcustom org-tags-column 48
1567   :group 'org-tags
1570 (defcustom org-auto-align-tags t
1574 the tags are again aligned to `org-tags-column'."
1575   :group 'org-tags
1578 (defcustom org-use-tag-inheritance t
1582 companion option `org-tags-match-list-sublevels'."
1583   :group 'org-tags
1586 (defcustom org-tags-match-list-sublevels nil
1588 Because of tag inheritance (see variable `org-use-tag-inheritance'),
1598   :group 'org-tags
1601 (defvar org-tags-history nil
1603 (defvar org-last-tags-completion-table nil
1606 (defgroup org-agenda nil
1609   :group 'org)
1611 (defvar org-category nil
1612   "Variable used by org files to set a category for agenda display.
1615    -*- mode: org; org-category: \"ELisp\"
1623 (make-variable-buffer-local 'org-category)
1625 (defcustom org-agenda-files nil
1627 Entries may be added to this list with \\[org-agenda-file-to-front] and removed with
1628 \\[org-remove-file].  You can also use customize to edit the list.
1633   :group 'org-agenda
1639 (defcustom org-agenda-confirm-kill 1
1643   :group 'org-agenda
1649 (defcustom org-calendar-to-agenda-key [?c]
1651 The command `org-calendar-goto-agenda' will be bound to this key.  The
1654   :group 'org-agenda
1657 (defgroup org-agenda-custom-commands nil
1660  :group 'org-agenda)
1662 (defcustom org-agenda-custom-commands '(("w" todo "WAITING"))
1665 agenda dispatcher \\[org-agenda].  Each entry is a list like this:
1705   :group 'org-agenda-custom-commands
1761 (defcustom org-stuck-projects
1774 After defining this variable, you may use \\[org-agenda-list-stuck-projects]
1776   :group 'org-agenda-custom-commands
1783 (defgroup org-agenda-skip nil
1786  :group 'org-agenda)
1788 (defcustom org-agenda-todo-list-sublevels t
1792   :group 'org-agenda-skip
1793   :group 'org-todo
1796 (defcustom org-agenda-todo-ignore-scheduled nil
1800   :group 'org-agenda-skip
1801   :group 'org-todo
1804 (defcustom org-agenda-todo-ignore-deadlines nil
1805   "Non-nil means, don't show near deadline entries in the global todo list.
1806 Near means closer than `org-deadline-warning-days' days.
1808   :group 'org-agenda-skip
1809   :group 'org-todo
1812 (defcustom org-agenda-skip-scheduled-if-done nil
1815   :group 'org-agenda-skip
1818 (defcustom org-timeline-show-empty-dates 3
1819   "Non-nil means, `org-timeline' also shows dates without an entry.
1824   :group 'org-agenda-skip
1831 (defgroup org-agenda-startup nil
1834   :group 'org-agenda)
1836 (defcustom org-finalize-agenda-hook nil
1838   :group 'org-agenda-startup
1841 (defcustom org-agenda-mouse-1-follows-link nil
1844 Needs to be set before org.el is loaded."
1845   :group 'org-agenda-startup
1848 (defcustom org-agenda-start-with-follow-mode nil
1850   :group 'org-agenda-startup
1853 (defgroup org-agenda-windows nil
1856   :group 'org-agenda)
1858 (defcustom org-agenda-window-setup 'reorganize-frame
1867 See also the variable `org-agenda-restore-windows-after-quit'."
1868   :group 'org-agenda-windows
1875 (defcustom org-agenda-restore-windows-after-quit nil
1880 `org-agenda-window-setup' is `other-frame', the value of this
1882   :group 'org-agenda-windows
1885 (defcustom org-indirect-buffer-display 'other-window
1888 \\[org-tree-to-indirect-buffer] and \\[org-agenda-tree-to-indirect-buffer].
1894   :group 'org-structure
1895   :group 'org-agenda-windows
1902 (defgroup org-agenda-daily/weekly nil
1905   :group 'org-agenda)
1907 (defcustom org-agenda-ndays 7
1910   :group 'org-agenda-daily/weekly
1913 (defcustom org-agenda-start-on-weekday 1
1917   :group 'org-agenda-daily/weekly
1921 (defcustom org-agenda-show-all-dates t
1922   "Non-nil means, `org-agenda' shows every day in the selected range.
1924   :group 'org-agenda-daily/weekly
1927 (defcustom org-agenda-date-format "%A %d %B %Y"
1932   :group 'org-agenda-daily/weekly
1935 (defcustom org-agenda-include-diary nil
1937   :group 'org-agenda-daily/weekly
1940 (defcustom org-agenda-include-all-todo nil
1944   :group 'org-agenda-daily/weekly
1947 (defgroup org-agenda-time-grid nil
1950   :group 'org-agenda)
1952 (defcustom org-agenda-use-time-grid t
1958 the variable `org-agenda-time-grid'."
1959   :group 'org-agenda-time-grid
1962 (defcustom org-agenda-time-grid
1980   :group 'org-agenda-time-grid
1994 (defgroup org-agenda-sorting nil
1997   :group 'org-agenda)
2006   (defcustom org-agenda-sorting-strategy
2018 		sequence in `org-agenda-files'.
2033 the sequence given in `org-agenda-files'.  Within each category sort by
2038   :group 'org-agenda-sorting
2049 (defcustom org-sort-agenda-notime-is-late t
2056   :group 'org-agenda-sorting
2059 (defgroup org-agenda-prefix nil
2062   :group 'org-agenda)
2064 (defcustom org-agenda-prefix-format
2113   (setq org-agenda-prefix-format \"  %-11:c% s\")
2115 See also the variables `org-agenda-remove-times-when-in-prefix' and
2116 `org-agenda-remove-tags-when-in-prefix'."
2124   :group 'org-agenda-prefix)
2126 (defvar org-prefix-format-compiled nil
2128 See the variable `org-agenda-prefix-format'.")
2130 (defcustom org-agenda-remove-times-when-in-prefix t
2132 When the format `org-agenda-prefix-format' contains a `%t' specifier, a
2141   :group 'org-agenda-prefix
2147 (defcustom org-agenda-remove-tags-when-in-prefix nil
2150 `org-agenda-prefix-format' contains a `%T' specifier."
2151   :group 'org-agenda-prefix
2157 (defcustom org-agenda-align-tags-to-column 65
2159   :group 'org-agenda-prefix
2162 (defgroup org-latex nil
2165   :group 'org)
2167 (defcustom org-format-latex-options
2182   :group 'org-latex
2185 (defgroup org-export nil
2186   "Options for exporting org-listings."
2188   :group 'org)
2190 (defgroup org-export-general nil
2193   :group 'org-export)
2195 (defcustom org-export-publishing-directory "."
2203   :group 'org-export-general
2212 (defcustom org-export-language-setup
2224 Use the variable `org-export-default-language' to set the language,
2226   :group 'org-export-general
2234 (defcustom org-export-default-language "en"
2236 This should have an association in `org-export-language-setup'."
2237   :group 'org-export-general
2240 (defcustom org-export-headline-levels 3
2247   :group 'org-export-general
2250 (defcustom org-export-with-section-numbers t
2254   :group 'org-export-general
2257 (defcustom org-export-with-toc t
2259 The TOC contains headlines with levels up to`org-export-headline-levels'.
2261 different from `org-export-headline-levels', but it will not be allowed
2267 `org-export-mark-todo-in-toc' is set.
2273   :group 'org-export-general
2279 (defcustom org-export-mark-todo-in-toc nil
2281   :group 'org-export-general
2284 (defcustom org-export-preserve-breaks nil
2290   :group 'org-export-general
2293 (defcustom org-export-with-archived-trees 'headline
2299   :group 'org-export-general
2300   :group 'org-archive
2306 (defcustom org-export-with-timestamps t
2308   :group 'org-export-general
2311 (defcustom org-export-remove-timestamps-from-toc t
2313   :group 'org-export-general
2316 (defcustom org-export-with-tags 'not-in-toc
2320   :group 'org-export-general
2326 (defgroup org-export-translation nil
2329   :group 'org-export)
2331 (defcustom org-export-with-emphasize t
2339   :group 'org-export-translation
2342 (defcustom org-export-with-sub-superscripts t
2361   :group 'org-export-translation
2364 (defcustom org-export-with-TeX-macros t
2369 names in HTML export, see the constant `org-html-entities'.
2373   :group 'org-export-translation
2374   :group 'org-latex
2377 (defcustom org-export-with-LaTeX-fragments nil
2385   :group 'org-export-translation
2386   :group 'org-latex
2389 (defcustom org-export-with-fixed-width t
2400   :group 'org-export-translation
2403 (defcustom org-match-sexp-depth 3
2405 This has to be set before loading org.el to be effective."
2406   :group 'org-export-translation
2409 (defgroup org-export-tables nil
2412   :group 'org-export)
2414 (defcustom org-export-with-tables t
2425   :group 'org-export-tables
2428 (defcustom org-export-highlight-first-table-line t
2434   :group 'org-export-tables
2437 (defcustom org-export-table-remove-special-lines t
2443   :group 'org-export-tables
2446 (defcustom org-export-prefer-native-exporter-for-tables nil
2454   :group 'org-export-tables
2457 (defgroup org-export-ascii nil
2460   :group 'org-export)
2462 (defcustom org-export-ascii-underline '(?\$ ?\# ?^ ?\~ ?\= ?\-)
2465   :group 'org-export-ascii
2468 (defcustom org-export-ascii-bullets '(?* ?+ ?-)
2475   :group 'org-export-ascii
2478 (defgroup org-export-xml nil
2481   :group 'org-export)
2483 (defgroup org-export-html nil
2486   :group 'org-export)
2488 (defcustom org-export-html-style
2517 for new classes todo, done, title, and deadline.  For example, legal values
2524       .todo, .deadline { color: red; }
2534   :group 'org-export-html
2537 (defcustom org-export-html-title-format "<h1 class=\"title\">%s</h1>\n"
2539   :group 'org-export-html
2542 (defcustom org-export-html-toplevel-hlevel 2
2544   :group 'org-export-html
2547 (defcustom org-export-html-link-org-files-as-html t
2548   "Non-nil means, make file links to `file.org' point to `file.html'.
2549 When org-mode is exporting an org-mode file to HTML, links to
2552 extension `.org.) should become links to the corresponding html
2553 file, assuming that the linked org-mode file will also be
2555 When nil, the links still point to the plain `.org' file."
2556   :group 'org-export-html
2559 (defcustom org-export-html-inline-images 'maybe
2565   :group 'org-export-html
2571 (defcustom org-export-html-expand t
2577   :group 'org-export-html
2580 (defcustom org-export-html-table-tag
2585   :group 'org-export-html
2588 (defcustom org-export-html-with-timestamp nil
2589   "If non-nil, write `org-export-html-html-helper-timestamp'
2592   :group 'org-export-html
2595 (defcustom org-export-html-html-helper-timestamp
2598   :group 'org-export-html
2601 (defgroup org-export-icalendar nil
2604   :group 'org-export)
2606 (defcustom org-combined-agenda-icalendar-file "~/org.ics"
2608 This file is created with the command \\[org-export-icalendar-all-agenda-files].
2610   :group 'org-export-icalendar
2613 (defcustom org-icalendar-include-todo nil
2615   :group 'org-export-icalendar
2621 (defcustom org-icalendar-combined-name "OrgMode"
2623   :group 'org-export-icalendar
2626 (defgroup org-font-lock nil
2629   :group 'org)
2631 (defcustom org-level-color-stars-only nil
2636   :group 'org-font-lock
2639 (defcustom org-hide-leading-stars nil
2641 This works by using the face `org-hide' for these stars.  This
2643 background.  You may have to customize the face `org-hide' to
2652   :group 'org-font-lock
2655 (defcustom org-fontify-done-headline nil
2659 `org-headline-done' as an additional indication."
2660   :group 'org-font-lock
2663 (defcustom org-fontify-emphasized-text t
2666   :group 'org-font-lock
2669 (defvar org-emph-re nil
2671 (defvar org-emphasis-regexp-components) ; defined just below
2672 (defvar org-emphasis-alist) ; defined just below
2673 (defun org-set-emph-re (var val)
2676   (when (and (boundp 'org-emphasis-alist)
2677 	     (boundp 'org-emphasis-regexp-components)
2678 	     org-emphasis-alist org-emphasis-regexp-components)
2679     (let* ((e org-emphasis-regexp-components)
2687 	   (markers (mapconcat 'car org-emphasis-alist "")))
2698       ;; Make the regexp
2699       (setq org-emph-re
2711 (defcustom org-emphasis-regexp-components
2724 body-regexp  A regexp like \".\" to match a body character.  Don't use
2729              `org-emphasis-alist') will be allowed as pre/post, aiding
2732   :group 'org-font-lock
2733   :set 'org-set-emph-re
2742 (defcustom org-emphasis-alist
2755   :group 'org-font-lock
2756   :set 'org-set-emph-re
2768 (defgroup org-faces nil
2771   :group 'org-font-lock)
2773 (defun org-compatible-face (specs)
2794 (defface org-hide
2800   :group 'org-faces)
2802 (defface org-level-1 ;; font-lock-function-name-face
2803   (org-compatible-face
2811   :group 'org-faces)
2813 (defface org-level-2 ;; font-lock-variable-name-face
2814   (org-compatible-face
2821   :group 'org-faces)
2823 (defface org-level-3 ;; font-lock-keyword-face
2824   (org-compatible-face
2833   :group 'org-faces)
2835 (defface org-level-4   ;; font-lock-comment-face
2836   (org-compatible-face
2845   :group 'org-faces)
2847 (defface org-level-5 ;; font-lock-type-face
2848   (org-compatible-face
2853   :group 'org-faces)
2855 (defface org-level-6 ;; font-lock-constant-face
2856   (org-compatible-face
2861   :group 'org-faces)
2863 (defface org-level-7 ;; font-lock-builtin-face
2864   (org-compatible-face
2869   :group 'org-faces)
2871 (defface org-level-8 ;; font-lock-string-face
2872   (org-compatible-face
2877   :group 'org-faces)
2879 (defface org-special-keyword ;; font-lock-string-face
2880   (org-compatible-face
2885   :group 'org-faces)
2887 (defface org-warning ;; font-lock-warning-face
2888   (org-compatible-face
2895   :group 'org-faces)
2897 (defface org-headline-done ;; font-lock-string-face
2898   (org-compatible-face
2903 This face is only used if `org-fontify-done-headline' is set."
2904   :group 'org-faces)
2906 (defface org-archived    ; similar to shadow
2907   (org-compatible-face
2917    :group 'org-faces)
2919 (defface org-link
2924   :group 'org-faces)
2926 (defface org-date
2931   :group 'org-faces)
2933 (defface org-tag
2936   :group 'org-faces)
2938 (defface org-todo ;; font-lock-warning-face
2939   (org-compatible-face
2946   :group 'org-faces)
2948 (defface org-done ;; font-lock-type-face
2949   (org-compatible-face
2955   :group 'org-faces)
2957 (defface org-table ;; font-lock-function-name-face
2958   (org-compatible-face
2966   :group 'org-faces)
2968 (defface org-formula
2969   (org-compatible-face
2976   :group 'org-faces)
2978 (defface org-scheduled-today
2979   (org-compatible-face
2985   :group 'org-faces)
2987 (defface org-scheduled-previously
2988   (org-compatible-face
2995   :group 'org-faces)
2997 (defface org-upcoming-deadline
2998   (org-compatible-face
3005   :group 'org-faces)
3007 (defface org-time-grid ;; font-lock-variable-name-face
3008   (org-compatible-face
3013   :group 'org-faces)
3015 (defconst org-level-faces
3016   '(org-level-1 org-level-2 org-level-3 org-level-4
3017     org-level-5 org-level-6 org-level-7 org-level-8
3019 (defconst org-n-levels (length org-level-faces))
3024 (defvar org-done-string nil
3025   "The last string in `org-todo-keywords', indicating an item is DONE.")
3026 (make-variable-buffer-local 'org-done-string)
3027 (defvar org-todo-regexp nil
3029 (make-variable-buffer-local 'org-todo-regexp)
3030 (defvar org-not-done-regexp nil
3032 (make-variable-buffer-local 'org-not-done-regexp)
3033 (defvar org-todo-line-regexp nil
3035 (make-variable-buffer-local 'org-todo-line-regexp)
3036 (defvar org-todo-line-tags-regexp nil
3039 (make-variable-buffer-local 'org-todo-line-tags-regexp)
3040 (defvar org-nl-done-regexp nil
3042 (make-variable-buffer-local 'org-nl-done-regexp)
3043 (defvar org-looking-at-done-regexp nil
3045 (make-variable-buffer-local 'org-looking-at-done-regexp)
3046 (defvar org-todo-kwd-priority-p nil
3048 (make-variable-buffer-local 'org-todo-kwd-priority-p)
3049 (defvar org-todo-kwd-max-priority nil
3051 (make-variable-buffer-local 'org-todo-kwd-max-priority)
3052 (defvar org-ds-keyword-length 12
3054 (make-variable-buffer-local 'org-ds-keyword-length)
3055 (defvar org-deadline-regexp nil
3057 (make-variable-buffer-local 'org-deadline-regexp)
3058 (defvar org-deadline-time-regexp nil
3060 (make-variable-buffer-local 'org-deadline-time-regexp)
3061 (defvar org-deadline-line-regexp nil
3063 (make-variable-buffer-local 'org-deadline-line-regexp)
3064 (defvar org-scheduled-regexp nil
3066 (make-variable-buffer-local 'org-scheduled-regexp)
3067 (defvar org-scheduled-time-regexp nil
3069 (make-variable-buffer-local 'org-scheduled-time-regexp)
3070 (defvar org-closed-time-regexp nil
3072 (make-variable-buffer-local 'org-closed-time-regexp)
3074 (defvar org-keyword-time-regexp nil
3076 (make-variable-buffer-local 'org-keyword-time-regexp)
3077 (defvar org-keyword-time-not-clock-regexp nil
3079 (make-variable-buffer-local 'org-keyword-time-not-clock-regexp)
3080 (defvar org-maybe-keyword-time-regexp nil
3082 (make-variable-buffer-local 'org-maybe-keyword-time-regexp)
3084 (defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t
3088 (defsubst org-match-string-no-properties (num &optional string)
3091 	(remove-text-properties 0 (length s) org-rm-props s)
3095 (defsubst org-no-properties (s)
3096   (remove-text-properties 0 (length s) org-rm-props s)
3099 (defsubst org-get-alist-option (option key)
3105 (defsubst org-set-local (var value)
3109 (defsubst org-mode-p ()
3111   (eq major-mode 'org-mode))
3113 (defsubst org-last (list)
3117 (defun org-let (list &rest body)
3119 (put 'org-let 'lisp-indent-function 1)
3121 (defun org-let2 (list1 list2 &rest body)
3123 (put 'org-let2 'lisp-indent-function 2)
3124 (defconst org-startup-options
3125   '(("fold" org-startup-folded t)
3126     ("overview" org-startup-folded t)
3127     ("nofold" org-startup-folded nil)
3128     ("showall" org-startup-folded nil)
3129     ("content" org-startup-folded content)
3130     ("hidestars" org-hide-leading-stars t)
3131     ("showstars" org-hide-leading-stars nil)
3132     ("odd" org-odd-levels-only t)
3133     ("oddeven" org-odd-levels-only nil)
3134     ("align" org-startup-align-all-tables t)
3135     ("noalign" org-startup-align-all-tables nil)
3136     ("customtime" org-display-custom-times t)
3137     ("logging" org-log-done t)
3138     ("logdone" org-log-done t)
3139     ("nologging" org-log-done nil)
3140     ("lognotedone" org-log-done done push)
3141     ("lognotestate" org-log-done state push)
3142     ("lognoteclock-out" org-log-done clock-out push))
3143   "Variable associated with STARTUP options for org-mode.
3149 (defun org-set-regexps-and-options ()
3151   (when (org-mode-p)
3152     (let ((re (org-make-options-regexp
3162 	    (setq key (match-string 1) value (org-match-string-no-properties 2))
3170 		    kwds (append kwds (org-split-string value splitre))))
3173 		    kwds (append kwds (org-split-string value splitre))))
3176 		    kwds (append kwds (org-split-string value splitre))))
3178 	      (setq tags (append tags (org-split-string value splitre))))
3182 			    (org-trim (match-string 2 value)))
3185 	      (let ((opts (org-split-string value splitre))
3187 		(while (setq l (assoc (pop opts) org-startup-options))
3201       (and cat (org-set-local 'org-category cat))
3202       (and kwds (org-set-local 'org-todo-keywords kwds))
3203       (and arch (org-set-local 'org-archive-location arch))
3204       (and int (org-set-local 'org-todo-interpretation int))
3205       (and links (setq org-link-abbrev-alist-local (nreverse links)))
3217 	  (org-set-local 'org-tag-alist nil)
3220 		     (assoc (car e) org-tag-alist))
3221 		(push e org-tag-alist))))))
3224     (setq org-todo-kwd-priority-p (equal org-todo-interpretation 'priority)
3225 	  org-todo-kwd-max-priority (1- (length org-todo-keywords))
3226 	  org-ds-keyword-length (+ 2 (max (length org-deadline-string)
3227 					  (length org-scheduled-string)))
3228 	  org-done-string
3229 	  (nth (1- (length org-todo-keywords)) org-todo-keywords)
3230 	  org-todo-regexp
3231 	  (concat "\\<\\(" (mapconcat 'regexp-quote org-todo-keywords
3233 	  org-not-done-regexp
3235 		  (mapconcat 'regexp-quote
3236 			     (nreverse (cdr (reverse org-todo-keywords)))
3239 	  org-todo-line-regexp
3241 		  (mapconcat 'regexp-quote org-todo-keywords "\\|")
3243 	  org-nl-done-regexp
3244 	  (concat "[\r\n]\\*+[ \t]+" org-done-string "\\>")
3245 	  org-todo-line-tags-regexp
3247 		  (mapconcat 'regexp-quote org-todo-keywords "\\|")
3249 	  org-looking-at-done-regexp (concat "^" org-done-string "\\>")
3250 	  org-deadline-regexp (concat "\\<" org-deadline-string)
3251 	  org-deadline-time-regexp
3252 	  (concat "\\<" org-deadline-string " *<\\([^>]+\\)>")
3253 	  org-deadline-line-regexp
3254 	  (concat "\\<\\(" org-deadline-string "\\).*")
3255 	  org-scheduled-regexp
3256 	  (concat "\\<" org-scheduled-string)
3257 	  org-scheduled-time-regexp
3258 	  (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>")
3259 	  org-closed-time-regexp
3260 	  (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]")
3261 	  org-keyword-time-regexp
3262 	  (concat "\\<\\(" org-scheduled-string
3263 		  "\\|" org-deadline-string
3264 		  "\\|" org-closed-string
3265 		  "\\|" org-clock-string "\\)"
3267 	  org-keyword-time-not-clock-regexp
3268 	  (concat "\\<\\(" org-scheduled-string
3269 		  "\\|" org-deadline-string
3270 		  "\\|" org-closed-string "\\)"
3272 	  org-maybe-keyword-time-regexp
3273 	  (concat "\\(\\<\\(" org-scheduled-string
3274 		  "\\|" org-deadline-string
3275 		  "\\|" org-closed-string
3276 		  "\\|" org-clock-string "\\)\\)?"
3279     (org-set-font-lock-defaults)))
3284 (defvar org-window-configuration nil
3286 (defvar org-finish-function nil
3300 ;; Packages that org-mode interacts with
3304 (defvar org-goto-start-pos)
3327 (defvar org-latex-regexps)
3342 (defvar org-agenda-undo-list)
3343 (defvar org-agenda-pending-undo-list)
3344 (defvar org-agenda-overriding-header)
3346 (defvar org-html-entities)
3347 (defvar org-struct-menu)
3348 (defvar org-org-menu)
3349 (defvar org-tbl-menu)
3350 (defvar org-agenda-keymap)
3351 (defvar org-category-table)
3356 (defun org-make-overlay (beg end &optional buffer)
3360 (defun org-delete-overlay (ovl)
3362 (defun org-detach-overlay (ovl)
3364 (defun org-move-overlay (ovl beg end &optional buffer)
3368 (defun org-overlay-put (ovl prop value)
3372 (defun org-overlay-display (ovl text &optional face evap)
3382 (defun org-overlay-before-string (ovl text &optional face evap)
3388     (if face (org-add-props text nil 'face face))
3391 (defun org-overlay-get (ovl prop)
3395 (defun org-overlays-at (pos)
3397 (defun org-overlays-in (&optional start end)
3401 (defun org-overlay-start (o)
3403 (defun org-overlay-end (o)
3405 (defun org-find-overlays (prop &optional pos delete)
3408   (let ((overlays (org-overlays-at (or pos (point))))
3411       (if (org-overlay-get ov prop)
3412           (if delete (org-delete-overlay ov) (push ov found))))
3417 (defun org-add-hook (hook function &optional append local)
3423 (defvar org-ignore-region nil
3426 (defun org-region-active-p ()
3429   (if org-ignore-region
3437 (defun org-add-to-invisibility-spec (arg)
3450 (defun org-remove-from-invisibility-spec (arg)
3458 (defun org-in-invisibility-spec-p (arg)
3467     (error "Conflict with outdated version of allout.el.  Load org.el before allout.el, or ugrade to newer allout, for example by switching to Emacs 22."))
3472 (defvar org-table-may-need-update t
3474 This variable is set by `org-before-change-function'.
3475 `org-table-align' sets it back to nil.")
3476 (defvar org-mode-map)
3477 (defvar org-mode-hook nil)
3478 (defvar org-inhibit-startup nil)        ; Dynamically-scoped param.
3479 (defvar org-agenda-keep-modes nil)      ; Dynamically-scoped param.
3483 (define-derived-mode org-mode outline-mode "Org"
3500 \\{org-mode-map}"
3505   ;; we switch another buffer into org-mode.
3512     (define-key org-mode-map [menu-bar headings] 'undefined)
3513     (define-key org-mode-map [menu-bar hide] 'undefined)
3514     (define-key org-mode-map [menu-bar show] 'undefined))
3516   (easy-menu-add org-org-menu)
3517   (easy-menu-add org-tbl-menu)
3518   (org-install-agenda-files-menu)
3519   (if org-descriptive-links (org-add-to-invisibility-spec '(org-link)))
3520   (org-add-to-invisibility-spec '(org-cwidth))
3522     (org-set-local 'line-move-ignore-invisible t))
3523   (setq outline-regexp "\\*+")
3524   ;;(setq outline-regexp "\\(?:\\*+\\|[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\) \\)")
3525   (setq outline-level 'org-outline-level)
3526   (when (and org-ellipsis (stringp org-ellipsis)
3528     (unless org-display-table
3529       (setq org-display-table (make-display-table)))
3530     (set-display-table-slot org-display-table
3531 			    4 (string-to-vector org-ellipsis))
3532     (setq buffer-display-table org-display-table))
3533   (org-set-regexps-and-options)
3535   (org-set-local 'calc-embedded-open-mode "# ")
3537   (if org-startup-truncated (setq truncate-lines t))
3538   (org-set-local 'font-lock-unfontify-region-function
3539 		 'org-unfontify-region)
3541   (org-set-local 'org-table-may-need-update t)
3542   (org-add-hook 'before-change-functions 'org-before-change-function nil
3545   (org-add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
3547   (org-set-autofill-regexps)
3548   (org-update-radio-target-regexp)
3551 ;  (org-set-local 'comment-start "#") ;; FIXME: this breaks wrapping
3552   (org-set-local 'comment-padding " ")
3558       (org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
3560     (org-set-local 'outline-isearch-open-invisible-function
3561 		   (lambda (&rest ignore) (org-show-context 'isearch))))
3563   ;; If empty file that did not turn on org-mode automatically, make it to.
3564   (if (and org-insert-mode-line-in-empty-file
3567       (insert "    -*- mode: org -*-\n\n"))
3569   (unless org-inhibit-startup
3570     (when org-startup-align-all-tables
3572 	(org-table-map-tables 'org-table-align)
3575      ((eq org-startup-folded t)
3576       (org-cycle '(4)))
3577      ((eq org-startup-folded 'content)
3578       (let ((this-command 'org-cycle) (last-command 'org-cycle))
3579 	(org-cycle '(4)) (org-cycle '(4)))))))
3581 (defsubst org-call-with-arg (command arg)
3585 (defsubst org-current-line (&optional pos)
3590 (defun org-current-time ()
3591   "Current time, possibly rounded to `org-time-stamp-rounding-minutes'."
3592   (if (> org-time-stamp-rounding-minutes 0)
3593       (let ((r org-time-stamp-rounding-minutes)
3600 (defun org-add-props (string plist &rest props)
3607 (put 'org-add-props 'lisp-indent-function 2)
3612 (defvar org-mouse-map (make-sparse-keymap))
3613 (define-key org-mouse-map
3614   (if (featurep 'xemacs) [button2] [mouse-2]) 'org-open-at-mouse)
3615 (define-key org-mouse-map
3616   (if (featurep 'xemacs) [button3] [mouse-3]) 'org-find-file-at-mouse)
3617 (when org-mouse-1-follows-link
3618   (define-key org-mouse-map [follow-link] 'mouse-face))
3619 (when org-tab-follows-link
3620   (define-key org-mouse-map [(tab)] 'org-open-at-point)
3621   (define-key org-mouse-map "\C-i" 'org-open-at-point))
3622 (when org-return-follows-link
3623   (define-key org-mouse-map [(return)] 'org-open-at-point)
3624   (define-key org-mouse-map "\C-m" 'org-open-at-point))
3628 (defconst org-non-link-chars "]\t\n\r<>")
3629 (defconst org-link-types '("https?" "ftp" "mailto" "file" "news" "bbdb" "vm"
3631 (defconst org-link-re-with-space
3633    "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3634    "\\([^" org-non-link-chars " ]"
3635    "[^" org-non-link-chars "]*"
3636    "[^" org-non-link-chars " ]\\)>?")
3639 (defconst org-link-re-with-space2
3641    "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3642    "\\([^" org-non-link-chars " ]"
3644    "[^" org-non-link-chars " ]\\)>?")
3647 (defconst org-angle-link-re
3649    "<\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3650    "\\([^" org-non-link-chars " ]"
3651    "[^" org-non-link-chars "]*"
3654 (defconst org-plain-link-re
3656    "\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3660 (defconst org-bracket-link-regexp
3664 (defconst org-bracket-link-analytic-regexp
3667   "\\(\\(" (mapconcat 'identity org-link-types "\\|") "\\):\\)?"
3678 (defconst org-any-link-re
3679   (concat "\\(" org-bracket-link-regexp "\\)\\|\\("
3680 	  org-angle-link-re "\\)\\|\\("
3681 	  org-plain-link-re "\\)")
3684 (defconst org-ts-lengths
3685   (cons (length (format-time-string (car org-time-stamp-formats)))
3686 	(length (format-time-string (cdr org-time-stamp-formats))))
3688 (defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^\r\n>]*?\\)>"
3690 (defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^\r\n>]*?\\)[]>]"
3692 (defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\([^]0-9>\r\n]*\\)\\(\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
3694 (defconst org-ts-regexp2 (concat "<" org-ts-regexp1 ">")
3696 (defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[]>]")
3698 (defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp)
3700 (defconst org-tr-regexp-both
3701   (concat org-ts-regexp-both "--?-?" org-ts-regexp-both)
3703 (defconst org-tsr-regexp (concat org-ts-regexp "\\(--?-?"
3704 				 org-ts-regexp "\\)?")
3706 (defconst org-tsr-regexp-both (concat org-ts-regexp-both "\\(--?-?"
3707 				      org-ts-regexp-both "\\)?")
3711 (defvar org-emph-face nil)
3713 (defun org-do-emphasis-faces (limit)
3715   (if (re-search-forward org-emph-re limit t)
3720 						       org-emphasis-alist)))
3726 (defun org-activate-plain-links (limit)
3728   (if (re-search-forward org-plain-link-re limit t)
3733 				   'keymap org-mouse-map
3737 (defun org-activate-angle-links (limit)
3739   (if (re-search-forward org-angle-link-re limit t)
3744 				   'keymap org-mouse-map
3748 (defmacro org-maybe-intangible (props)
3760 (defun org-activate-bracket-links (limit)
3762   (if (re-search-forward org-bracket-link-regexp limit t)
3764 			   (org-match-string-no-properties 1)))
3768 	     (ip (org-maybe-intangible
3769 		  (list 'invisible 'org-link 'rear-nonsticky t
3770 			'keymap org-mouse-map 'mouse-face 'highlight
3773 		       'keymap org-mouse-map 'mouse-face 'highlight
3789 (defun org-activate-dates (limit)
3791   (if (re-search-forward org-tsr-regexp-both limit t)
3796 				   'keymap org-mouse-map))
3797 	(when org-display-custom-times
3799 	      (org-display-custom-time (match-beginning 3) (match-end 3)))
3800 	  (org-display-custom-time (match-beginning 1) (match-end 1)))
3803 (defvar org-target-link-regexp nil
3805 (defvar org-target-regexp "<<\\([^<>\n\r]+\\)>>"
3807 (defvar org-radio-target-regexp "<<<\\([^<>\n\r]+\\)>>>"
3810 (defun org-activate-target-links (limit)
3812   (when org-target-link-regexp
3814       (if (re-search-forward org-target-link-regexp limit t)
3819 				       'keymap org-mouse-map
3821 				       'org-linked-text t))
3824 (defun org-update-radio-target-regexp ()
3827   (when (memq 'radio org-activate-links)
3828     (setq org-target-link-regexp
3829 	  (org-make-target-link-regexp (org-all-targets 'radio)))
3830     (org-restart-font-lock)))
3832 (defun org-hide-wide-columns (limit)
3835 			       'org-cwidth t))
3837       (setq e (next-single-property-change s 'org-cwidth))
3838       (add-text-properties s e (org-maybe-intangible '(invisible org-cwidth)))
3842 (defun org-restart-font-lock ()
3848 (defun org-all-targets (&optional radio)
3851   (let ((re (if radio org-radio-target-regexp org-target-regexp))
3856 	(add-to-list 'rtn (downcase (org-match-string-no-properties 1))))
3859 (defun org-make-target-link-regexp (targets)
3875 (defun org-activate-tags (limit)
3881 				   'keymap org-mouse-map))
3884 (defun org-font-lock-level ()
3886     (org-back-to-heading t)
3889 (defun org-outline-level ()
3891     (looking-at outline-regexp)
3893 	(+ (org-get-string-indentation (match-string 1)) 1000)
3896 (defvar org-font-lock-keywords nil)
3898 (defun org-set-font-lock-defaults ()
3899   (let* ((em org-fontify-emphasized-text)
3900 	 (lk org-activate-links)
3901 	 (org-font-lock-extra-keywords
3904 	   '("^\\(\\**\\)\\(\\*\\)\\(.*\\)" (1 (org-get-level-face 1))
3905 	     (2 (org-get-level-face 2)) (3 (org-get-level-face 3)))
3907 	     (1 'org-table))
3909 	   (if (memq 'angle lk) '(org-activate-angle-links (0 'org-link t)))
3910 	   (if (memq 'plain lk) '(org-activate-plain-links (0 'org-link t)))
3911 	   (if (memq 'bracket lk) '(org-activate-bracket-links (0 'org-link t)))
3912 	   (if (memq 'radio lk) '(org-activate-target-links (0 'org-link t)))
3913 	   (if (memq 'date lk) '(org-activate-dates (0 'org-date t)))
3914 	   (if (memq 'tag lk) '(org-activate-tags (1 'org-tag prepend)))
3915 	   '(org-hide-wide-columns (0 nil append))
3917 	   (list (concat "^\\*+[ \t]*" org-not-done-regexp)
3918 		 '(1 'org-todo t))
3920 	   (list (concat "\\[#[A-Z]\\]") '(0 'org-special-keyword t))
3922 	   (list org-repeat-re  '(0 'org-special-keyword t))
3923 	   (list (concat "\\<" org-deadline-string) '(0 'org-special-keyword t))
3924 	   (list (concat "\\<" org-scheduled-string) '(0 'org-special-keyword t))
3925 	   (list (concat "\\<" org-closed-string) '(0 'org-special-keyword t))
3926 	   (list (concat "\\<" org-clock-string) '(0 'org-special-keyword t))
3930                    '(org-do-emphasis-faces (0 nil append))
3931                  '(org-do-emphasis-faces)))
3932 	   ;; Checkboxes, similar to Frank Ruell's org-checklet.el
3935 	   (if org-provide-checkbox-statistics
3937 		 (0 (org-get-checkbox-statistics-face) t)))
3939 	   (list (concat "^\\*+[ \t]*\\<\\(" org-comment-string
3940 			 "\\|" org-quote-string "\\)\\>")
3941 		 '(1 'org-special-keyword t))
3944 	   (if org-fontify-done-headline
3945 	       (list (concat "^[*]+ +\\<\\(" org-done-string "\\)\\(.*\\)\\>")
3946 		     '(1 'org-done t) '(2 'org-headline-done t))
3947 	     (list (concat "^[*]+ +\\<\\(" org-done-string "\\)\\>")
3948 		   '(1 'org-done t)))
3950 	   '("^[ \t]*\\(:.*\\)" (1 'org-table t))
3951 	   '("| *\\(:?=[^|\n]*\\)" (1 'org-formula t))
3952 	   '("^[ \t]*| *\\([#!$*_^]\\) *|" (1 'org-formula t))
3953 	   (if org-format-transports-properties-p
3954 	       '("| *\\(<[0-9]+>\\) *" (1 'org-formula t)))
3955 	   '("^\\*+ \\(.*:ARCHIVE:.*\\)" (1 'org-archived prepend))
3957     (setq org-font-lock-extra-keywords (delq nil org-font-lock-extra-keywords))
3959     (org-set-local 'org-font-lock-keywords org-font-lock-extra-keywords)
3960     (org-set-local 'font-lock-defaults
3961 		   '(org-font-lock-keywords t nil nil backward-paragraph))
3964 (defvar org-m nil)
3965 (defvar org-l nil)
3966 (defvar org-f nil)
3967 (defun org-get-level-face (n)
3969   (setq org-l (- (match-end 2) (match-beginning 1)))
3970   (if org-odd-levels-only (setq org-l (1+ (/ org-l 2))))
3971 ;  (setq org-f (nth (1- (% org-l org-n-levels)) org-level-faces))
3972   (setq org-f (nth (% (1- org-l) org-n-levels) org-level-faces))
3974    ((eq n 1) (if org-hide-leading-stars 'org-hide org-f))
3975    ((eq n 2) org-f)
3976    (t (if org-level-color-stars-only nil org-f))))
3978 (defun org-unfontify-region (beg end &optional maybe_loudly)
3986 			    '(mouse-face t keymap t org-linked-text t
3990 ;;;; Visibility cycling, including org-goto and indirect buffer
3994 (defvar org-cycle-global-status nil)
3995 (make-variable-buffer-local 'org-cycle-global-status)
3996 (defvar org-cycle-subtree-status nil)
3997 (make-variable-buffer-local 'org-cycle-subtree-status)
4000 (defun org-cycle (&optional arg)
4023   `org-cycle-emulate-tab' for details.
4028   (let* ((outline-regexp
4029 	  (if (and (org-mode-p) org-cycle-include-plain-lists)
4031 	    outline-regexp))
4032 	 (bob-special (and org-cycle-global-at-bob (bobp)
4033 			   (not (looking-at outline-regexp))))
4034 	 (org-cycle-hook
4036 	      (delq 'org-optimize-window-after-visibility-change
4037 		    (copy-sequence org-cycle-hook))
4038 	    org-cycle-hook))
4047      ((org-at-table-p 'any)
4049       (or (org-table-recognize-table.el)
4051 	    (if arg (org-table-edit-field t)
4052 	      (org-table-justify-field-maybe)
4053 	      (call-interactively 'org-table-next-field)))))
4059 	     (eq org-cycle-global-status 'overview))
4063 	(org-content)
4065 	(setq org-cycle-global-status 'contents)
4066 	(run-hook-with-args 'org-cycle-hook 'contents))
4069 	     (eq org-cycle-global-status 'contents))
4073 	(setq org-cycle-global-status 'all)
4074 	(run-hook-with-args 'org-cycle-hook 'all))
4078 	(org-overview)
4080 	(setq org-cycle-global-status 'overview)
4081 	(run-hook-with-args 'org-cycle-hook 'overview))))
4086 	(org-back-to-heading)
4089 	(org-show-subtree)))
4091      ((save-excursion (beginning-of-line 1) (looking-at outline-regexp))
4093       (org-back-to-heading)
4097 	  (org-back-to-heading)
4104 	  (org-end-of-subtree t)
4113 	  (setq org-cycle-subtree-status nil))
4116 	  (org-show-entry)
4119 	  (setq org-cycle-subtree-status 'children)
4120 	  (run-hook-with-args 'org-cycle-hook 'children))
4122 	       (eq org-cycle-subtree-status 'children))
4124 	  (org-show-subtree)
4126 	  (setq org-cycle-subtree-status 'subtree)
4127 	  (run-hook-with-args 'org-cycle-hook 'subtree))
4132 	  (setq org-cycle-subtree-status 'folded)
4133 	  (run-hook-with-args 'org-cycle-hook 'folded)))))
4136      (buffer-read-only (org-back-to-heading))
4138      ((org-try-cdlatex-tab))
4140      ((if (and (memq org-cycle-emulate-tab '(white whitestart))
4142 	       (or (and (eq org-cycle-emulate-tab 'white)
4144 		   (and (eq org-cycle-emulate-tab 'whitestart)
4147 	(eq org-cycle-emulate-tab t))
4157 	  (org-back-to-heading)
4158 	  (org-cycle))))))
4161 (defun org-global-cycle (&optional arg)
4162   "Cycle the global visibility.  For details see `org-cycle'."
4164   (let ((org-cycle-include-plain-lists
4165 	 (if (org-mode-p) org-cycle-include-plain-lists nil)))
4170 	  (setq org-cycle-global-status 'contents))
4171       (org-cycle '(4)))))
4173 (defun org-overview ()
4182 		    (if (re-search-forward (concat "^" outline-regexp) nil t)
4188 (defun org-content (&optional arg)
4194     (and (integerp arg) (org-overview))
4201 		  (looking-at outline-regexp))
4208 (defun org-optimize-window-after-visibility-change (state)
4210 This function is the default value of the hook `org-cycle-hook'."
4213      ((eq state 'overview) (org-first-headline-recenter 1))
4217      ((eq state 'children) (or (org-subtree-end-visible-p) (recenter 1)))
4218      ((eq state 'subtree)  (or (org-subtree-end-visible-p) (recenter 1))))))
4220 (defun org-subtree-end-visible-p ()
4223    (save-excursion (org-end-of-subtree t) (point))))
4225 (defun org-first-headline-recenter (&optional N)
4229   (when (re-search-forward (concat "^\\(" outline-regexp "\\)") nil t)
4235 (defvar org-goto-window-configuration nil)
4236 (defvar org-goto-marker nil)
4237 (defvar org-goto-map (make-sparse-keymap))
4240     (substitute-key-definition cmd cmd org-goto-map global-map)))
4241 (define-key org-goto-map "\C-m"     'org-goto-ret)
4242 (define-key org-goto-map [(left)]   'org-goto-left)
4243 (define-key org-goto-map [(right)]  'org-goto-right)
4244 (define-key org-goto-map [(?q)]     'org-goto-quit)
4245 (define-key org-goto-map [(control ?g)] 'org-goto-quit)
4246 (define-key org-goto-map "\C-i" 'org-cycle)
4247 (define-key org-goto-map [(tab)] 'org-cycle)
4248 (define-key org-goto-map [(down)] 'outline-next-visible-heading)
4249 (define-key org-goto-map [(up)] 'outline-previous-visible-heading)
4250 (define-key org-goto-map "n" 'outline-next-visible-heading)
4251 (define-key org-goto-map "p" 'outline-previous-visible-heading)
4252 (define-key org-goto-map "f" 'outline-forward-same-level)
4253 (define-key org-goto-map "b" 'outline-backward-same-level)
4254 (define-key org-goto-map "u" 'outline-up-heading)
4255 (define-key org-goto-map "\C-c\C-n" 'outline-next-visible-heading)
4256 (define-key org-goto-map "\C-c\C-p" 'outline-previous-visible-heading)
4257 (define-key org-goto-map "\C-c\C-f" 'outline-forward-same-level)
4258 (define-key org-goto-map "\C-c\C-b" 'outline-backward-same-level)
4259 (define-key org-goto-map "\C-c\C-u" 'outline-up-heading)
4261   (while l (define-key org-goto-map (int-to-string (pop l)) 'digit-argument)))
4263 (defconst org-goto-help
4267 (defun org-goto ()
4281   (let* ((org-goto-start-pos (point))
4283 	  (org-get-location (current-buffer) org-goto-help)))
4286 	  (org-mark-ring-push org-goto-start-pos)
4288 	  (if (or (org-invisible-p) (org-invisible-p2))
4289 	      (org-show-context 'org-goto)))
4292 (defvar org-selected-point nil) ; dynamically scoped parameter
4294 (defun org-get-location (buf help)
4298   (let (org-selected-point)
4302 	(switch-to-buffer (get-buffer-create "*org-goto*"))
4309 	(let ((org-startup-truncated t)
4310 	      (org-startup-folded t)
4311 	      (org-startup-align-all-tables nil))
4312 	  (org-mode))
4314 	(if (and (boundp 'org-goto-start-pos)
4315 		 (integer-or-marker-p org-goto-start-pos))
4316 	    (let ((org-show-hierarchy-above t)
4317 		  (org-show-siblings t)
4318 		  (org-show-following-heading t))
4319 	      (goto-char org-goto-start-pos)
4320 	      (and (org-invisible-p) (org-show-context)))
4322 	(org-beginning-of-line)
4327 	      (overriding-local-map org-goto-map))
4330 		(use-global-map org-goto-map)
4333     (kill-buffer "*org-goto*")
4334     org-selected-point))
4336 (defun org-goto-ret (&optional arg)
4337   "Finish `org-goto' by going to the new location."
4339   (setq org-selected-point (point)
4343 (defun org-goto-left ()
4344   "Finish `org-goto' by going to the new location."
4346   (if (org-on-heading-p)
4349 	(setq org-selected-point (point)
4354 (defun org-goto-right ()
4355   "Finish `org-goto' by going to the new location."
4357   (if (org-on-heading-p)
4361 	(setq org-selected-point (point)
4366 (defun org-goto-quit ()
4367   "Finish `org-goto' without cursor motion."
4369   (setq org-selected-point nil)
4374 (defvar org-indirect-dedicated-frame nil
4376 (defvar org-last-indirect-buffer nil)
4378 (defun org-tree-to-indirect-buffer (&optional arg)
4385 If `org-indirect-buffer-display' is `dedicated-frame', the C-u prefix also
4394       (org-back-to-heading t)
4396 	(setq level (org-outline-level))
4398 	(while (> (setq level (org-outline-level)) arg)
4401 	    heading (org-get-heading))
4402       (org-end-of-subtree t) (setq end (point)))
4404 	     (buffer-live-p org-last-indirect-buffer))
4405 	(kill-buffer org-last-indirect-buffer))
4406     (setq ibuf (org-get-indirect-buffer cbuf)
4407 	  org-last-indirect-buffer ibuf)
4409      ((or (eq org-indirect-buffer-display 'new-frame)
4410 	  (and arg (eq org-indirect-buffer-display 'dedicated-frame)))
4414       (org-set-frame-title heading))
4415      ((eq org-indirect-buffer-display 'dedicated-frame)
4417        (select-frame (or (and org-indirect-dedicated-frame
4418 			      (frame-live-p org-indirect-dedicated-frame)
4419 			      org-indirect-dedicated-frame)
4420 			 (setq org-indirect-dedicated-frame (make-frame)))))
4423       (org-set-frame-title (concat "Indirect: " heading)))
4424      ((eq org-indirect-buffer-display 'current-window)
4426      ((eq org-indirect-buffer-display 'other-window)
4430         (save-excursion (org-mode) (turn-on-font-lock)))
4436 (defun org-get-indirect-buffer (&optional buffer)
4446 (defun org-set-frame-title (title)
4456 (defun org-insert-heading (&optional force-heading)
4466     (when (or force-heading (not (org-insert-item)))
4470 			   (org-back-to-heading)
4473 	     (blank (cdr (assq 'heading org-blank-before-new-entry)))
4476 	 ((and (org-on-heading-p) (bolp)
4477 	       (save-excursion (backward-char 1) (not (org-invisible-p))))
4480 			(backward-char 1) (not (org-invisible-p))))
4487 	(run-hooks 'org-insert-heading-hook)))))
4490 (defun org-insert-todo-heading (arg)
4495   (when (not (org-insert-item 'checkbox))
4496     (org-insert-heading)
4498       (org-back-to-heading)
4500       (looking-at org-todo-line-regexp))
4503 	    (equal (match-string 2) org-done-string))
4504 	(insert (car org-todo-keywords) " ")
4509 (defun org-promote-subtree ()
4511 See also `org-promote'."
4514     (org-map-tree 'org-promote))
4515   (org-fix-position-after-promote))
4517 (defun org-demote-subtree ()
4518   "Demote the entire subtree.  See `org-demote'.
4519 See also `org-promote'."
4522     (org-map-tree 'org-demote))
4523   (org-fix-position-after-promote))
4526 (defun org-do-promote ()
4532     (if (org-region-active-p)
4533 	(org-map-region 'org-promote (region-beginning) (region-end))
4534       (org-promote)))
4535   (org-fix-position-after-promote))
4537 (defun org-do-demote ()
4543     (if (org-region-active-p)
4544 	(org-map-region 'org-demote (region-beginning) (region-end))
4545       (org-demote)))
4546   (org-fix-position-after-promote))
4548 (defun org-fix-position-after-promote ()
4553 	    (looking-at org-todo-line-regexp)
4559 (defun org-get-legal-level (level &optional change)
4560   "Rectify a level change under the influence of `org-odd-levels-only'
4564   (if org-odd-levels-only
4570 (defun org-promote ()
4574   (org-back-to-heading t)
4576 	 (up-head (make-string (org-get-legal-level level -1) ?*))
4581     (and org-auto-align-tags (org-set-tags nil t))
4582     (if org-adapt-indentation (org-fixup-indentation (- diff)))))
4584 (defun org-demote ()
4588   (org-back-to-heading t)
4590 	 (down-head (make-string (org-get-legal-level level 1) ?*))
4594     (and org-auto-align-tags (org-set-tags nil t))
4595     (if org-adapt-indentation (org-fixup-indentation diff))))
4597 (defun org-map-tree (fun)
4599   (org-back-to-heading)
4609 (defun org-map-region (fun beg end)
4611   (let ((org-ignore-region t))
4615       (if (and (re-search-forward (concat "^" outline-regexp) nil t)
4624 (defun org-fixup-indentation (diff)
4643 (defun org-convert-to-odd-levels ()
4644   "Convert an org-mode file with all levels allowed to one with odd levels.
4649     (let ((org-odd-levels-only nil) n)
4655 	    (org-demote))
4659 (defun org-convert-to-oddeven-levels ()
4660   "Convert an org-mode file with only odd levels to one with odd and even levels.
4668     (org-show-context t)
4671     (let ((org-odd-levels-only nil) n)
4677 	    (org-promote))
4680 (defun org-tr-level (n)
4682   (if org-odd-levels-only (1+ (/ n 2)) n))
4686 (defun org-move-subtree-up (&optional arg)
4689   (org-move-subtree-down (- (prefix-numeric-value arg))))
4691 (defun org-move-subtree-down (&optional arg)
4701     (org-back-to-heading)
4705 		      (setq folded (org-invisible-p)))
4712       (or (and (funcall movfunc) (looking-at outline-regexp))
4720 	       (if (not (or (looking-at (concat "^" outline-regexp))
4731 (defvar org-subtree-clip ""
4734 ring.  We need it to check if the kill was created by `org-copy-subtree'.")
4736 (defvar org-subtree-clip-folded nil
4740 (defun org-cut-subtree ()
4744   (org-copy-subtree 'cut))
4746 (defun org-copy-subtree (&optional cut)
4752     (org-back-to-heading)
4756 		      (setq folded (org-invisible-p)))
4762       (setq org-subtree-clip-folded folded)
4764       (setq org-subtree-clip (current-kill 0))
4767 	       (length org-subtree-clip)))))
4769 (defun org-paste-subtree (&optional level tree)
4787   (unless (org-kill-is-subtree-p tree)
4792 	 (^re (concat "^\\(" outline-regexp "\\)"))
4793 	 (re  (concat "\\(" outline-regexp "\\)"))
4794 	 (^re_ (concat "\\(" outline-regexp "\\)[  \t]*"))
4828 	 (func (if (> shift 0) 'org-demote 'org-promote))
4829 	 (org-odd-levels-only nil)
4853 	  (org-map-region func (point-min) (point-max))
4859 	     (eq org-subtree-clip (current-kill 0))
4860 	     org-subtree-clip-folded)
4864 (defun org-kill-is-subtree-p (&optional txt)
4869 which is OK for `org-paste-subtree'.
4873 			   (string-match (concat "\\`" outline-regexp) kill)
4875 	 (re (concat "^" outline-regexp))
4885 (defun org-narrow-to-subtree ()
4890      (progn (org-back-to-heading) (point))
4891      (progn (org-end-of-subtree t) (point)))))
4896 (defun org-sort (with-case)
4897   "Call `org-sort-entries' or `org-table-sort-lines', depending on context."
4899   (if (org-at-table-p)
4900       (org-call-with-arg 'org-table-sort-lines with-case)
4901     (org-call-with-arg 'org-sort-entries with-case)))
4903 (defun org-sort-entries (&optional with-case sorting-type)
4923      ((org-region-active-p)
4928       (if (not (org-on-heading-p)) (outline-next-heading))
4930      ((or (org-on-heading-p)
4931 	  (condition-case nil (progn (org-back-to-heading) t) (error nil)))
4933       (org-back-to-heading)
4934       (setq start (point) end (org-end-of-subtree) what "children")
4941       (or (org-on-heading-p) (outline-next-heading))
4949 	  re (concat "^" (regexp-quote stars) " +")
4950 	  re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[^*]")
4963 	   (org-split-string txt re)))
4968       (setq entries (org-do-sort entries what with-case sorting-type)))
4976       (if (and unique (equal last (setq last (org-trim (cdr p)))))
4984 (defun org-do-sort (table what &optional with-case sorting-type)
5012 	      (if (string-match org-ts-regexp x)
5014 		   (org-time-string-to-time (match-string 0 x)))
5027 (defun org-at-item-p ()
5029   (let ((llt org-plain-list-ordered-item-terminator))
5037 	(t (error "Invalid value of `org-plain-list-ordered-item-terminator'")))))))
5040 (defun org-in-item-p ()
5046 	  (org-beginning-of-item)
5047 	  (org-at-item-p)
5051 (defun org-insert-item (&optional checkbox)
5057 		(org-beginning-of-item)
5058 		(org-at-item-p)
5059 		(if (org-invisible-p) (error "Invisible item"))
5065 	   (blank (cdr (assq 'plain-list-item org-blank-before-new-entry)))
5068        ((and (org-at-item-p) (<= (point) eow))
5080     (org-maybe-renumber-ordered-list)
5081     (and checkbox (org-update-checkbox-count-maybe))
5086 (defun org-at-item-checkbox-p ()
5088   (and (org-at-item-p)
5094 (defun org-toggle-checkbox (&optional arg)
5100        ((org-region-active-p)
5102        ((org-on-heading-p)
5104        ((org-at-item-checkbox-p)
5112 	  (when (org-at-item-checkbox-p)
5119   (org-update-checkbox-count-maybe))
5121 (defun org-update-checkbox-count-maybe ()
5123   (when org-provide-checkbox-statistics
5124     (org-update-checkbox-count)))
5126 (defun org-update-checkbox-count (&optional all)
5151 		   ((org-on-heading-p) (outline-next-heading) (point))
5152 		   ((org-at-item-p) (org-end-of-item) (point))
5170 (defun org-get-checkbox-statistics-face ()
5172 The face will be `org-done' when all relevant boxes are checked.  Otherwise
5173 it will be `org-todo'."
5175       (if (equal (match-string 1) "100%") 'org-done 'org-todo)
5178 	'org-done
5179       'org-todo)))
5181 (defun org-get-indentation (&optional line)
5185       (if (string-match "^ *" (org-remove-tabs line))
5192 (defun org-remove-tabs (s &optional width)
5204 (defun org-fix-indentation (line ind)
5209   (let* ((l (org-remove-tabs line))
5210 	 (i (org-get-indentation l))
5217 (defun org-beginning-of-item ()
5222 	(limit (save-excursion (org-back-to-heading)
5225     (if (org-at-item-p)
5238 		    (throw 'exit (org-at-item-p))))))
5243 (defun org-end-of-item ()
5250 	       (org-beginning-of-item)
5266 (defun org-next-item ()
5271     (org-beginning-of-item)
5272     (setq ind (org-get-indentation))
5273     (org-end-of-item)
5274     (setq ind1 (org-get-indentation))
5275     (unless (and (org-at-item-p) (= ind ind1))
5279 (defun org-previous-item ()
5284     (org-beginning-of-item)
5286     (setq ind (org-get-indentation))
5293 	  (if (<= (org-get-indentation) ind)
5296 	(org-beginning-of-item)
5300 (defun org-move-item-down ()
5306     (org-beginning-of-item)
5308     (setq ind (org-get-indentation))
5309     (org-end-of-item)
5311     (setq ind1 (org-get-indentation))
5312     (if (and (org-at-item-p) (= ind ind1))
5314 	  (org-end-of-item)
5321 	  (org-maybe-renumber-ordered-list))
5325 (defun org-move-item-up (arg)
5331     (org-beginning-of-item)
5333     (setq ind (org-get-indentation))
5334     (org-end-of-item)
5342 	  (if (<= (setq ind1 (org-get-indentation)) ind)
5345 	(org-beginning-of-item)
5348     (setq ind1 (org-get-indentation))
5349     (if (and (org-at-item-p) (= ind ind1))
5357 	  (org-maybe-renumber-ordered-list))
5361 (defun org-maybe-renumber-ordered-list ()
5363 This tests the user option `org-auto-renumber-ordered-lists' before
5365   (and org-auto-renumber-ordered-lists
5366        (org-at-item-p)
5368        (org-renumber-ordered-list 1)))
5370 (defun org-get-string-indentation (s)
5381 (defun org-renumber-ordered-list (arg)
5386   (unless (and (org-at-item-p)
5389   (let ((line (org-current-line))
5391 	(ind (org-get-string-indentation
5404 		       (not (org-at-item-p))))
5416 	  (if (not (org-at-item-p)) (throw 'exit nil))
5425 (defvar org-last-indent-begin-marker (make-marker))
5426 (defvar org-last-indent-end-marker (make-marker))
5428 (defun org-outdent-item (arg)
5431   (org-indent-item (- arg)))
5433 (defun org-indent-item (arg)
5436   (unless (org-at-item-p)
5440       (if (memq last-command '(org-shiftmetaright org-shiftmetaleft))
5441 	  (setq beg org-last-indent-begin-marker
5442 		end org-last-indent-end-marker)
5443 	(org-beginning-of-item)
5444 	(setq beg (move-marker org-last-indent-begin-marker (point)))
5445 	(org-end-of-item)
5446 	(setq end (move-marker org-last-indent-end-marker (point))))
5459 (defalias 'org-advertized-archive-subtree 'org-archive-subtree)
5461 (defun org-archive-subtree (&optional find-done)
5474       (org-archive-all-done)
5477     (let ((tr-org-todo-line-regexp org-todo-line-regexp) ; keep despite compiler
5478 	  (tr-org-todo-keywords org-todo-keywords)
5479 	  (tr-org-todo-interpretation org-todo-interpretation)
5480 	  (tr-org-done-string org-done-string)
5481 	  (tr-org-todo-regexp org-todo-regexp)
5482 	  (tr-org-todo-line-regexp org-todo-line-regexp)
5483 	  (tr-org-odd-levels-only org-odd-levels-only)
5485 	  (org-archive-location org-archive-location)
5492 	    (setq org-archive-location (match-string 1))))
5494       (if (string-match "\\(.*\\)::\\(.*\\)" org-archive-location)
5496 	    (setq file (format (match-string 1 org-archive-location)
5498 		  heading (match-string 2 org-archive-location)))
5499 	(error "Invalid `org-archive-location'"))
5514 	(let (this-command) (org-copy-subtree))
5516 	;; Enforce org-mode for the archive buffer
5517 	(if (not (org-mode-p))
5519 	    (let ((org-insert-mode-line-in-empty-file t))
5520 	      (call-interactively 'org-mode)))
5526 	(let ((org-todo-line-regexp tr-org-todo-line-regexp)
5527 	      (org-todo-keywords tr-org-todo-keywords)
5528 	      (org-todo-interpretation tr-org-todo-interpretation)
5529 	      (org-done-string tr-org-done-string)
5530 	      (org-todo-regexp tr-org-todo-regexp)
5531 	      (org-todo-line-regexp tr-org-todo-line-regexp)
5532 	      (org-odd-levels-only
5533 	       (if (local-variable-p 'org-odd-levels-only)
5534 		   org-odd-levels-only
5535 		 tr-org-odd-levels-only)))
5541 			     (regexp-quote heading) "[ \t]*\\(:[a-zA-Z0-9_@:]+:\\)?[ \t]*\\($\\|\r\\)")
5551 		(org-end-of-subtree t)
5558 	  (org-paste-subtree (org-get-legal-level level 1))
5559 	  ;; Mark the entry as done, i.e. set to last work in org-todo-keywords
5560 	  (if org-archive-mark-done
5561 	      (let (org-log-done)
5562 		(org-todo (length org-todo-keywords))))
5564 	  (when org-archive-stamp-time
5566 	    (looking-at org-todo-line-regexp)
5568 	    (org-insert-time-stamp (org-current-time) t t "(" ")"))
5573       (let (this-command) (org-cut-subtree))
5580 (defun org-archive-all-done (&optional tag)
5585   (let ((re (concat "^\\*+ +" org-not-done-regexp)) re1
5586 	(rea (concat ".*:" org-archive-tag ":"))
5592     (if (org-on-heading-p)
5594 	  (setq re1 (concat "^" (regexp-quote
5600 	  (move-marker endm (org-end-of-subtree t)))
5608 	      end (save-excursion (org-end-of-subtree t) (point)))
5617 		    (org-toggle-tag org-archive-tag 'on)
5618 		  (org-archive-subtree))
5623 (defun org-cycle-hide-archived-subtrees (state)
5625   (when (and (not org-cycle-open-archived-trees)
5630              (end (if globalp (point-max) (org-end-of-subtree t))))
5631 	(org-hide-archived-subtrees beg end)
5633 	(if (looking-at (concat ".*:" org-archive-tag ":"))
5635 		      "Subtree is archived and stays closed.  Use \\[org-force-cycle-archived] to cycle it anyway.")))))))
5637 (defun org-force-cycle-archived ()
5640   (setq this-command 'org-cycle)
5641   (let ((org-cycle-open-archived-trees t))
5642     (call-interactively 'org-cycle)))
5644 (defun org-hide-archived-subtrees (beg end)
5647     (let* ((re (concat ":" org-archive-tag ":")))
5650 	(and (org-on-heading-p) (hide-subtree))
5651 	(org-end-of-subtree t)))))
5653 (defun org-toggle-tag (tag &optional onoff)
5656   (unless (org-on-heading-p) (error "Not on headling"))
5666       (setq current (nreverse (org-split-string current ":")))
5680       (org-set-tags nil t))
5683 (defun org-toggle-archive-tag (&optional arg)
5689       (org-archive-all-done 'tag)
5692 	(org-back-to-heading t)
5693 	(setq set (org-toggle-tag org-archive-tag))
5706 ;; Emacs package.  We call the former org-type tables, and the latter
5709 (defun org-before-change-function (beg end)
5711   (setq org-table-may-need-update t))
5713 (defconst org-table-line-regexp "^[ \t]*|"
5714   "Detects an org-type table line.")
5715 (defconst org-table-dataline-regexp "^[ \t]*|[^-]"
5716   "Detects an org-type table line.")
5717 (defconst org-table-auto-recalculate-regexp "^[ \t]*| *# *\\(|\\|$\\)"
5719 (defconst org-table-recalculate-regexp "^[ \t]*| *[#*] *\\(|\\|$\\)"
5721 (defconst org-table-calculate-mark-regexp "^[ \t]*| *[!$^_#*] *\\(|\\|$\\)"
5723 (defconst org-table-hline-regexp "^[ \t]*|-"
5724   "Detects an org-type table hline.")
5725 (defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
5727 (defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
5728   "Detects an org-type or table-type table.")
5729 (defconst org-table-border-regexp "^[ \t]*[^| \t]"
5732 (defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
5736 (defvar org-table-last-highlighted-reference nil)
5737 (defvar org-table-formula-history nil)
5739 (defvar org-table-column-names nil
5741 (defvar org-table-column-name-regexp nil
5743 (defvar org-table-local-parameters nil
5745 (defvar org-table-named-field-locations nil
5748 (defvar org-table-current-line-types nil
5750 (defvar org-table-current-begin-line nil
5752 (defvar org-table-dlines nil
5754 (defvar org-table-hlines nil
5757 (defconst org-table-range-regexp
5762 (defconst org-table-range-regexp2
5766 (defvar org-inhibit-highlight-removal nil)
5769 (defun org-table-create-with-table.el ()
5776    ((org-at-table.el-p)
5778 	(org-table-convert)))
5779    ((org-at-table-p)
5781 	(org-table-convert)))
5784 (defun org-table-create-or-convert-from-region (arg)
5789   (if (org-region-active-p)
5790       (org-table-convert-region (region-beginning) (region-end) arg)
5791     (org-table-create arg)))
5793 (defun org-table-create (&optional size)
5800 			org-table-default-size "]: ")
5801 		"" nil org-table-default-size)))
5805 	 (split (org-split-string size " *x *"))
5823     (org-table-align)))
5825 (defun org-table-convert-region (beg0 end0 &optional nspace)
5858     (org-table-align)))
5860 (defun org-table-import (file arg)
5870     (org-table-convert-region beg (+ (point) (- (point-max) pm)) arg)))
5872 (defun org-table-export ()
5876   (let* ((beg (org-table-begin))
5877 	 (end (org-table-end))
5908 (defvar org-table-aligned-begin-marker (make-marker)
5911 (defvar org-table-aligned-end-marker (make-marker)
5914 (defvar org-table-last-alignment nil
5917 (defvar org-table-last-column-widths nil
5920 (defvar org-table-overlay-coordinates nil
5922 (make-variable-buffer-local 'org-table-overlay-coordinates)
5924 (defvar org-last-recalc-line nil)
5925 (defconst org-narrow-column-arrow "=>"
5928 (defun org-table-align ()
5933 	 (beg (org-table-begin))
5934 	 (end (org-table-end))
5936 	 (linepos (org-current-line))
5937 	 (colpos (org-table-current-column))
5939 	 (winstartline (org-current-line (min winstart (1- (point-max)))))
5953     (remove-text-properties beg end '(org-cwidth t org-dwidth t display t))
5956     (setq links (re-search-forward org-bracket-link-regexp end t))
5958     (setq dates (and org-display-custom-times
5959 		     (re-search-forward org-ts-regexp-both end t)))
5961     (when links (goto-char beg) (while (org-activate-bracket-links end)))
5963     (when dates (goto-char beg) (while (org-activate-dates end)))
5967     (setq narrow (and org-format-transports-properties-p
5970     (setq lines (org-split-string
5987 		      (org-split-string l " *| *"))
5994        (org-table-create org-table-default-size)
6013 			   (> (org-string-width xx) fmax))
6014 		  (org-add-props xx nil
6016 		    (concat "Clipped table field, use C-c ` to edit. Full value is:\n" (org-no-properties (copy-sequence xx))))
6017 		  (setq f1 (min fmax (or (string-match org-bracket-link-regexp xx) fmax)))
6021 		  (add-text-properties f1 (length xx) (list 'org-cwidth t) xx)
6023 				       (list 'display org-narrow-column-arrow)
6026       (push (apply 'max 1 (mapcar 'org-string-width column)) lengths)
6033 				(if (string-match org-table-number-regexp x) 1 0))
6035       (push (>= frac org-table-number-fraction) typenums))
6039     (setq org-table-last-alignment typenums
6040 	  org-table-last-column-widths lengths)
6050 			   (string-match org-bracket-link-regexp (car c))
6051 			   (< (org-string-width (car c)) len))
6052 		      (setcar c (concat (car c) (make-string (- len (org-string-width (car c))) ?\ )))))))
6072     (move-marker org-table-aligned-begin-marker (point))
6074     (move-marker org-table-aligned-end-marker (point))
6075     (when (and orgtbl-mode (not (org-mode-p)))
6076       (goto-char org-table-aligned-begin-marker)
6077       (while (org-hide-wide-columns org-table-aligned-end-marker)))
6083     (org-table-goto-column colpos)
6084     (and org-table-overlay-coordinates (org-table-overlay-coordinates))
6085     (setq org-table-may-need-update nil)
6088 (defun org-string-width (s)
6090 This ignores character with invisibility property `org-link', and also
6091 characters with property `org-cwidth', because these will become invisible
6095 	      (assq 'org-link buffer-invisibility-spec))
6097 					'invisible 'org-link s))
6101     (while (setq b (text-property-any 0 (length s) 'org-cwidth t s))
6104 					b 'org-cwidth s) (length s))))))
6106     (while (setq b (text-property-any (1+ b) (length s) 'org-dwidth t s))
6107       (setq l (- l (get-text-property b 'org-dwidth-n s))))
6110 (defun org-table-begin (&optional table-type)
6115 	      (if table-type org-table-any-border-regexp
6116 		org-table-border-regexp)
6123 (defun org-table-end (&optional table-type)
6128 	      (if table-type org-table-any-border-regexp
6129 		org-table-border-regexp)
6135 (defun org-table-justify-field-maybe (&optional new)
6139    ((and (not new) org-table-may-need-update)) ; Realignment will happen anyway
6140    ((org-at-table-hline-p))
6142 	 (or (not (equal (marker-buffer org-table-aligned-begin-marker)
6144 	     (< (point) org-table-aligned-begin-marker)
6145 	     (>= (point) org-table-aligned-end-marker)))
6147     (setq org-table-may-need-update t))
6150 	   (col (org-table-current-column))
6151 	   (num (if (> col 0) (nth (1- col) org-table-last-alignment)))
6162 			      l (if e "|" (setq org-table-may-need-update t) ""))
6167 		    (setq n (concat new "|") org-table-may-need-update t)))
6169 		  (let (org-table-may-need-update)
6171 	  (setq org-table-may-need-update t))
6174 (defun org-table-next-field ()
6178   (org-table-maybe-eval-formula)
6179   (org-table-maybe-recalculate-line)
6180   (if (and org-table-automatic-realign
6181 	   org-table-may-need-update)
6182       (org-table-align))
6183   (let ((end (org-table-end)))
6184     (if (org-at-table-hline-p)
6192 		   org-table-tab-jumps-over-hlines
6198 		(org-table-insert-row 'below))
6201        (org-table-insert-row 'below)))))
6203 (defun org-table-previous-field ()
6207   (org-table-justify-field-maybe)
6208   (org-table-maybe-recalculate-line)
6209   (if (and org-table-automatic-realign
6210 	   org-table-may-need-update)
6211       (org-table-align))
6212   (if (org-at-table-hline-p)
6214   (re-search-backward "|" (org-table-begin))
6215   (re-search-backward "|" (org-table-begin))
6217     (re-search-backward "|" (org-table-begin)))
6221 (defun org-table-next-row ()
6225   (org-table-maybe-eval-formula)
6226   (org-table-maybe-recalculate-line)
6230     (if (and org-table-automatic-realign
6231 	     org-table-may-need-update)
6232 	(org-table-align))
6233     (let ((col (org-table-current-column)))
6235       (if (or (not (org-at-table-p))
6236 	      (org-at-table-hline-p))
6239 	    (org-table-insert-row 'below)))
6240       (org-table-goto-column col)
6244 (defun org-table-copy-down (n)
6251 If the variable `org-table-copy-increment' is non-nil and the field is an
6254   (let* ((colpos (org-table-current-column))
6255 	 (field (org-table-get-field))
6257 	 (beg (org-table-begin))
6259     (org-table-check-inside-data-field)
6262 	  (setq txt (org-trim field))
6263 	  (org-table-next-row)
6264 	  (org-table-blank-field))
6269 			      (re-search-backward org-table-dataline-regexp
6271 		  (org-table-goto-column colpos t)
6278 	  (if (and org-table-copy-increment
6282 	  (org-table-maybe-recalculate-line)
6283 	  (org-table-align))
6286 (defun org-table-check-inside-data-field ()
6290   (if (or (not (org-at-table-p))
6291 	  (= (org-table-current-column) 0)
6292 	  (org-at-table-hline-p)
6296 (defvar org-table-clip nil
6299 (defun org-table-blank-field ()
6302   (org-table-check-inside-data-field)
6303   (if (and (interactive-p) (org-region-active-p))
6304       (let (org-table-clip)
6305 	(org-table-cut-region (region-beginning) (region-end)))
6311 	       (len (org-string-width match)))
6316 (defun org-table-get-field (&optional n replace)
6321   (and n (org-table-goto-column n))
6334 (defun org-table-field-info (arg)
6337   (org-table-get-specials)
6340 	   (col (org-table-current-column))
6341 	   (cname (car (rassoc (int-to-string col) org-table-column-names)))
6342 	   (name (car (rassoc (list (org-current-line) col)
6343 			      org-table-named-field-locations)))
6344 	   (eql (org-table-get-stored-formulas))
6345 	   (dline (org-table-current-dline))
6351 	  (org-show-reference 'local)
6364 (defun org-table-current-column ()
6368   (if (interactive-p) (org-table-check-inside-data-field))
6377 (defun org-table-current-dline ()
6381   (if (interactive-p) (org-table-check-inside-data-field))
6384       (goto-char (org-table-begin))
6386 	(if (looking-at org-table-dataline-regexp) (setq cnt (1+ cnt)))
6391 (defun org-table-goto-column (n &optional on-delim force)
6414 (defun org-at-table-p (&optional table-type)
6415   "Return t if the cursor is inside an org-type table.
6417   (if org-enable-table-editor
6420 	(looking-at (if table-type org-table-any-line-regexp
6421 		      org-table-line-regexp)))
6424 (defun org-at-table.el-p ()
6426   (and (org-at-table-p 'any)
6428 	 (goto-char (org-table-begin 'any))
6429 	 (looking-at org-table1-hline-regexp))))
6431 (defun org-table-recognize-table.el ()
6433   (if org-table-tab-recognizes-table.el
6434       (if (org-at-table.el-p)
6437 	    (if (looking-at org-table-dataline-regexp)
6439 	      (if (looking-at org-table1-hline-regexp)
6442 		    (if (looking-at org-table-any-border-regexp)
6444 	    (if (re-search-forward "|" (org-table-end t) t)
6457 (defun org-at-table-hline-p ()
6459   (if org-enable-table-editor
6462 	(looking-at org-table-hline-regexp))
6465 (defun org-table-insert-column ()
6468   (if (not (org-at-table-p))
6470   (org-table-find-dataline)
6471   (let* ((col (max 1 (org-table-current-column)))
6472 	 (beg (org-table-begin))
6473 	 (end (org-table-end))
6475 	 (linepos (org-current-line))
6479       (if (org-at-table-hline-p)
6481 	(org-table-goto-column col t)
6486     (org-table-goto-column colpos)
6487     (org-table-align)
6488     (org-table-fix-formulas "$" nil (1- col) 1)))
6490 (defun org-table-find-dataline ()
6492   (if (and (org-at-table-p)
6493 	   (not (org-at-table-hline-p)))
6496 	  (end (org-table-end)))
6500 		      (org-at-table-hline-p)))
6503       (if (and (org-at-table-p)
6504 	       (not (org-at-table-hline-p)))
6509 (defun org-table-delete-column ()
6512   (if (not (org-at-table-p))
6514   (org-table-find-dataline)
6515   (org-table-check-inside-data-field)
6516   (let* ((col (org-table-current-column))
6517 	 (beg (org-table-begin))
6518 	 (end (org-table-end))
6520 	 (linepos (org-current-line))
6524       (if (org-at-table-hline-p)
6526 	(org-table-goto-column col t)
6532     (org-table-goto-column colpos)
6533     (org-table-align)
6534     (org-table-fix-formulas "$" (list (cons (number-to-string col) "INVALID"))
6537 (defun org-table-move-column-right ()
6540   (org-table-move-column nil))
6541 (defun org-table-move-column-left ()
6544   (org-table-move-column 'left))
6546 (defun org-table-move-column (&optional left)
6549   (if (not (org-at-table-p))
6551   (org-table-find-dataline)
6552   (org-table-check-inside-data-field)
6553   (let* ((col (org-table-current-column))
6555 	 (beg (org-table-begin))
6556 	 (end (org-table-end))
6558 	 (linepos (org-current-line))
6566       (if (org-at-table-hline-p)
6568 	(org-table-goto-column col1 t)
6574     (org-table-goto-column colpos)
6575     (org-table-align)
6576     (org-table-fix-formulas
6580 (defun org-table-move-row-down ()
6583   (org-table-move-row nil))
6584 (defun org-table-move-row-up ()
6587   (org-table-move-row 'up))
6589 (defun org-table-move-row (&optional up)
6595 				  (looking-at org-table-hline-regexp)))
6596 	 (dline1 (org-table-current-dline))
6601     (unless (org-at-table-p)
6604     (setq hline2p (looking-at org-table-hline-regexp))
6615       (org-table-fix-formulas
6619 (defun org-table-insert-row (&optional arg)
6623   (if (not (org-at-table-p))
6626 	 (new (org-table-clean-line line)))
6631     (let (org-table-may-need-update) (insert-before-markers new "\n"))
6634     (and (or org-table-may-need-update org-table-overlay-coordinates)
6635 	 (org-table-align))
6636     (org-table-fix-formulas "@" nil (1- (org-table-current-dline)) 1)))
6638 (defun org-table-insert-hline (&optional arg)
6642   (if (not (org-at-table-p))
6644   (let ((line (org-table-clean-line
6656     (and org-table-overlay-coordinates (org-table-align))))
6658 (defun org-table-clean-line (s)
6666 	       (concat "|" (make-string (org-string-width (match-string 1 s))
6671 (defun org-table-kill-row ()
6674   (if (not (org-at-table-p))
6677 	(dline (org-table-current-dline)))
6679     (if (not (org-at-table-p)) (beginning-of-line 0))
6681     (org-table-fix-formulas "@" (list (cons (number-to-string dline) "INVALID"))
6685 (defun org-table-sort-lines (with-case &optional sorting-type)
6707   (let* ((thisline (org-current-line))
6708 	 (thiscol (org-table-current-column))
6716       (org-table-goto-column thiscol))
6717     (org-table-check-inside-data-field)
6718     (if (org-region-active-p)
6722 	  (setq column (org-table-current-column)
6726       (setq column (org-table-current-column)
6728 	    tbeg (org-table-begin)
6729 	    tend (org-table-end))
6730       (if (re-search-backward org-table-hline-regexp tbeg t)
6735       (if (re-search-forward org-table-hline-regexp tend t)
6743     (org-table-goto-column column)
6746     (org-table-goto-column (1+ column))
6749     (org-table-goto-column column)
6750     (setq lns (mapcar (lambda(x) (cons (org-trim (substring x bcol ecol)) x))
6751 		      (org-split-string (buffer-substring beg end) "\n")))
6752     (setq lns (org-do-sort lns "Table" with-case sorting-type))
6758     (org-table-goto-column thiscol)
6761 (defun org-table-cut-region (beg end)
6764   (org-table-copy-region beg end 'cut))
6766 (defun org-table-copy-region (beg end &optional cut)
6769 with `org-table-paste-rectangle'."
6775     (org-table-check-inside-data-field)
6776     (setq l01 (org-current-line)
6777 	  c01 (org-table-current-column))
6779     (org-table-check-inside-data-field)
6780     (setq l02 (org-current-line)
6781 	  c02 (org-table-current-column))
6789 	  (if (org-at-table-hline-p) (throw 'nextline (setq l1 (1+ l1))))
6792 	    (push (org-table-get-field ic1 rpl) cols)
6796     (setq org-table-clip (nreverse region))
6797     (if cut (org-table-align))
6798     org-table-clip))
6800 (defun org-table-paste-rectangle ()
6807   (unless (and org-table-clip (listp org-table-clip))
6809   (org-table-check-inside-data-field)
6810   (let* ((clip org-table-clip)
6811 	 (line (org-current-line))
6812 	 (col (org-table-current-column))
6813 	 (org-enable-table-editor t)
6814 	 (org-table-automatic-realign nil)
6817       (while (org-at-table-hline-p) (beginning-of-line 2))
6818       (if (not (org-at-table-p))
6819 	  (progn (end-of-line 0) (org-table-next-field)))
6822 	(org-table-goto-column c nil 'force)
6823 	(org-table-get-field nil field)
6827     (org-table-goto-column col)
6828     (org-table-align)))
6830 (defun org-table-convert ()
6831   "Convert from `org-mode' table to table.el and back.
6841   (if (org-at-table.el-p)
6843       (let ((beg (move-marker (make-marker) (org-table-begin t)))
6844 	    (end (move-marker (make-marker) (org-table-end t))))
6850     (if (org-at-table-p)
6852 	(let ((beg (move-marker (make-marker) (org-table-begin)))
6853 	      (end (move-marker (make-marker) (org-table-end))))
6860 	  (org-table-insert-hline 'above)
6864 	    (org-table-insert-hline))
6866 	  (setq end (move-marker end (org-table-end)))
6875 (defun org-table-wrap-region (arg)
6883 used to change the number of desired lines.  For example, `C-2 \\[org-table-wrap]'
6898   (org-table-check-inside-data-field)
6899   (if (org-region-active-p)
6902 	     (cline (save-excursion (goto-char beg) (org-current-line)))
6903 	     (ccol (save-excursion (goto-char beg) (org-table-current-column)))
6905 	(org-table-cut-region (region-beginning) (region-end))
6906 	(if (> (length (car org-table-clip)) 1)
6910 			     (+ (length org-table-clip) arg)
6912 		       (length org-table-clip)))
6913 	(setq org-table-clip
6914 	      (mapcar 'list (org-wrap (mapconcat 'car org-table-clip " ")
6917 	(org-table-goto-column ccol)
6918 	(org-table-paste-rectangle))
6922 	(let ((s (org-table-blank-field))
6923 	      (col (org-table-current-column)))
6925 	  (while (org-at-table-hline-p) (beginning-of-line 0))
6926 	  (org-table-goto-column col)
6929 	  (insert " " (org-trim s))
6930 	  (org-table-align))
6936 	  (org-table-next-row)
6937 	  (insert (org-trim s) " ")
6938 	  (org-table-align))))))
6940 (defvar org-field-marker nil)
6942 (defun org-table-edit-field (arg)
6951 	(remove-text-properties b e '(org-cwidth t invisible t
6956 	  (field (org-table-get-field))
6962       (org-mode)
6964       (insert (org-trim field))
6966 			      '(invisible t org-cwidth t display t
6969       (org-set-local 'org-finish-function
6970 		     'org-table-finish-edit-field)
6971       (org-set-local 'org-window-configuration cw)
6972       (org-set-local 'org-field-marker pos)
6975 (defun org-table-finish-edit-field ()
6979   (let ((pos org-field-marker)
6980 	(cw org-window-configuration)
6987     (setq text (org-trim (buffer-string)))
6993     (org-table-check-inside-data-field)
6994     (org-table-get-field nil text)
6995     (org-table-align)
6998 (defun org-trim (s)
7004 (defun org-wrap (string &optional width lines)
7012   (let* ((words (org-split-string string "[ \t\n]+"))
7013 	 (maxword (apply 'max (mapcar 'org-string-width words)))
7016 	   (org-do-wrap words (max maxword width)))
7019 	   (setq ll (org-do-wrap words maxword))
7025 	       (setq ll (org-do-wrap words w)))
7030 (defun org-do-wrap (words width)
7040 (defun org-split-string (string &optional separators)
7068 (defun org-table-map-tables (function)
7074       (while (re-search-forward org-table-any-line-regexp nil t)
7077 	(if (looking-at org-table-line-regexp)
7079 	(re-search-forward org-table-any-border-regexp nil 1))))
7082 (defvar org-timecnt) ; dynamically scoped parameter
7084 (defun org-table-sum (&optional beg end nlast)
7101     (let (col (org-timecnt 0) diff h m s org-table-clip)
7104        ((org-region-active-p)
7107 	(setq col (org-table-current-column))
7108 	(goto-char (org-table-begin))
7111 	(org-table-goto-column col)
7113 	(goto-char (org-table-end))
7116 	(org-table-goto-column col)
7118       (let* ((items (apply 'append (org-table-copy-region beg end)))
7124 	     (numbers (delq nil (mapcar 'org-table-get-number-for-summing
7127 	     (sres (if (= org-timecnt 0)
7142 (defun org-table-get-number-for-summing (s)
7157 	(if (boundp 'org-timecnt) (setq org-timecnt (1+ org-timecnt)))
7162 (defun org-table-current-field-formula ()
7165   (let* ((name (car (rassoc (list (org-current-line)
7166 				  (org-table-current-column))
7167 			    org-table-named-field-locations)))
7168 	 (col (org-table-current-column))
7170 	 (ref (format "@%d$%d" (org-table-current-dline) col))
7171 	 (stored-list (org-table-get-stored-formulas))
7178 (defun org-table-get-formula (&optional equation named)
7181   (let* ((stored-list (org-table-get-stored-formulas))
7182 	 (name (car (rassoc (list (org-current-line)
7183 				  (org-table-current-column))
7184 			    org-table-named-field-locations)))
7185 	 (ref (format "@%d$%d" (org-table-current-dline)
7186 		      (org-table-current-column)))
7190 		 (int-to-string (org-table-current-column))))
7195 	 (org-table-may-need-update nil)
7204 		  (or stored "") 'org-table-formula-history
7211       (org-table-store-formulas stored-list)
7223 	(org-table-store-formulas stored-list))
7226 (defun org-table-store-formulas (alist)
7230     (goto-char (org-table-end))
7245 (defun org-table-get-stored-formulas ()
7250       (goto-char (org-table-end))
7252 	(setq strings (org-split-string (match-string 2) " *:: *"))
7265 (defun org-table-fix-formulas (key replace &optional limit delta remove)
7270     (goto-char (org-table-end))
7290 (defun org-table-get-specials ()
7293     (let ((beg (org-table-begin)) (end (org-table-end))
7296       (setq org-table-column-names nil
7297 	    org-table-local-parameters nil
7298 	    org-table-named-field-locations nil
7299 	    org-table-current-begin-line nil
7300 	    org-table-current-line-types nil)
7303 	(setq names (org-split-string (match-string 1) " *| *")
7308 	      (push (cons name (int-to-string cnt)) org-table-column-names))))
7309       (setq org-table-column-names (nreverse org-table-column-names))
7310       (setq org-table-column-name-regexp
7311 	    (concat "\\$\\(" (mapconcat 'car org-table-column-names "\\|") "\\)\\>"))
7314 	(setq fields (org-split-string (match-string 1) " *| *"))
7318 		    org-table-local-parameters))))
7322 	      fields (org-split-string (match-string 2) " *| *"))
7325 	  (setq line (org-current-line) col 1)
7327 	       (setq fields1 (org-split-string (match-string 1) " *| *"))))
7332 	      (push (cons field v) org-table-local-parameters)
7333 	      (push (list field line col) org-table-named-field-locations))))
7336       (setq org-table-current-begin-line (org-current-line)
7337 	    l org-table-current-begin-line)
7343       (setq org-table-current-line-types (apply 'vector (nreverse types))
7344 	    org-table-dlines (apply 'vector (cons nil (nreverse dlines)))
7345 	    org-table-hlines (apply 'vector (cons nil (nreverse hlines)))))))
7347 (defun org-this-word ()
7354 (defun org-table-maybe-eval-formula ()
7359   (when org-table-formula-evaluate-inline
7360     (let* ((field (org-trim (or (org-table-get-field) "")))
7367 	    (org-table-eval-formula (if named '(4) nil) eq)
7370 (defvar org-recalc-commands nil
7374 (defvar org-recalc-marks
7383 (defun org-table-rotate-recalc-marks (&optional newchar)
7392   (unless (org-at-table-p) (error "Not at a table"))
7393   (let* ((marks (append (mapcar 'car org-recalc-marks) '(" ")))
7394 	 (beg (org-table-begin))
7395 	 (end (org-table-end))
7396 	 (l (org-current-line))
7397 	 (l1 (if (org-region-active-p) (org-current-line (region-beginning))))
7398 	 (l2 (if (org-region-active-p) (org-current-line (region-end))))
7403 	 (col (org-table-current-column))
7404 	 (forcenew (car (assoc newchar org-recalc-marks)))
7409 	    forcenew (car (assoc newchar org-recalc-marks))))
7411 	(error "Invalid NEWCHAR `%s' in `org-table-rotate-recalc-marks'"
7416       (unless (looking-at org-table-dataline-regexp)
7419       (org-table-goto-column 1)
7420       (org-table-insert-column)
7421       (org-table-goto-column (1+ col)))
7425       (org-table-get-field
7435 	  (while (progn (beginning-of-line 2) (not (= (org-current-line) l2)))
7436 	    (and (looking-at org-table-dataline-regexp)
7437 		 (org-table-get-field 1 (concat " " new " "))))
7439     (if (not (= epos (point-at-eol))) (org-table-align))
7441     (and (interactive-p) (message (cdr (assoc new org-recalc-marks))))))
7443 (defun org-table-maybe-recalculate-line ()
7446   (and org-table-allow-automatic-line-recalculation
7447        (not (and (memq last-command org-recalc-commands)
7448 		 (equal org-last-recalc-line (org-current-line))))
7450 		       (looking-at org-table-auto-recalculate-regexp))
7451        (org-table-recalculate) t))
7453 (defvar org-table-formula-debug nil
7456 (make-variable-buffer-local 'org-table-formula-debug)
7459 (defsubst org-set-calc-mode (var &optional value)
7471 (defun org-table-eval-formula (&optional arg equation
7488 edited there.  This is useful in order to use \\[org-show-reference]
7510   (org-table-check-inside-data-field)
7511   (or suppress-analysis (org-table-get-specials))
7513       (let ((eq (org-table-current-field-formula)))
7515 	(org-table-get-field nil eq)
7516 	(org-table-align)
7517 	(setq org-table-may-need-update t))
7520 	   (org-table-automatic-realign nil)
7525 		      (org-table-get-formula equation (equal arg '(4)))))
7526 	   (n0 (org-table-current-column))
7527 	   (modes (copy-sequence org-calc-default-modes))
7534 	  (let ((tmp (org-split-string formula ";")))
7536 		  fmt (concat (cdr (assoc "%" org-table-local-parameters))
7542 		  (setq modes (org-set-calc-mode 'calc-internal-prec n))
7543 		(setq modes (org-set-calc-mode
7556 	      (setq modes (org-set-calc-mode (match-string 0 fmt)))
7560       (if (and (not suppress-const) org-table-formula-use-constants)
7561 	  (setq formula (org-table-formula-substitute-names formula)))
7564 	(setq fields (org-split-string
7565 		      (org-no-properties
7576 	(setq form (org-rewrite-old-row-references form))
7578 	(while (string-match org-table-range-regexp form)
7582 		   (org-table-make-reference
7583 		    (org-table-get-range (match-string 0 form) nil n0)
7591 		   (org-table-make-reference
7592 		    (org-sublist
7608 			(org-table-make-reference x nil numbers lispp))
7620 	(when org-table-formula-debug
7638 	      (org-table-align)
7643 	(org-table-justify-field-maybe
7646 	    (call-interactively 'org-return)
7648       (and down (org-table-maybe-recalculate-line))
7649       (or suppress-align (and org-table-may-need-update
7650 			      (org-table-align))))))
7652 (defun org-table-get-range (desc &optional tbeg col highlight)
7660     (or tbeg (setq tbeg (org-table-begin)))
7661     (or col (setq col (org-table-current-column)))
7662     (let ((thisline (org-current-line))
7664       (unless (string-match org-table-range-regexp desc)
7678       (if r1 (setq r1 (org-table-get-descriptor-line r1)))
7679       (if r2 (setq r2 (org-table-get-descriptor-line r2)))
7689 	    (while (not (looking-at org-table-dataline-regexp))
7691 	    (prog1 (org-table-get-field c1)
7692 	      (if highlight (org-table-highlight-rectangle (point) (point)))))
7698 	(while (not (looking-at org-table-dataline-regexp))
7700 	(org-table-goto-column c1)
7703 	(while (not (looking-at org-table-dataline-regexp))
7705 	(org-table-goto-column c2)
7708 	    (org-table-highlight-rectangle
7711 	(apply 'append (org-table-copy-region beg end))))))
7713 (defun org-table-get-descriptor-line (desc &optional cline bline table)
7718       (aref org-table-dlines (string-to-number desc))
7719     (setq cline (or cline (org-current-line))
7720 	  bline (or bline org-table-current-begin-line)
7721 	  table (or table org-table-current-line-types))
7741 	  (error "should never happen");;(aref org-table-dlines on) FIXME
7743 	    (setq i (org-find-row-type table i 'hline (equal hdir "-") nil hn)))
7745 	    (setq i (org-find-row-type table i 'dline (equal odir "-") rel on)))
7748 (defun org-find-row-type (table i type backwards relative n)
7762 (defun org-rewrite-old-row-references (s)
7767 (defun org-table-make-reference (elements keep-empty numbers lispp)
7793 (defun org-table-recalculate (&optional all noalign)
7797   (or (memq this-command org-recalc-commands)
7798       (setq org-recalc-commands (cons this-command org-recalc-commands)))
7799   (unless (org-at-table-p) (error "Not at a table"))
7801       (org-table-iterate)
7802     (org-table-get-specials)
7803     (let* ((eqlist (sort (org-table-get-stored-formulas)
7806 	   (line-re org-table-dataline-regexp)
7807 	   (thisline (org-current-line))
7808 	   (thiscol (org-table-current-column))
7813 		      (setcdr x (org-table-formula-substitute-names (cdr x)))
7824 	    (setq end (move-marker (make-marker) (1+ (org-table-end))))
7825 	    (goto-char (setq beg (org-table-begin)))
7826 	    (if (re-search-forward org-table-calculate-mark-regexp end t)
7828 		(setq line-re org-table-recalculate-regexp)
7830 	      (if (and (re-search-forward org-table-dataline-regexp end t)
7831 		       (re-search-forward org-table-hline-regexp end t)
7832 		       (re-search-forward org-table-dataline-regexp end t))
7840 	(unless (string-match "^ *[_^!$] *$" (org-table-get-field 1))
7844 	  (setq org-last-recalc-line (org-current-line))
7847 	    (goto-line org-last-recalc-line)
7848 	    (org-table-goto-column (string-to-number (car entry)) nil 'force)
7849 	    (org-table-eval-formula nil (cdr entry)
7852       (org-table-goto-column thiscol)
7853       (or noalign (and org-table-may-need-update (org-table-align))
7858 	      a (assoc name org-table-named-field-locations))
7864 		    (aref org-table-dlines
7870 	  (org-table-goto-column (nth 2 a))
7871 	  (org-table-eval-formula nil (cdr eq) 'noalign 'nocst
7876       (org-table-goto-column thiscol)
7877       (or noalign (and org-table-may-need-update (org-table-align))
7880 (defun org-table-iterate (&optional arg)
7885 	(lasttbl (buffer-substring (org-table-begin) (org-table-end)))
7890 	(org-table-recalculate 'all)
7891 	(setq thistbl (buffer-substring (org-table-begin) (org-table-end)))
7900 (defun org-table-formula-substitute-names (f)
7904     (while (setq start (string-match org-table-column-name-regexp f start))
7906       (setq a (assoc (match-string 1 f) org-table-column-names))
7913 		    (org-table-get-constant (match-string 1 f))))
7915     (if org-table-formula-debug
7919 (defun org-table-get-constant (const)
7922   (or (cdr (assoc const org-table-local-parameters))
7923       (cdr (assoc const org-table-formula-constants))
7927 (defvar org-edit-formulas-map (make-sparse-keymap))
7928 (define-key org-edit-formulas-map "\C-c\C-c"      'org-finish-edit-formulas)
7929 (define-key org-edit-formulas-map "\C-c\C-q"      'org-abort-edit-formulas)
7930 (define-key org-edit-formulas-map "\C-c?"         'org-show-reference)
7931 (define-key org-edit-formulas-map [(shift up)]    'org-table-edit-line-up)
7932 (define-key org-edit-formulas-map [(shift down)]  'org-table-edit-line-down)
7933 (define-key org-edit-formulas-map [(shift left)] 'org-table-edit-backward-field)
7934 (define-key org-edit-formulas-map [(shift right)] 'org-table-edit-next-field)
7935 (define-key org-edit-formulas-map [(meta up)]     'org-table-edit-scroll-down)
7936 (define-key org-edit-formulas-map [(meta down)]   'org-table-edit-scroll)
7937 (define-key org-edit-formulas-map [(meta tab)]    'lisp-complete-symbol)
7938 (define-key org-edit-formulas-map "\M-\C-i"       'lisp-complete-symbol)
7939 (define-key org-edit-formulas-map [(tab)]         'org-edit-formula-lisp-indent)
7940 (define-key org-edit-formulas-map "\C-i"          'org-edit-formula-lisp-indent)
7942 (defvar org-pos)
7944 (defun org-table-edit-formulas ()
7947   (unless (org-at-table-p) (error "Not at a table"))
7948   (org-table-get-specials)
7949   (let ((eql (org-table-get-stored-formulas))
7958     (org-set-local 'font-lock-global-modes (list 'not major-mode))
7959     (org-set-local 'org-pos pos)
7960     (org-set-local 'org-window-configuration wc)
7961     (use-local-map org-edit-formulas-map)
7962     (org-add-hook 'post-command-hook 'org-table-edit-formulas-post-command t t)
7977 (defun org-table-edit-formulas-post-command ()
7982 	    (org-show-reference)
7986 (defun org-finish-edit-formulas (&optional arg)
7990   (org-table-remove-rectangle-highlight)
7991   (let ((pos org-pos) eql var form)
7992     (setq org-pos nil)
7999       (setq form (org-trim form))
8003     (set-window-configuration org-window-configuration)
8006     (unless (org-at-table-p)
8008     (org-table-store-formulas eql)
8012 	(org-table-recalculate 'all)
8015 (defun org-abort-edit-formulas ()
8018   (org-table-remove-rectangle-highlight)
8019   (let ((pos org-pos))
8020     (set-window-configuration org-window-configuration)
8026 (defun org-edit-formula-lisp-indent ()
8065 (defvar org-show-positions nil)
8067 (defun org-show-reference (&optional local)
8070   (org-table-remove-rectangle-highlight)
8072     (let ((pos (if local (point) org-pos))
8074           (org-inhibit-highlight-removal t)
8076 	  (org-show-positions nil)
8078       (if local (org-table-get-specials))
8080 		  ((org-at-regexp-p org-table-range-regexp2) 'range)
8081 		  ((org-at-regexp-p "\\$[a-zA-Z][a-zA-Z0-9]*") 'name)
8082 		  ((org-at-regexp-p "\\$[0-9]+") 'column)
8087 	(org-table-add-rectangle-overlay (match-beginning 0) (match-end 0)
8089       (org-add-hook 'before-change-functions
8090 		    'org-table-remove-rectangle-highlight)
8094 	(setq match (org-table-formula-substitute-names match)))
8100 	    (org-table-add-rectangle-overlay
8108       (org-table-force-dataline)
8113 	  (setq e (assoc name org-table-named-field-locations))
8115 	  (org-table-goto-column (nth 2 e)))
8119 	    (goto-line (aref org-table-dlines l))
8120 	    (org-table-goto-column c)))
8121 	 (t (org-table-goto-column (string-to-number name))))
8123 	(org-table-highlight-rectangle nil nil face2))
8130 	      (org-table-get-range match nil nil 'highlight))
8132        ((setq e (assoc var org-table-named-field-locations))
8134 	(org-table-goto-column (nth 2 e))
8135 	(org-table-highlight-rectangle (point) (point))
8137        ((setq e (assoc var org-table-column-names))
8138 	(org-table-goto-column (string-to-number (cdr e)))
8139 	(org-table-highlight-rectangle (point) (point))
8140 	(goto-char (org-table-begin))
8142 			       (org-table-end) t)
8145 	      (org-table-highlight-rectangle)
8150 	(org-table-goto-column (string-to-number (substring match 1)))
8151 	(org-table-highlight-rectangle (point) (point))
8153        ((setq e (assoc var org-table-local-parameters))
8154 	(goto-char (org-table-begin))
8158 	      (org-table-highlight-rectangle)
8164 	 ((setq e (assoc var org-table-formula-constants))
8165 	  (message "Constant: $%s=%s in `org-table-formula-constants'."
8171       (when org-show-positions
8172 	(push pos org-show-positions)
8173 	(let ((min (apply 'min org-show-positions))
8174 	      (max (apply 'max org-show-positions)))
8182 (defun org-table-force-dataline ()
8186 	    (looking-at org-table-dataline-regexp))
8187     (let* ((re org-table-dataline-regexp)
8196 (defun org-table-edit-line-up ()
8199   (org-table-edit-move 'previous-line))
8201 (defun org-table-edit-line-down ()
8204  (org-table-edit-move 'next-line))
8206 (defun org-table-edit-backward-field ()
8209   (org-table-edit-move 'org-table-previous-field))
8211 (defun org-table-edit-next-field ()
8214   (org-table-edit-move 'org-table-next-field))
8216 (defun org-table-edit-move (command)
8219   (let ((org-table-allow-automatic-line-recalculation nil)
8220 	(pos org-pos) (win (selected-window)) p)
8221     (select-window (get-buffer-window (marker-buffer org-pos)))
8224     (while (and (org-at-table-p)
8225 		(org-at-table-hline-p))
8227     (or (org-at-table-p) (goto-char p))
8231 (defun org-table-edit-scroll (N)
8233   (let ((other-window-scroll-buffer (marker-buffer org-pos)))
8236 (defun org-table-edit-scroll-down (N)
8238   (org-table-edit-scroll (- N)))
8240 (defvar org-table-rectangle-overlays nil)
8242 (defun org-table-add-rectangle-overlay (beg end &optional face)
8244   (let ((ov (org-make-overlay beg end)))
8245     (org-overlay-put ov 'face (or face 'secondary-selection))
8246     (push ov org-table-rectangle-overlays)))
8248 (defun org-table-highlight-rectangle (&optional beg end face)
8254     (and (boundp 'org-show-positions)
8255 	 (setq org-show-positions (cons b (cons e org-show-positions))))
8257     (setq l1 (org-current-line)
8258 	  c1 (org-table-current-column))
8260     (setq l2 (org-current-line)
8261 	  c2 (org-table-current-column))
8266 	  (when (looking-at org-table-dataline-regexp)
8267 	    (org-table-goto-column c1)
8269 	    (org-table-goto-column c2)
8271 	    (org-table-add-rectangle-overlay beg end face))
8274   (add-hook 'before-change-functions 'org-table-remove-rectangle-highlight))
8276 (defun org-table-remove-rectangle-highlight (&rest ignore)
8278   (unless org-inhibit-highlight-removal
8279     (remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
8280     (mapc 'org-delete-overlay org-table-rectangle-overlays)
8281     (setq org-table-rectangle-overlays nil)))
8283 (defvar org-table-coordinate-overlays nil
8285 (make-variable-buffer-local 'org-table-coordinate-overlays)
8287 (defun org-table-overlay-coordinates ()
8290   (mapc 'org-delete-overlay org-table-coordinate-overlays)
8291   (setq org-table-coordinate-overlays nil)
8294       (goto-char (org-table-begin))
8295       (while (org-at-table-p)
8297 	(setq ov (org-make-overlay (point-at-bol) (1+ (point-at-bol))))
8298 	(push ov org-table-coordinate-overlays)
8299 	(setq hline (looking-at org-table-hline-regexp))
8302 	(org-overlay-before-string ov str 'org-formula 'evaporate)
8308 	    (setq ov (org-make-overlay beg (+ beg (length str))))
8309 	    (push ov org-table-coordinate-overlays)
8310 	    (org-overlay-display ov str 'org-formula 'evaporate)))
8313 (defun org-table-toggle-coordinate-overlays ()
8316   (setq org-table-overlay-coordinates (not org-table-overlay-coordinates))
8318 	   (if org-table-overlay-coordinates "on" "off"))
8319   (if (and (org-at-table-p) org-table-overlay-coordinates)
8320       (org-table-align))
8321   (unless org-table-overlay-coordinates
8322     (mapc 'org-delete-overlay org-table-coordinate-overlays)
8323     (setq org-table-coordinate-overlays nil)))
8325 (defun org-table-toggle-formula-debugger ()
8328   (setq org-table-formula-debug (not org-table-formula-debug))
8330 	   (if org-table-formula-debug "on" "off")))
8335 ;; integrate the org-mode table editor.
8337 ;; This is really a hack, because the org-mode table editor uses several
8361   "Variable controlling `orgtbl-mode', a minor mode enabling the `org-mode'
8373 (defvar org-old-auto-fill-inhibit-regexp nil
8376 (defconst orgtbl-line-start-regexp "[ \t]*\\(|\\|#\\+\\(TBLFM\\|ORGTBL\\):\\)"
8380   (list (list (concat "^" orgtbl-line-start-regexp ".*")
8381 	      0 (quote 'org-table) 'prepend))
8386   "The `org-mode' table editor as a minor mode for use in other modes."
8388   (if (org-mode-p)
8390       ;; by accident in org-mode.
8391       (message "Orgtbl-mode is not useful in org-mode, command ignored")
8401 	  (org-set-local (quote org-table-may-need-update) t)
8402 	  (org-add-hook 'before-change-functions 'org-before-change-function
8404 	  (org-set-local 'org-old-auto-fill-inhibit-regexp
8405 			 auto-fill-inhibit-regexp)
8406 	  (org-set-local 'auto-fill-inhibit-regexp
8407 			 (if auto-fill-inhibit-regexp
8408 			     (concat orgtbl-line-start-regexp "\\|"
8409 				     auto-fill-inhibit-regexp)
8410 			   orgtbl-line-start-regexp))
8411 	  (org-add-to-invisibility-spec '(org-cwidth))
8414 	    (org-restart-font-lock))
8417       (setq auto-fill-inhibit-regexp org-old-auto-fill-inhibit-regexp)
8418       (org-cleanup-narrow-column-properties)
8419       (org-remove-from-invisibility-spec '(org-cwidth))
8420       (remove-hook 'before-change-functions 'org-before-change-function t)
8423 	(org-restart-font-lock))
8427 (defun org-cleanup-narrow-column-properties ()
8431 				      'display org-narrow-column-arrow))
8434     (while (setq s (text-property-any s (point-max) 'org-cwidth 1))
8435       (remove-text-properties s (1+ s) '(org-cwidth t)))
8437     (while (setq s (text-property-any s (point-max) 'invisible 'org-cwidth))
8460 	       '(org-at-table-p)
8480 	  '([(meta shift left)]  org-table-delete-column)
8481 	  '([(meta left)]        org-table-move-column-left)
8482 	  '([(meta right)]       org-table-move-column-right)
8483 	  '([(meta shift right)] org-table-insert-column)
8484 	  '([(meta shift up)]    org-table-kill-row)
8485 	  '([(meta shift down)]  org-table-insert-row)
8486 	  '([(meta up)]          org-table-move-row-up)
8487 	  '([(meta down)]        org-table-move-row-down)
8488 	  '("\C-c\C-w"           org-table-cut-region)
8489 	  '("\C-c\M-w"           org-table-copy-region)
8490 	  '("\C-c\C-y"           org-table-paste-rectangle)
8491 	  '("\C-c-"              org-table-insert-hline)
8492 	  '("\C-c}"              org-table-toggle-coordinate-overlays)
8493 	  '("\C-c{"              org-table-toggle-formula-debugger)
8494 	  '("\C-m"               org-table-next-row)
8495 	  (list (org-key 'S-return) 'org-table-copy-down)
8496 	  '("\C-c\C-q"           org-table-wrap-region)
8497 	  '("\C-c?"              org-table-field-info)
8498 	  '("\C-c "              org-table-blank-field)
8499 	  '("\C-c+"              org-table-sum)
8500 	  '("\C-c="              org-table-eval-formula)
8501 	  '("\C-c'"              org-table-edit-formulas)
8502 	  '("\C-c`"              org-table-edit-field)
8503 	  '("\C-c*"              org-table-recalculate)
8504 	  '("\C-c|"              org-table-create-or-convert-from-region)
8505 	  '("\C-c^"              org-table-sort-lines)
8506 	  '([(control ?#)]       org-table-rotate-recalc-marks)))
8527       (orgtbl-make-binding 'org-table-previous-field 104
8531       (orgtbl-make-binding 'org-table-wrap-region 105
8534       (orgtbl-make-binding 'org-table-wrap-region 106
8541       (org-remap orgtbl-mode-map
8543 		 'delete-char 'org-delete-char
8544 		 'delete-backward-char 'org-delete-backward-char)
8545       (define-key orgtbl-mode-map "|" 'org-force-self-insert))
8548 	["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"]
8549 	["Next Field" org-cycle :active (org-at-table-p) :keys "TAB"]
8550 	["Previous Field" org-shifttab :active (org-at-table-p) :keys "S-TAB"]
8551 	["Next Row" org-return :active (org-at-table-p) :keys "RET"]
8553 	["Blank Field" org-table-blank-field :active (org-at-table-p) :keys "C-c SPC"]
8554 	["Edit Field" org-table-edit-field :active (org-at-table-p) :keys "C-c ` "]
8556 	 org-table-copy-down :active (org-at-table-p) :keys "S-RET"]
8559 	 ["Move Column Left" org-metaleft :active (org-at-table-p) :keys "M-<left>"]
8560 	 ["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-<right>"]
8561 	 ["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-<left>"]
8562 	 ["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-<right>"])
8564 	 ["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-<up>"]
8565 	 ["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-<down>"]
8566 	 ["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-<up>"]
8567 	 ["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-<down>"]
8568 	 ["Sort lines in region" org-table-sort-lines (org-at-table-p) :keys "C-c ^"]
8570 	 ["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"])
8572 	 ["Copy Rectangle" org-copy-special :active (org-at-table-p)]
8573 	 ["Cut Rectangle" org-cut-special :active (org-at-table-p)]
8574 	 ["Paste Rectangle" org-paste-special :active (org-at-table-p)]
8575 	 ["Fill Rectangle" org-table-wrap-region :active (org-at-table-p)])
8582 	["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="]
8583 	["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
8584 	["Edit Formulas" org-table-edit-formulas :active (org-at-table-p) :keys "C-c '"]
8585 	["Recalculate line" org-table-recalculate :active (org-at-table-p) :keys "C-c *"]
8586 	["Recalculate all" (org-table-recalculate '(4)) :active (org-at-table-p) :keys "C-u C-c *"]
8587 	["Iterate all" (org-table-recalculate '(16)) :active (org-at-table-p) :keys "C-u C-u C-c *"]
8588 	["Toggle Recalculate Mark" org-table-rotate-recalc-marks :active (org-at-table-p) :keys "C-c #"]
8589 	["Sum Column/Rectangle" org-table-sum
8590 	 :active (or (org-at-table-p) (org-region-active-p)) :keys "C-c +"]
8591 	["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"]
8593 	 org-table-toggle-formula-debugger :active (org-at-table-p)
8595 	 :style toggle :selected org-table-formula-debug]
8597 	 org-table-toggle-coordinate-overlays :active (org-at-table-p)
8599 	 :style toggle :selected org-table-overlay-coordinates]
8617       (org-table-maybe-eval-formula)
8619 	  (call-interactively 'org-table-recalculate)
8620 	(org-table-maybe-recalculate-line))
8621       (call-interactively 'org-table-align)
8627 	(if (org-at-table-p)
8628 	    (org-call-with-arg 'org-table-recalculate t))))
8635   (if arg (org-table-edit-field t)
8636     (org-table-justify-field-maybe)
8637     (org-table-next-field)))
8642   (org-table-justify-field-maybe)
8643   (org-table-next-row))
8650   (if (and (org-at-table-p)
8652 	    (and org-table-auto-blank-field
8660 		 (org-table-blank-field))
8664       (let (org-table-may-need-update)
8669     (setq org-table-may-need-update t)
8673 (defun org-force-self-insert (N)
8678 (defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$"
8681 (defvar org-table-clean-did-remove-column-1 nil)
8689     (unless (org-at-table-p) (error "Not at a table"))
8691     (when (interactive-p) (org-table-align))
8693       (goto-char (org-table-begin))
8706 		 (org-table-begin) (org-table-end)))
8707 	   (lines (nthcdr (or skip 0) (org-split-string txt "[ \t]*\n[ \t]*")))
8708 	   (lines (org-table-clean-before-export lines))
8709 	   (i0 (if org-table-clean-did-remove-column-1 2 1))
8712 		     (if (string-match org-table-hline-regexp x)
8714 		       (org-remove-by-index
8715 			(org-split-string (org-trim x) "\\s-*|\\s-*")
8719 	   (org-table-last-alignment
8720 	    (org-remove-by-index (funcall fun org-table-last-alignment)
8722 	   (org-table-last-column-widths
8723 	    (org-remove-by-index (funcall fun org-table-last-column-widths)
8746 (defun org-remove-by-index (list indices &optional i0)
8761   (let* ((re1 (concat "^" (regexp-quote comment-start) orgtbl-line-start-regexp))
8762 	 (re2 (concat "^" orgtbl-line-start-regexp))
8766 				   (t (error "Not at an org table")))))
8793 (defun org-get-param (params header i sym &optional hsym)
8874 		       fm (org-get-param p h i :fmt :hfmt)
8875 		       efm (org-get-param p h i :efmt))
8876 		 (if (and efm (string-match orgtbl-exp-regexp f))
8882 	(if (setq lfmt (org-get-param p h i :lfmt :hlfmt))
8885 		 (org-get-param p h i :lstart :hlstart)
8886 		 (mapconcat 'identity line (org-get-param p h i :sep :hsep))
8887 		 (org-get-param p h i :lend :hlend))
8919 			       org-table-last-alignment ""))
8926     (orgtbl-to-generic table (org-combine-plists params2 params))))
8945     (setq html (org-format-org-table-html
8976                    under org-mode.
8980   (let* ((total (float (apply '+ org-table-last-column-widths)))
8984 		       org-table-last-column-widths " ")))
8991     (orgtbl-to-generic table (org-combine-plists params2 params))))
8997 (defun org-link-expand-abbrev (link)
8998   "Apply replacements as defined in `org-link-abbrev-alist."
9001 	     (as (or (assoc key org-link-abbrev-alist-local)
9002 		     (assoc key org-link-abbrev-alist)))
9016 (defvar org-insert-link-history nil
9017   "Minibuffer history for links inserted with `org-insert-link'.")
9019 (defvar org-stored-links nil
9020   "Contains the links stored with `org-store-link'.")
9022 (defvar org-store-link-plist nil
9023   "Plist with info about the most recently link created with `org-store-link'.")
9026 (defun org-store-link (arg)
9027   "\\<org-mode-map>Store an org-link to the current location.
9028 This link can later be inserted into an org-buffer with
9029 \\[org-insert-link].
9031 For links to usenet articles, arg negates `org-usenet-links-prefer-google'.
9032 For file links, arg negates `org-context-in-file-links'."
9034   (setq org-store-link-plist nil)  ; reset
9042 	      link (org-make-link cpltxt))
9043 	(org-store-link-props :type "bbdb" :name name :company company)))
9046       (setq link (org-make-link "info:"
9051       (org-store-link-props :type "info" :file Info-current-file
9058 	       (car org-time-stamp-formats)
9062 	(org-store-link-props :type "calendar" :date cd)))
9076 	 (org-store-link-props :type "vm" :from from :to to :subject subject
9078 	 (setq message-id (org-remove-angle-brackets message-id))
9080 	 (if (string-match (concat "^" (regexp-quote vm-folder-directory))
9083 	 (setq cpltxt (org-email-link-description))
9084 	 (setq link (org-make-link "vm:" folder "#" message-id)))))
9100 	(org-store-link-props :type "wl" :from from :to to
9102 	(setq message-id (org-remove-angle-brackets message-id))
9103 	(setq cpltxt (org-email-link-description))
9104 	(setq link (org-make-link "wl:" wl-summary-buffer-folder-name
9109       (let ((from (org-mhe-get-header "From:"))
9110 	    (to (org-mhe-get-header "To:"))
9111 	    (message-id (org-mhe-get-header "Message-Id:"))
9112 	    (subject (org-mhe-get-header "Subject:")))
9113 	(org-store-link-props :type "mh" :from from :to to
9115 	(setq cpltxt (org-email-link-description))
9116 	(setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
9117 				  (org-remove-angle-brackets message-id)))))
9128 	    (org-store-link-props
9131 	    (setq message-id (org-remove-angle-brackets message-id))
9132 	    (setq cpltxt (org-email-link-description))
9133 	    (setq link (org-make-link "rmail:" folder "#" message-id))))))
9142 	(org-store-link-props :type "gnus" :group group)
9144 		      (if (org-xor arg org-usenet-links-prefer-google)
9148 	      link (org-make-link cpltxt))))
9159 	(org-store-link-props :type "gnus" :from from :subject subject
9161 	(setq cpltxt (org-email-link-description))
9162 	(if (org-xor arg org-usenet-links-prefer-google)
9167 			   (org-fixup-message-id-for-http message-id))))
9168 	  (setq link (org-make-link "gnus:" group
9173 	    link (org-make-link cpltxt))
9174       (org-store-link-props :type "w3" :url (url-view-url t)))
9178 	    link (org-make-link w3m-current-url))
9179       (org-store-link-props :type "w3m" :url (url-view-url t)))
9182 		    'org-create-file-search-functions))
9190 	    link (org-make-link cpltxt))
9191       (org-store-link-props :type "image" :file buffer-file-name))
9199 	    link (org-make-link cpltxt)))
9201      ((and buffer-file-name (org-mode-p))
9206       (when (org-xor org-context-in-file-links arg)
9208 	(if (org-in-regexp "<<\\(.*?\\)>>")
9211 		     ((org-on-heading-p) nil)
9212 		     ((org-region-active-p)
9217 		  (concat cpltxt "::" (org-make-org-heading-search-string txt))
9221       (setq link (org-make-link cpltxt)))
9228       (when (org-xor org-context-in-file-links arg)
9229 	(setq txt (if (org-region-active-p)
9235 		(concat cpltxt "::" (org-make-org-heading-search-string txt))
9237       (setq link (org-make-link cpltxt)))
9251 	  (setq org-stored-links
9252 		(cons (list cpltxt link desc) org-stored-links))
9254       (org-make-link-string link desc))))
9256 (defun org-store-link-props (&rest plist)
9269     (when (and from to org-from-is-user-regexp)
9271 		 (if (string-match org-from-is-user-regexp from)
9274   (setq org-store-link-plist plist))
9276 (defun org-email-link-description (&optional fmt)
9278 This takes information from `org-store-link-plist' and formats it
9279 according to FMT (default from `org-email-link-description-format')."
9280   (setq fmt (or fmt org-email-link-description-format))
9281   (let* ((p org-store-link-plist)
9295       (if (and org-from-is-user-regexp from to
9296 	       (save-match-data (string-match org-from-is-user-regexp from)))
9299     (org-replace-escapes fmt table)))
9301 (defun org-make-org-heading-search-string (&optional string heading)
9304   (let ((s (or string (org-get-heading))))
9307       (if (string-match org-todo-regexp s)
9311       (setq s (org-trim s))
9312       (if (string-match (concat "^\\(" org-quote-string "\\|"
9313 				org-comment-string "\\)") s)
9315       (while (string-match org-ts-regexp s)
9320     (mapconcat 'identity (org-split-string s "[ \t]+") " ")))
9322 (defun org-make-link (&rest strings)
9323   "Concatenate STRINGS, format resulting string with `org-link-format'."
9326 (defun org-make-link-string (link &optional description)
9332   (when (equal (org-link-escape link) description)
9336 	     (not (equal link (org-link-escape link))))
9338   (concat "[[" (org-link-escape link) "]"
9342 (defconst org-link-escape-chars '(("[" . "%5B") ("]" . "%5D") (" " . "%20"))
9345 (defun org-link-escape (text)
9348     (let ((re (mapconcat (lambda (x) (regexp-quote (car x)))
9349 			 org-link-escape-chars "\\|")))
9353 	       (cdr (assoc (match-string 0 text) org-link-escape-chars))
9357 (defun org-link-unescape (text)
9358   "Reverse the action of `org-link-escape'."
9360     (let ((re (mapconcat (lambda (x) (regexp-quote (cdr x)))
9361 			 org-link-escape-chars "\\|")))
9365 	       (car (rassoc (match-string 0 text) org-link-escape-chars))
9369 (defun org-xor (a b)
9373 (defun org-get-header (header)
9397 (defun org-fixup-message-id-for-http (s)
9407 (defun org-insert-link (&optional complete-file)
9411 `org-store-link'.  When the empty string is entered (i.e. if you just
9431 `org-keep-stored-link-after-insertion'."
9433   (let ((region (if (org-region-active-p)
9439      ((org-in-regexp org-bracket-link-regexp 1)
9442       (setq desc (if (match-end 3) (org-match-string-no-properties 3)))
9444 			      (org-link-unescape
9445 			       (org-match-string-no-properties 1)))))
9446      ((or (org-in-regexp org-angle-link-re)
9447 	  (org-in-regexp org-plain-link-re))
9451 			      (org-remove-angle-brackets (match-string 0)))))
9460 	  (setq link (org-make-link
9463 	 ((string-match (concat "^" (regexp-quote pwd1) "\\(.+\\)") file)
9464 	  (setq link  (org-make-link "file:" (match-string 1 file))))
9465 	 ((string-match (concat "^" (regexp-quote pwd) "\\(.+\\)")
9467 	  (setq link  (org-make-link
9469 	 (t (setq link (org-make-link "file:" file))))))
9473       (setq tmphist (append (mapcar 'car org-stored-links)
9474 			    org-insert-link-history))
9475       (setq link (org-completing-read
9476 		  "Link: " org-stored-links nil nil nil
9478 		  (or (car (car org-stored-links)))))
9479       (setq entry (assoc link org-stored-links))
9480       (or entry (push link org-insert-link-history))
9482 		   (not org-keep-stored-link-after-insertion))
9483 	  (setq org-stored-links (delq (assoc link org-stored-links)
9484 				       org-stored-links)))
9488     (if (string-match org-plain-link-re link)
9490 	(setq link (org-make-link (org-remove-angle-brackets link))))
9509 	 ((eq org-link-file-path-type 'absolute)
9511 	 ((eq org-link-file-path-type 'noabbrev)
9513 	 ((eq org-link-file-path-type 'relative)
9517 	    (if (string-match (concat "^" (regexp-quote
9529     (insert (org-make-link-string link desc))))
9531 (defun org-completing-read (&rest args)
9538 (defvar org-link-search-failed nil)
9540 (defun org-next-link ()
9544   (when (and org-link-search-failed (eq this-command last-command))
9547   (setq org-link-search-failed nil)
9549 	 (ct (org-context))
9552     (if (re-search-forward org-any-link-re nil t)
9555 	  (if (org-invisible-p) (org-show-context)))
9557       (setq org-link-search-failed t)
9560 (defun org-previous-link ()
9564   (when (and org-link-search-failed (eq this-command last-command))
9567   (setq org-link-search-failed nil)
9569 	 (ct (org-context))
9572     (if (re-search-backward org-any-link-re nil t)
9575 	  (if (org-invisible-p) (org-show-context)))
9577       (setq org-link-search-failed t)
9580 (defun org-find-file-at-mouse (ev)
9584   (org-open-at-point 'in-emacs))
9586 (defun org-open-at-mouse (ev)
9590   (org-open-at-point))
9592 (defvar org-window-config-before-follow-link nil
9596 (defvar org-open-link-marker (make-marker)
9597   "Marker pointing to the location where `org-open-at-point; was called.")
9599 (defun org-open-at-point (&optional in-emacs)
9606   (move-marker org-open-link-marker (point))
9607   (setq org-window-config-before-follow-link (current-window-configuration))
9608   (org-remove-occur-highlights nil nil t)
9609   (if (org-at-timestamp-p t)
9610       (org-follow-timestamp-link)
9615 	  (when (org-in-regexp org-bracket-link-regexp)
9616 	    (setq link (org-link-unescape (org-match-string-no-properties 1)))
9619 	    (setq link (org-link-expand-abbrev link))
9620 	    (if (string-match org-link-re-with-space2 link)
9625 	(when (get-text-property (point) 'org-linked-text)
9627 		pos (if (get-text-property (1+ (point)) 'org-linked-text)
9630 		      (previous-single-property-change pos 'org-linked-text)
9631 		      (next-single-property-change pos 'org-linked-text)))
9635 	  (when (or (org-in-regexp org-angle-link-re)
9636 		    (org-in-regexp org-plain-link-re))
9640 	  (when (org-in-regexp "\\(:[A-Za-z_@0-9:]+\\):[ \t\r\n]")
9655 	(let ((cmd (car org-link-mailto-program))
9656 	      (args (cdr org-link-mailto-program)) args1
9660 		    subject (org-link-escape (match-string 2 path))))
9676 	(org-tags-view in-emacs path))
9680 	     (org-get-buffer-for-internal-link (current-buffer)))
9681 	  (org-mark-ring-push))
9682 	(org-link-search
9685 	       ((equal in-emacs '(16)) 'org-occur)
9696 	(org-open-file path in-emacs line search))
9699 	(org-follow-gnus-link path))
9702 	(org-follow-bbdb-link path))
9705 	(org-follow-info-link path))
9713 	  (org-follow-gnus-link group article)))
9722 	  (org-follow-vm-link folder article in-emacs)))
9730 	  (org-follow-wl-link folder article)))
9738 	  (org-follow-mhe-link folder article)))
9746 	  (org-follow-rmail-link folder article)))
9753 	  (if (or (not org-confirm-shell-link-function)
9754 		  (funcall org-confirm-shell-link-function
9756 				   (org-add-props cmd nil
9757 				     'face 'org-warning))))
9765 	  (if (or (not org-confirm-elisp-link-function)
9766 		  (funcall org-confirm-elisp-link-function
9768 				   (org-add-props cmd nil
9769 						  'face 'org-warning))))
9775   (move-marker org-open-link-marker nil))
9780 (defvar org-create-file-search-functions nil
9791 file link, given after a double colon, and `org-open-at-point'
9794 added to the companion hook `org-execute-file-search-functions',
9800 buffer with \\[org-insert-link].")
9802 (defvar org-execute-file-search-functions nil
9820 the window configuration before `org-open-at-point' was called using:
9822     (set-window-configuration org-window-config-before-follow-link)")
9824 (defun org-link-search (s &optional type avoid-pos)
9827 regular expression.  In org-mode files, this will create an `org-occur'
9832 	(s0 (mapconcat 'identity (org-split-string s "[ \t\r\n]+") " "))
9838      ((run-hook-with-args-until-success 'org-execute-file-search-functions s))
9844 	  (concat "<<" (regexp-quote s0) ">>") nil t)
9851        ((org-mode-p)
9852 	(org-occur (match-string 1 s)))
9855        (t (org-do-occur (match-string 1 s)))))
9867       (setq words (org-split-string s "[ \n\r\t]+")
9868 	    re0 (concat "\\(<<" (regexp-quote s0) ">>\\)")
9883        ((eq type 'org-occur) (org-occur reall))
9884        ((eq type 'occur) (org-do-occur (downcase reall) 'cleanup))
9886 	  (if (or (org-search-not-self 1 re0 nil t)
9887 		  (org-search-not-self 1 re1 nil t)
9888 		  (org-search-not-self 1 re2 nil t)
9889 		  (org-search-not-self 1 re2a nil t)
9890 		  (org-search-not-self 1 re3 nil t)
9891 		  (org-search-not-self 1 re4 nil t)
9892 		  (org-search-not-self 1 re5 nil t)
9903     (and (org-mode-p) (org-show-context 'link-search))))
9905 (defun org-search-not-self (group &rest args)
9907 enclose the position of `org-open-link-marker'."
9908   (let ((m org-open-link-marker))
9916 		   (or (not (org-in-regexp org-bracket-link-analytic-regexp 1))
9922 (defun org-get-buffer-for-internal-link (buffer)
9925    ((not org-display-internal-link-with-indirect-buffer)
9935       (with-current-buffer ib (org-overview))
9938 (defun org-do-occur (regexp &optional cleanup)
9943   (occur regexp)
9959 (defvar org-mark-ring nil
9961 (defvar org-mark-ring-last-goto nil
9964 (setq org-mark-ring nil org-mark-ring-last-goto nil) ;; in case file is reloaded
9965 (loop for i from 1 to org-mark-ring-length do
9966       (push (make-marker) org-mark-ring))
9967 (setcdr (nthcdr (1- org-mark-ring-length) org-mark-ring)
9968 	org-mark-ring)
9970 (defun org-mark-ring-push (&optional pos buffer)
9974   (setq org-mark-ring (nthcdr (1- org-mark-ring-length) org-mark-ring))
9975   (move-marker (car org-mark-ring)
9980     "Position saved to mark ring, go back with \\[org-mark-ring-goto].")))
9982 (defun org-mark-ring-goto (&optional n)
9992 	(setq p (nthcdr n (or org-mark-ring-last-goto org-mark-ring)))
9993       (setq p org-mark-ring))
9994     (setq org-mark-ring-last-goto p)
9998     (if (or (org-invisible-p) (org-invisible-p2)) (org-show-context 'mark-goto))))
10000 (defun org-remove-angle-brackets (s)
10004 (defun org-add-angle-brackets (s)
10011 (defun org-follow-timestamp-link ()
10013    ((org-at-date-range-p t)
10014     (let ((org-agenda-start-on-weekday)
10017       (setq t1 (time-to-days (org-time-string-to-time t1))
10018 	    t2 (time-to-days (org-time-string-to-time t2)))
10019       (org-agenda-list nil t1 (1+ (- t2 t1)))))
10020    ((org-at-timestamp-p t)
10021     (org-agenda-list nil (time-to-days (org-time-string-to-time
10027 (defun org-follow-bbdb-link (name)
10051 (defun org-follow-info-link (name)
10062 (defun org-follow-gnus-link (&optional group article)
10065   (funcall (cdr (assq 'gnus org-link-frame-setup)))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075   (setq article (org-add-angle-brackets article))
10092     (funcall (cdr (assq 'vm org-link-frame-setup)) folder readonly)
10100 		  (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10120        (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10123 (defun org-follow-rmail-link (folder article)
10125   (setq article (org-add-angle-brackets article))
10135 		     (concat "^Message-ID:\\s-+" (regexp-quote
10147 (defun org-mhe-get-message-real-folder ()
10169                     (org-mhe-get-message-folder-from-index)
10172             (org-mhe-get-message-folder-from-index)
10178 (defun org-mhe-get-message-folder-from-index ()
10185 (defun org-mhe-get-message-folder ()
10194 (defun org-mhe-get-message-num ()
10203 (defun org-mhe-get-header (header)
10207   (let* ((folder (org-mhe-get-message-folder))
10208          (num (org-mhe-get-message-num))
10223 (defun org-follow-mhe-link (folder article)
10226 `org-mhe-search-all-folders' is t and `mh-searcher' is pick,
10236     (setq article (org-add-angle-brackets article))
10241           (when (and org-mhe-search-all-folders
10242                      (not (org-mhe-get-message-real-folder)))
10246     (if (org-mhe-get-message-real-folder)
10256 (defun org-create-file-search-in-bibtex ()
10280 (defun org-execute-file-search-in-bibtex (s)
10284     ;; We construct a regexp that searches for "@entrytype{" followed by the key
10287 				    (regexp-quote s) "[ \t\n]*,") nil t)
10293 	  (set-window-configuration org-window-config-before-follow-link)
10301 (add-hook 'org-create-file-search-functions 'org-create-file-search-in-bibtex)
10302 (add-hook 'org-execute-file-search-functions 'org-execute-file-search-in-bibtex)
10308 (defun org-open-file (path &optional in-emacs line search)
10311 configuration variable `org-file-apps' is checked if it contains an
10323 	 (apps (append org-file-apps (org-default-apps)))
10324 	 (remp (and (assq 'remote apps) (org-file-remote-p file)))
10351 	     (not org-open-non-existing-files))
10363       (funcall (cdr (assq 'file org-link-frame-setup)) file)
10365 	(if search (org-link-search search))))
10368      (t (funcall (cdr (assq 'file org-link-frame-setup)) file)))
10369     (and (org-mode-p) (eq old-mode 'org-mode)
10372 	 (org-mark-ring-push old-pos old-buffer))))
10374 (defun org-default-apps ()
10378     org-file-apps-defaults-macosx)
10380     org-file-apps-defaults-windowsnt)
10381    (t org-file-apps-defaults-gnu)))
10383 (defun org-expand-file-name (path)
10388 (defun org-file-remote-p (file)
10407 (defun org-remember-annotation ()
10412   (org-store-link nil))
10414 (defconst org-remember-help
10422 (defun org-remember-apply-template (&optional use-char skip-interactive)
10423   "Initialize *remember* buffer with template, invoke `org-mode'.
10426   (if org-remember-templates
10429 		       (if (= (length org-remember-templates) 1)
10430 			   (caar org-remember-templates)
10434 				   org-remember-templates " "))
10436 	     (entry (cdr (assoc char org-remember-templates)))
10438 	     (plist-p (if org-store-link-plist t nil))
10442 		     org-default-notes-file))
10444 	     (v-t (format-time-string (car org-time-stamp-formats) (org-current-time)))
10445 	     (v-T (format-time-string (cdr org-time-stamp-formats) (org-current-time)))
10451 	     (org-startup-folded nil)
10452 	     org-time-was-given x prompt char time)
10453 	(setq org-store-link-plist
10461 ## To switch templates, use `\\[org-remember]'.\n\n"
10462 		  (abbreviate-file-name (or file org-default-notes-file))
10472 				     (org-split-string initial "\n")
10481 	    (and (setq x (plist-get org-store-link-plist
10484 	;; Turn on org-mode in the remember buffer, set local variables
10485 	(org-mode)
10486 	(org-set-local 'org-finish-function 'remember-buffer)
10488 	    (org-set-local 'org-default-notes-file file))
10490 	    (org-set-local 'org-remember-default-headline headline))
10500 		(setq org-time-was-given (equal (upcase char) char))
10501 		(setq time (org-read-date (equal (upcase char) "U") t nil
10503 		(org-insert-time-stamp time org-time-was-given
10511     (org-mode)
10512     (org-set-local 'org-finish-function 'remember-buffer)))
10515 (defun org-remember ()
10520   (if (eq org-finish-function 'remember-buffer)
10522 	(when (< (length org-remember-templates) 2)
10525 	(let ((annotation (plist-get org-store-link-plist :annotation))
10526 	      (initial (plist-get org-store-link-plist :initial)))
10527 	  (org-remember-apply-template))
10529     (if (org-region-active-p)
10534 (defun org-remember-handler ()
10535   "Store stuff from remember.el into an org file.
10536 First prompts for an org file.  If the user just presses return, the value
10537 of `org-default-notes-file' is used.
10562 If the variable `org-adapt-indentation' is non-nil, the entire text is
10566 See also the variable `org-reverse-note-order'."
10573 	   (file (if fastp org-default-notes-file (org-get-org-file)))
10574 	   (heading org-remember-default-headline)
10575 	   (visiting (org-find-base-buffer-visiting file))
10576 	   (org-startup-folded nil)
10577 	   (org-startup-align-all-tables nil)
10578 	   (org-goto-start-pos 1)
10581       ;; into an org tree.
10593 	(if (and org-adapt-indentation indent)
10603 	(setq reversed (org-notes-order-reversed-p))
10612 		   (concat "^\\*+[ \t]+" (regexp-quote heading)
10615 		  (setq org-goto-start-pos (match-beginning 0))))
10619 			   org-goto-start-pos
10620 			 (org-get-location (current-buffer) org-remember-help)))
10630 		     (org-paste-subtree (org-get-legal-level 1 1) txt)))
10638 		     (org-paste-subtree 1 txt)))
10639 		  ((and (org-on-heading-p nil) (not current-prefix-arg))
10641 		   (org-back-to-heading t)
10645 		     (org-end-of-subtree t))
10648 		   (org-paste-subtree (org-get-legal-level level 1) txt))
10651 		   ;; org-paste-subtree or from prefix arg
10652 		   (org-paste-subtree current-prefix-arg txt)))
10658 (defun org-get-org-file ()
10659   "Read a filename, with default directory `org-directory'."
10660   (let ((default (or org-default-notes-file remember-data-file)))
10662 		    (file-name-as-directory org-directory)
10665 (defun org-notes-order-reversed-p ()
10668    ((not org-reverse-note-order) nil)
10669    ((eq t org-reverse-note-order) t)
10670    ((not (listp org-reverse-note-order)) nil)
10672 	(let  ((all org-reverse-note-order)
10681 (defun org-find-dblock (name)
10693 (defconst org-dblock-start-re
10697 (defconst org-dblock-end-re "^#\\+END\\([: \t\r\n]\\|$\\)"
10700 (defun org-create-dblock (plist)
10713 (defun org-prepare-dblock ()
10717   (unless (looking-at org-dblock-start-re)
10723     (unless (re-search-forward org-dblock-end-re nil t)
10730 (defun org-map-dblocks (&optional command)
10732 If COMMAND is not given, use `org-update-dblock'."
10733   (let ((cmd (or command 'org-update-dblock))
10737       (while (re-search-forward org-dblock-start-re nil t)
10743 	(unless (re-search-forward org-dblock-end-re nil t)
10746 (defun org-dblock-update (&optional arg)
10752       (org-update-all-dblocks)
10753     (or (looking-at org-dblock-start-re)
10754 	(org-beginning-of-dblock))
10755     (org-update-dblock)))
10757 (defun org-update-dblock ()
10762 	 (params (org-prepare-dblock))
10764 	 (cmd (intern (concat "org-dblock-write:" name))))
10768 (defun org-beginning-of-dblock ()
10774     (if (and (re-search-backward org-dblock-start-re nil t)
10776 	     (re-search-forward org-dblock-end-re nil t)
10782 (defun org-update-all-dblocks ()
10785   (when (org-mode-p)
10786     (org-map-dblocks 'org-update-dblock)))
10791 (defun org-complete (&optional arg)
10794 `org-todo-keywords'.
10829 			    (org-split-string (org-get-current-options) "\n")))
10832 		    org-startup-options)
10833 		   (link (append org-link-abbrev-alist-local
10834 				 org-link-abbrev-alist))
10837 		    org-html-entities)
10841 		    (mapcar 'list org-todo-keywords))
10846 		      (while (re-search-forward org-todo-line-regexp nil t)
10848 			       (org-make-org-heading-search-string
10853 			(or org-tag-alist (org-get-buffer-tags)))
10877 				"Press \\[org-complete] again to insert example settings"))))
10891 (defun org-toggle-comment ()
10895     (org-back-to-heading)
10896     (if (looking-at (concat outline-regexp
10897 			    "\\( +\\<" org-comment-string "\\>\\)"))
10899       (if (looking-at outline-regexp)
10902 	    (insert " " org-comment-string))))))
10904 (defvar org-last-todo-state-is-todo nil
10909 (defun org-todo (&optional arg)
10916 The different keywords are specified in the variable `org-todo-keywords'.
10930                      really is a member of `org-todo-keywords'."
10933     (org-back-to-heading)
10934     (if (looking-at outline-regexp) (goto-char (match-end 0)))
10935     (or (looking-at (concat " +" org-todo-regexp " *"))
10940 	   (member (member this org-todo-keywords))
10946 						       org-todo-keywords)
10951 		      (car org-todo-keywords)))
10953 		    (if (equal member org-todo-keywords)
10956 			  (nth (- (length org-todo-keywords) (length tail) 2)
10957 			       org-todo-keywords)
10958 			org-done-string)))
10964 		     ((eq arg 'done) (org-last org-todo-keywords))
10965 		     ((car (member arg org-todo-keywords)))
10967 			     org-todo-keywords))))
10968 		   ((null member) (car org-todo-keywords))
10970 		   ((eq org-todo-interpretation 'sequence)
10972 		   ((memq org-todo-interpretation '(type priority))
10975 		      (if (> (length tail) 0) org-done-string nil)))
10980       (setq org-last-todo-state-is-todo
10981 	    (not (equal state org-done-string)))
10982       (when org-log-done
10983 	(setq dostates (and (eq org-todo-interpretation 'sequence)
10984 			    (listp org-log-done) (memq 'state org-log-done)))
10987 	  (org-add-planning-info nil nil 'closed)
10988 	  (and dostates (org-add-log-maybe 'state state 'findpos)))
10990 	  (org-add-log-maybe 'state state 'findpos))
10991 	 ((equal state org-done-string)
10993 	  (org-add-planning-info 'closed (org-current-time)
10994 				 (if (org-get-repeat) nil 'scheduled))
10995 	  (org-add-log-maybe 'done state 'findpos))))
10997       (and org-auto-align-tags (org-set-tags nil t))
10998       (run-hooks 'org-after-todo-state-change-hook)
10999       (and (equal state org-done-string) (org-auto-repeat-maybe))
11005 			   (looking-at org-todo-line-regexp))
11011 (defun org-get-repeat ()
11015       (org-back-to-heading t)
11017 	   org-repeat-re (save-excursion (outline-next-heading) (point)) t)
11020 (defvar org-last-changed-timestamp)
11021 (defvar org-log-post-message)
11022 (defun org-auto-repeat-maybe ()
11026 This function should be run in the `org-after-todo-state-change-hook'."
11028   (let ((repeat (org-get-repeat))
11031 	(org-log-done)
11034       (org-todo (if (eq 'org-todo-interpretation 'type)
11036 		  (car org-todo-keywords)))
11037       (unless (memq 'org-add-log-note (default-value 'post-command-hook))
11039 	(let ((org-log-done '(done)))
11040 	  (org-add-log-maybe 'done org-done-string 'findpos)))
11041       (org-back-to-heading t)
11042       (org-add-planning-info nil nil 'closed)
11043       (setq re (concat "\\(" org-scheduled-time-regexp "\\)\\|\\("
11044 		       org-deadline-time-regexp "\\)"))
11047 	(setq type (if (match-end 1) org-scheduled-string org-deadline-string)
11054 	  (org-timestamp-change n (cdr (assoc what whata))))
11055 	(setq msg (concat msg type org-last-changed-timestamp " ")))
11056       (setq org-log-post-message msg)
11059 (defun org-show-todo-tree (arg)
11061 The tree will show the lines where the regexp matches, and all higher
11065 of `org-todo-keywords'."
11069 	 (cond ((null arg) org-not-done-regexp)
11070 	       ((equal arg '(4)) org-todo-regexp)
11071 	       ((<= (prefix-numeric-value arg) (length org-todo-keywords))
11072 		(regexp-quote (nth (1- (prefix-numeric-value arg))
11073 				   org-todo-keywords)))
11076 	     (org-occur (concat "^" outline-regexp " +" kwd-re )))))
11078 (defun org-deadline ()
11079   "Insert the DEADLINE: string to make a deadline.
11080 A timestamp is also inserted - use \\[org-timestamp-up] and \\[org-timestamp-down]
11083   (org-add-planning-info 'deadline nil 'closed))
11085 (defun org-schedule ()
11087 A timestamp is also inserted - use \\[org-timestamp-up] and \\[org-timestamp-down]
11090   (org-add-planning-info 'scheduled nil 'closed))
11092 (defun org-add-planning-info (what &optional time &rest remove)
11099   (let (org-time-was-given)
11100     (when what (setq time (or time (org-read-date nil 'to-time))))
11101     (when (and org-insert-labeled-timestamps-at-point
11102 	       (member what '(scheduled deadline)))
11104        (if (eq what 'scheduled) org-scheduled-string org-deadline-string) " ")
11105       (org-insert-time-stamp time org-time-was-given)
11110 	  (org-back-to-heading t)
11111 	  (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"))
11115 	  (if (and (not (looking-at outline-regexp))
11116 		   (looking-at (concat "[^\r\n]*?" org-keyword-time-regexp
11118 		   (not (equal (match-string 1) org-clock-string)))
11130 			   (re-search-forward org-scheduled-time-regexp nil t))
11131 		      (and (eq elt 'deadline)
11132 			   (re-search-forward org-deadline-time-regexp nil t))
11134 			   (re-search-forward org-closed-time-regexp nil t)))
11142 	     (cond ((eq what 'scheduled) org-scheduled-string)
11143 		   ((eq what 'deadline) org-deadline-string)
11144 		   ((eq what 'closed) org-closed-string))
11146 	    (org-insert-time-stamp time
11147 				   (or org-time-was-given (eq what 'closed))
11156 (defvar org-log-note-marker (make-marker))
11157 (defvar org-log-note-purpose nil)
11158 (defvar org-log-note-state nil)
11159 (defvar org-log-note-window-configuration nil)
11160 (defvar org-log-note-return-to (make-marker))
11161 (defvar org-log-post-message nil
11165 (defun org-add-log-maybe (&optional purpose state findpos)
11167     (when (and (listp org-log-done)
11168 	       (memq purpose org-log-done))
11170 	(org-back-to-heading t)
11171 	(looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
11172 			    "\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
11175       (move-marker org-log-note-marker (point))
11176       (setq org-log-note-purpose purpose)
11177       (setq org-log-note-state state)
11178       (add-hook 'post-command-hook 'org-add-log-note 'append))))
11180 (defun org-add-log-note (&optional purpose)
11182   (remove-hook 'post-command-hook 'org-add-log-note)
11183   (setq org-log-note-window-configuration (current-window-configuration))
11185   (move-marker org-log-note-return-to (point))
11186   (switch-to-buffer (marker-buffer org-log-note-marker))
11187   (goto-char org-log-note-marker)
11190   (let ((org-inhibit-startup t)) (org-mode))
11193 		   ((eq org-log-note-purpose 'clock-out) "stopped clock")
11194 		   ((eq org-log-note-purpose 'done)  "closed todo item")
11195 		   ((eq org-log-note-purpose 'state) "state change")
11197   (org-set-local 'org-finish-function 'org-store-log-note))
11199 (defun org-store-log-note ()
11202 	(note (cdr (assq org-log-note-purpose org-log-note-headings)))
11209     (setq lines (org-split-string txt "\n"))
11212 	    (org-replace-escapes
11217 			       (org-time-stamp-format 'long 'inactive)
11219 		   (cons "%s" (if org-log-note-state
11220 				  (concat "\"" org-log-note-state "\"")
11225       (set-buffer (marker-buffer org-log-note-marker))
11227 	(goto-char org-log-note-marker)
11228 	(move-marker org-log-note-marker nil)
11235   (set-window-configuration org-log-note-window-configuration)
11236   (with-current-buffer (marker-buffer org-log-note-return-to)
11237     (goto-char org-log-note-return-to))
11238   (move-marker org-log-note-return-to nil)
11239   (and org-log-post-message (message org-log-post-message)))
11241 (defvar org-occur-highlights nil)
11242 (make-variable-buffer-local 'org-occur-highlights)
11244 (defun org-occur (regexp &optional keep-previous callback)
11246 The tree will show the lines where the regexp matches, and all higher
11250 call to `org-occur' will be kept, to allow stacking of calls to this
11255   (or keep-previous (org-remove-occur-highlights nil nil t))
11260 	      (not org-occur-highlights))  ; no previous matches
11262 	  (org-overview))
11263       (while (re-search-forward regexp nil t)
11267 	  (org-highlight-new-match (match-beginning 0) (match-end 0))
11268 	  (org-show-context 'occur-tree))))
11269     (when org-remove-highlights-with-change
11270       (org-add-hook 'before-change-functions 'org-remove-occur-highlights
11272     (unless org-sparse-tree-open-archived-trees
11273       (org-hide-archived-subtrees (point-min) (point-max)))
11274     (run-hooks 'org-occur-hook)
11276 	(message "%d match(es) for regexp %s" cnt regexp))
11279 (defun org-show-context (&optional key)
11282 `org-show-hierarchy-above', `org-show-following-heading'. and
11283 `org-show-siblings'."
11284   (let ((heading-p   (org-on-heading-p t))
11285 	(hierarchy-p (org-get-alist-option org-show-hierarchy-above key))
11286 	(following-p (org-get-alist-option org-show-following-heading key))
11287 	(siblings-p  (org-get-alist-option org-show-siblings key)))
11291 	  (org-flag-heading nil)    ; only show the heading
11292 	(and (or (org-invisible-p) (org-invisible-p2))
11293 	     (org-show-hidden-entry)))    ; show entire entry
11297 	  (and (if heading-p (org-goto-sibling) (outline-next-heading))
11298 	       (org-flag-heading nil))))
11299       (when siblings-p (org-show-siblings))
11304 			  (progn (org-up-heading-all 1) t)
11307 	    (org-flag-heading nil)
11308 	    (when siblings-p (org-show-siblings))))))))
11310 (defun org-reveal (&optional siblings)
11313 exposed with `org-show-hierarchy-above' or `org-show-following-heading'
11318 look like when opened with hierarchical calls to `org-cycle'."
11320   (let ((org-show-hierarchy-above t)
11321 	(org-show-following-heading t)
11322 	(org-show-siblings (if siblings t org-show-siblings)))
11323     (org-show-context nil)))
11325 (defun org-highlight-new-match (beg end)
11327   (let ((ov (org-make-overlay beg end)))
11328     (org-overlay-put ov 'face 'secondary-selection)
11329     (push ov org-occur-highlights)))
11331 (defun org-remove-occur-highlights (&optional beg end noremove)
11336   (unless org-inhibit-highlight-removal
11337     (mapc 'org-delete-overlay org-occur-highlights)
11338     (setq org-occur-highlights nil)
11341 		   'org-remove-occur-highlights 'local))))
11345 (defvar org-priority-regexp ".*?\\(\\[#\\([A-Z]\\)\\] ?\\)"
11348 (defvar org-remove-priority-next-time nil)
11350 (defun org-priority-up ()
11353   (org-priority 'up))
11355 (defun org-priority-down ()
11358   (org-priority 'down))
11360 (defun org-priority (&optional action)
11367       (org-back-to-heading)
11368       (if (looking-at org-priority-regexp)
11371 	(setq current org-default-priority))
11374 	(message "Priority A-%c, SPC to remove: " org-lowest-priority)
11377 	      ((or (< (upcase new) ?A) (> (upcase new) org-lowest-priority))
11379 		      ?A org-lowest-priority))))
11385       (setq new (min (max ?A (upcase new)) org-lowest-priority))
11393 	  (looking-at org-todo-line-regexp)
11405 (defun org-get-priority (s)
11408     (if (not (string-match org-priority-regexp s))
11409 	(* 1000 (- org-lowest-priority org-default-priority))
11410       (* 1000 (- org-lowest-priority
11415 (defun org-scan-tags (action matcher &optional todo-only)
11421   (let* ((re (concat "[\n\r]" outline-regexp " *\\(\\<\\("
11422 		     (mapconcat 'regexp-quote
11423 				(nreverse (cdr (reverse org-todo-keywords)))
11427 		      'done-face 'org-done
11430 		      'org-not-done-regexp org-not-done-regexp
11431 		      'keymap org-agenda-keymap
11433 		      (format "mouse-2 or RET jump to org file %s"
11441       (when (eq action 'sparse-tree) (org-overview))
11448 		category (org-get-category))
11457 	    (setq tags (mapcar 'downcase (org-split-string tags ":"))
11462 		(if org-use-tag-inheritance
11467 		     (or (not org-agenda-skip-archived-trees)
11468 			 (not (member org-archive-tag tags-list))))
11469 	    (and (eq action 'agenda) (org-agenda-skip))
11473 		  (org-show-context 'tags-tree))
11474 	      (setq txt (org-format-agenda-item
11477 			  (if org-tags-match-list-sublevels
11479 			  (org-get-heading))
11482 	      (setq marker (org-agenda-new-marker))
11483 	      (org-add-props txt props
11484 		'org-marker marker 'org-hd-marker marker 'org-category category)
11487 	    (or org-tags-match-list-sublevels (org-end-of-subtree t))))))
11489 	       (not org-sparse-tree-open-archived-trees))
11490       (org-hide-archived-subtrees (point-min) (point-max)))
11495 (defun org-tags-sparse-tree (&optional todo-only match)
11502   (org-scan-tags 'sparse-tree (cdr (org-make-tags-matcher match)) todo-only))
11504 (defun org-make-tags-matcher (match)
11510     (setq org-last-tags-completion-table
11511 	  (or org-tag-alist
11512 	      org-last-tags-completion-table))
11514 		 "Match: " 'org-tags-completion-function nil nil nil
11515 		 'org-tags-history)))
11538       (setq orterms (org-split-string tagsmatch "|") orlist nil)
11549 		    (re-p `(org-match-any-p ,(substring tag 1 -1) tags-list))
11566       (setq orterms (org-split-string todomatch "|") orlist nil)
11593 (defun org-match-any-p (re list)
11598 (defvar org-add-colon-after-tag-completion nil)  ;; dynamically skoped param
11599 (defvar org-tags-overlay (org-make-overlay 1 1))
11600 (org-detach-overlay org-tags-overlay)
11602 (defun org-set-tags (&optional arg just-align)
11606   (let* ((re (concat "^" outline-regexp))
11607 	 (current (org-get-tags))
11615 	      (org-set-tags nil t)
11617 	  (message "All tags realigned to column %d" org-tags-column))
11622 	  (setq table (or org-tag-alist (org-get-buffer-tags))
11623 		org-last-tags-completion-table table
11624 		current-tags (org-split-string current ":")
11627 					(nreverse (org-get-tags-at))))
11629 		(if (or (eq t org-use-fast-tag-selection)
11630 			(and org-use-fast-tag-selection
11632 		    (org-fast-tag-selection current-tags inherited-tags table)
11633 		  (let ((org-add-colon-after-tag-completion t))
11634 		    (org-trim
11635 		     (completing-read "Tags: " 'org-tags-completion-function
11636 				      nil nil current 'org-tags-history))))))
11648 	   (concat "\\([ \t]*" (regexp-quote current) "\\)[ \t]*$")
11655 		    c1 (max (1+ c0) (if (> org-tags-column 0)
11656 					org-tags-column
11657 				      (- (- org-tags-column) (length tags))))
11664 (defun org-tags-completion-function (string predicate &optional flag)
11665   (let (s1 s2 rtn (ctable org-last-tags-completion-table)
11677 		  (if (and org-add-colon-after-tag-completion
11690 (defun org-fast-tag-insert (kwd tags face &optional end)
11693 	  (org-add-props (mapconcat 'identity tags " ") nil 'face face)
11696 (defun org-fast-tag-show-exit (flag)
11704       (insert (org-add-props " Next change exits" nil 'face 'org-warning)))))
11706 (defun org-set-current-tags-overlay (current prefix)
11709 	(org-overlay-display org-tags-overlay (concat prefix s)
11711       (put-text-property 0 (length s) 'face '(secondary-selection org-tag) s)
11712       (org-overlay-display org-tags-overlay (concat prefix s)))))
11714 (defun org-fast-tag-selection (current inherited table)
11726 	 (expert (eq org-fast-tag-selection-single-key 'expert))
11730 	 (i-face 'org-done)
11731 	 (c-face 'org-tag)
11734 	 (exit-after-next org-fast-tag-selection-single-key)
11748 	       (if (> (current-column) org-tags-column)
11750 		 (make-string (- org-tags-column (current-column)) ?\ ))))))
11751     (org-move-overlay org-tags-overlay ov-start ov-end)
11759       (org-fast-tag-insert "Inherited" inherited i-face "\n")
11760       (org-fast-tag-insert "Current" current c-face "\n\n")
11761       (org-fast-tag-show-exit exit-after-next)
11762       (org-set-current-tags-overlay current ov-prefix)
11789 	  (setq tg (org-add-props tg nil 'face
11822 		      (org-fast-tag-show-exit
11832 		  (org-detach-overlay org-tags-overlay)
11843 				      (org-get-buffer-tags)))))
11871 		(org-fast-tag-insert "Current" current c-face)
11872 		(org-set-current-tags-overlay current ov-prefix)
11882       (org-detach-overlay org-tags-overlay)
11887 (defun org-get-tags ()
11889   (unless (org-on-heading-p t)
11894 	(org-match-string-no-properties 1)
11897 (defun org-get-buffer-tags ()
11904 	      (org-split-string (org-match-string-no-properties 1) ":"))))
11909 (defvar org-last-changed-timestamp nil)
11910 (defvar org-time-was-given) ; dynamically scoped parameter
11911 (defvar org-ts-what) ; dynamically scoped parameter
11913 (defun org-time-stamp (arg)
11923   (let (org-time-was-given time)
11925      ((and (org-at-timestamp-p)
11926 	   (eq last-command 'org-time-stamp)
11927 	   (eq this-command 'org-time-stamp))
11930 		  (org-read-date arg 'totime)))
11931       (org-insert-time-stamp time (or org-time-was-given arg)))
11932      ((org-at-timestamp-p)
11934 		   (org-read-date arg 'totime)))
11935       (when (org-at-timestamp-p) ; just to get the match data
11937 	(setq org-last-changed-timestamp
11938 	      (org-insert-time-stamp time (or org-time-was-given arg))))
11942 		   (org-read-date arg 'totime)))
11943       (org-insert-time-stamp time (or org-time-was-given arg))))))
11945 (defun org-time-stamp-inactive (&optional arg)
11952   (let (org-time-was-given time)
11953     (setq time (org-read-date arg 'totime))
11954     (org-insert-time-stamp time (or org-time-was-given arg) 'inactive)))
11956 (defvar org-date-ovl (org-make-overlay 1 1))
11957 (org-overlay-put org-date-ovl 'face 'org-warning)
11958 (org-detach-overlay org-date-ovl)
11960 (defvar org-ans1) ; dynamically scoped parameter
11961 (defvar org-ans2) ; dynamically scoped parameter
11963 (defun org-read-date (&optional with-time to-time from-string prompt)
11986        \(setq org-popup-calendar-for-date-prompt nil)
11996   (let* ((org-time-stamp-rounding-minutes
11997 	  (if (equal with-time '(16)) 0 org-time-stamp-rounding-minutes))
11998 	 (ct (org-current-time))
12004 		  (concat org-ts-regexp "--?-?\\=") ; 1-3 minuses
12018 	 ans (org-ans0 "") org-ans1 org-ans2 (deltadays 0)
12023      (org-popup-calendar-for-date-prompt
12030 	  (org-eval-in-calendar nil)
12034 	    (define-key map (kbd "RET") 'org-calendar-select)
12036 	      'org-calendar-select-mouse)
12038 	      'org-calendar-select-mouse)
12041 		(org-eval-in-calendar '(calendar-backward-month 1))))
12044 		(org-eval-in-calendar '(calendar-forward-month 1))))
12047 		(org-eval-in-calendar '(calendar-backward-week 1))))
12050 		(org-eval-in-calendar '(calendar-forward-week 1))))
12053 		(org-eval-in-calendar '(calendar-backward-day 1))))
12056 		(org-eval-in-calendar '(calendar-forward-day 1))))
12059 		(org-eval-in-calendar '(scroll-calendar-left 1))))
12062 		(org-eval-in-calendar '(scroll-calendar-right 1))))
12066 		  (setq org-ans0 (read-string prompt "" nil nil))
12067 ;		  (if (not (string-match "\\S-" org-ans0)) (setq org-ans0 nil))
12068 		  ;; org-ans0: from prompt
12069 		  ;; org-ans1: from mouse click
12070 		  ;; org-ans2: from calendar motion
12071 		  (setq ans (concat org-ans0 " " (or org-ans1 org-ans2))))
12075     (org-detach-overlay org-date-ovl)
12077     (if (string-match "^[ \t]*[-+][0-9]+[ \t]*$" org-ans0)
12106     (if (and (boundp 'org-time-was-given)
12108 	(setq org-time-was-given t))
12116 (defun org-eval-in-calendar (form)
12118 Also, store the cursor date in variable org-ans2."
12125 	(setq org-ans2 (format-time-string "%Y-%m-%d" time))))
12126     (org-move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer))
12129 (defun org-calendar-select ()
12130   "Return to `org-read-date' with the date currently selected.
12131 This is used by `org-read-date' in a temporary keymap for the calendar buffer."
12136       (setq org-ans1 (format-time-string "%Y-%m-%d" time)))
12139 (defun org-insert-time-stamp (time &optional with-hm inactive pre post)
12147   (let ((fmt (funcall (if with-hm 'cdr 'car) org-time-stamp-formats))
12155 (defun org-toggle-time-stamp-overlays ()
12158   (setq org-display-custom-times (not org-display-custom-times))
12159   (unless org-display-custom-times
12163 		 (eq (get-text-property p 'face) 'org-date))
12170   (org-restart-font-lock)
12171   (setq org-table-may-need-update t)
12172   (if org-display-custom-times
12176 (defun org-display-custom-time (beg end)
12179 	       (org-parse-time-string (buffer-substring beg end) t)))
12182 	 (tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats))
12183 	 (time (org-fix-decoded-time t1))
12184 	 (str (org-add-props
12191 			     (list 'org-dwidth t 'org-dwidth-n (- w1 w2))))
12198 (defun org-translate-time (string)
12200 But do this only if the variable `org-display-custom-times' is set."
12201   (when org-display-custom-times
12204 	     (re org-ts-regexp-both)
12210 		     (org-parse-time-string (substring string beg end) t))
12214 			    org-time-stamp-custom-formats)
12215 		time (org-fix-decoded-time t1)
12225 (defun org-fix-decoded-time (time)
12231 (defun org-days-to-time (timestamp-string)
12233   (- (time-to-days (org-time-string-to-time timestamp-string))
12236 (defun org-deadline-close (timestamp-string &optional ndays)
12238   (and (< (org-days-to-time timestamp-string)
12239 	  (or ndays org-deadline-warning-days))
12240        (not (org-entry-is-done-p))))
12242 (defun org-calendar-select-mouse (ev)
12243   "Return to `org-read-date' with the date currently selected.
12244 This is used by `org-read-date' in a temporary keymap for the calendar buffer."
12250       (setq org-ans1 (format-time-string "%Y-%m-%d" time)))
12253 (defun org-check-deadlines (ndays)
12255 A deadline is considered due if it happens within `org-deadline-warning-days'
12256 days from today's date.  If the deadline appears in an entry marked DONE,
12260   (let* ((org-warn-days
12264 	   (t org-deadline-warning-days)))
12266 	 (regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>"))
12268 	  (lambda () (org-deadline-close (match-string 1) org-warn-days))))
12271 	     (org-occur regexp nil callback)
12272 	     org-warn-days)))
12274 (defun org-evaluate-time-range (&optional to-buffer)
12284    (org-clock-update-time-maybe)
12286      (unless (org-at-date-range-p)
12288        (re-search-forward org-tr-regexp (point-at-eol) t))
12289      (if (not (org-at-date-range-p))
12295 	  (time1 (org-time-string-to-time ts1))
12296 	  (time2 (org-time-string-to-time ts2))
12321 	 (message (org-make-tdiff-string y d h m))
12322        (when (org-at-table-p)
12333        (if align (org-table-align))
12336 (defun org-make-tdiff-string (y d h m)
12349 (defun org-time-string-to-time (s)
12350   (apply 'encode-time (org-parse-time-string s)))
12352 (defun org-parse-time-string (s &optional nodefault)
12357   (if (string-match org-ts-regexp1 s)
12369 (defun org-timestamp-up (&optional arg)
12375   (org-timestamp-change (prefix-numeric-value arg)))
12377 (defun org-timestamp-down (&optional arg)
12383   (org-timestamp-change (- (prefix-numeric-value arg))))
12385 (defun org-timestamp-up-day (&optional arg)
12389   (if (and (not (org-at-timestamp-p t))
12390 	   (org-on-heading-p))
12391       (org-todo 'up)
12392     (org-timestamp-change (prefix-numeric-value arg) 'day)))
12394 (defun org-timestamp-down-day (&optional arg)
12398   (if (and (not (org-at-timestamp-p t))
12399 	   (org-on-heading-p))
12400       (org-todo 'down)
12401     (org-timestamp-change (- (prefix-numeric-value arg)) 'day)))
12403 (defsubst org-pos-in-match-range (pos n)
12408 (defun org-at-timestamp-p (&optional inactive-ok)
12411   (let* ((tsr (if inactive-ok org-ts-regexp3 org-ts-regexp2))
12419     (and (boundp 'org-ts-what)
12420 	 (setq org-ts-what
12422 	       ((org-pos-in-match-range pos 2)      'year)
12423 	       ((org-pos-in-match-range pos 3)      'month)
12424 	       ((org-pos-in-match-range pos 7)      'hour)
12425 	       ((org-pos-in-match-range pos 8)      'minute)
12426 	       ((or (org-pos-in-match-range pos 4)
12427 		    (org-pos-in-match-range pos 5)) 'day)
12431 (defun org-timestamp-change (n &optional what)
12438 	org-ts-what
12440     (if (not (org-at-timestamp-p t))
12442     (if (and (not what) (not (eq org-ts-what 'day))
12443 	     org-display-custom-times
12446 	(setq org-ts-what 'day))
12447     (setq org-ts-what (or what org-ts-what)
12448 	  with-hm (<= (abs (- (cdr org-ts-lengths)
12454     (setq time0 (org-parse-time-string ts))
12459 		  (list (+ (if (eq org-ts-what 'minute) n 0) (nth 1 time0)))
12460 		  (list (+ (if (eq org-ts-what 'hour) n 0)   (nth 2 time0)))
12461 		  (list (+ (if (eq org-ts-what 'day) n 0)    (nth 3 time0)))
12462 		  (list (+ (if (eq org-ts-what 'month) n 0)  (nth 4 time0)))
12463 		  (list (+ (if (eq org-ts-what 'year) n 0)   (nth 5 time0)))
12478     (setq org-last-changed-timestamp
12479 	  (org-insert-time-stamp time with-hm inactive))
12480     (org-clock-update-time-maybe)
12483     (if (and org-calendar-follow-timestamp-change
12485 	     (memq org-ts-what '(day month year)))
12486 	(org-recenter-calendar (time-to-days time)))))
12488 (defun org-recenter-calendar (date)
12499 (defun org-goto-calendar (&optional arg)
12504   (let ((tsr org-ts-regexp) diff
12508     (if (or (org-at-timestamp-p)
12514 		   (org-time-string-to-time (match-string 1)))))
12520 (defun org-date-from-calendar ()
12524   (org-timestamp-change 0 'calendar))
12528 (defvar org-clock-marker (make-marker)
12531 (defun org-clock-in ()
12535   (org-clock-out t)
12538       (org-back-to-heading t)
12540       (when (and (looking-at (concat "[ \t]*" org-keyword-time-regexp))
12541 		 (not (equal (match-string 1) org-clock-string)))
12547       (insert org-clock-string " ")
12548       (setq ts (org-insert-time-stamp (current-time) 'with-hm 'inactive))
12549       (move-marker org-clock-marker (point) (buffer-base-buffer))
12552 (defun org-clock-out (&optional fail-quietly)
12557   (if (not (marker-buffer org-clock-marker))
12561       (set-buffer (marker-buffer org-clock-marker))
12562       (goto-char org-clock-marker)
12564       (if (and (looking-at (concat "[ \t]*" org-keyword-time-regexp))
12565 	       (equal (match-string 1) org-clock-string))
12568       (goto-char org-clock-marker)
12570       (setq te (org-insert-time-stamp (current-time) 'with-hm 'inactive))
12571       (setq s (- (time-to-seconds (apply 'encode-time (org-parse-time-string te)))
12572 		 (time-to-seconds (apply 'encode-time (org-parse-time-string ts))))
12578       (move-marker org-clock-marker nil)
12579       (org-add-log-maybe 'clock-out)
12582 (defun org-clock-cancel ()
12585   (if (not (marker-buffer org-clock-marker))
12588     (set-buffer (marker-buffer org-clock-marker))
12589     (goto-char org-clock-marker)
12593 (defvar org-clock-file-total-minutes nil
12594   "Holds the file total time in minutes, after a call to `org-clock-sum'.")
12595   (make-variable-buffer-local 'org-clock-file-total-minutes)
12597 (defun org-clock-sum (&optional tstart tend)
12603 		     org-clock-string
12611     (remove-text-properties (point-min) (point-max) '(:org-clock-minutes t))
12620 		      (apply 'encode-time (org-parse-time-string ts)))
12622 		      (apply 'encode-time (org-parse-time-string te)))
12636 	    (put-text-property (point) (point-at-eol) :org-clock-minutes time))))
12637       (setq org-clock-file-total-minutes (aref ltimes 0)))
12640 (defun org-clock-display (&optional total-only)
12645   (org-remove-clock-overlays)
12647     (org-clock-sum)
12651 	(while (setq p (next-single-property-change (point) :org-clock-minutes))
12653 	  (when (setq time (get-text-property p :org-clock-minutes))
12654 	    (org-put-clock-overlay time (funcall outline-level))))
12655 	(setq h (/ org-clock-file-total-minutes 60)
12656 	      m (- org-clock-file-total-minutes (* 60 h)))
12658 	(when org-remove-highlights-with-change
12659 	  (org-add-hook 'before-change-functions 'org-remove-clock-overlays
12663 (defvar org-clock-overlays nil)
12664 (make-variable-buffer-local 'org-clock-overlays)
12666 (defun org-put-clock-overlay (time &optional level)
12669 This creates a new overlay and stores it in `org-clock-overlays', so that it
12672 	 (l (if level (org-get-legal-level level 0) 0))
12678     (setq ov (org-make-overlay (1- (point)) (point-at-eol))
12681 		     (org-add-props (format "%s %2d:%02d%s"
12687 	(org-overlay-put ov 'display tx)
12688       (org-overlay-put ov 'invisible t)
12689       (org-overlay-put ov 'end-glyph (make-glyph tx)))
12690     (push ov org-clock-overlays)))
12692 (defun org-remove-clock-overlays (&optional beg end noremove)
12697   (unless org-inhibit-highlight-removal
12698     (mapc 'org-delete-overlay org-clock-overlays)
12699     (setq org-clock-overlays nil)
12702 		   'org-remove-clock-overlays 'local))))
12704 (defun org-clock-out-if-current ()
12707   (when (and (equal state org-done-string)
12708 	     (equal (marker-buffer org-clock-marker) (current-buffer))
12709 	     (< (point) org-clock-marker)
12711 		org-clock-marker))
12713     (let ((org-log-done (if (and (listp org-log-done)
12714 				 (member 'clock-out org-log-done))
12716 			  org-log-done)))
12717       (org-clock-out))))
12719 (add-hook 'org-after-todo-state-change-hook
12720 	  'org-clock-out-if-current)
12722 (defun org-check-running-clock ()
12725   (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
12728     (org-clock-out)
12732 (defun org-clock-report ()
12745   (org-remove-clock-overlays)
12746   (unless (org-find-dblock "clocktable")
12747     (org-create-dblock (list :name "clocktable"
12749   (org-update-dblock))
12751 (defun org-clock-update-time-maybe ()
12758     (when (looking-at org-clock-string)
12759       (let ((re (concat "[ \t]*" org-clock-string
12770 		      (apply 'encode-time (org-parse-time-string te)))
12772 		      (apply 'encode-time (org-parse-time-string ts))))
12780 (defun org-clock-special-range (key &optional time as-strings)
12817     (setq fm (cdr org-time-stamp-formats))
12822 (defun org-dblock-write:clocktable (params)
12835       (setq cc (org-clock-special-range block nil t)
12838 		     (apply 'encode-time (org-parse-time-string ts)))))
12840 		     (apply 'encode-time (org-parse-time-string te)))))
12845 			    (format-time-string (cdr org-time-stamp-formats))
12852     (org-clock-sum ts te)
12853     (setq h (/ org-clock-file-total-minutes 60)
12854 	  m (- org-clock-file-total-minutes (* 60 h)))
12859     (while (setq p (next-single-property-change (point) :org-clock-minutes))
12861       (when (setq time (get-text-property p :org-clock-minutes))
12884     (org-table-align)))
12887 (defun org-collect-clock-time-entries ()
12892   (let ((re (concat "^[ \t]*" org-clock-string
12897       (org-clock-sum)
12903 	(setq beg (apply 'encode-time (org-parse-time-string beg))
12904 	      end (apply 'encode-time (org-parse-time-string end)))
12905 	(org-back-to-heading t)
12906 	(setq donep (org-entry-is-done-p))
12908 	      total (or (get-text-property (1+ (point)) :org-clock-minutes) 0)
12913 	      title (org-match-string-no-properties 2))
12915 	(setq closedp (re-search-forward org-closed-time-regexp next t))
12929 (defvar org-agenda-mode-map (make-sparse-keymap)
12930   "Keymap for `org-agenda-mode'.")
12932 (defvar org-agenda-menu) ; defined later in this file.
12933 (defvar org-agenda-follow-mode nil)
12934 (defvar org-agenda-show-log nil)
12935 (defvar org-agenda-redo-command nil)
12936 (defvar org-agenda-mode-hook nil)
12937 (defvar org-agenda-type nil)
12938 (defvar org-agenda-force-single-file nil)
12940 (defun org-agenda-mode ()
12945 \\{org-agenda-mode-map}"
12948   (setq org-agenda-undo-list nil
12949 	org-agenda-pending-undo-list nil)
12950   (setq major-mode 'org-agenda-mode)
12952   (org-set-local 'font-lock-global-modes (list 'not major-mode))
12954   (use-local-map org-agenda-mode-map)
12955   (easy-menu-add org-agenda-menu)
12956   (if org-startup-truncated (setq truncate-lines t))
12957   (org-add-hook 'post-command-hook 'org-agenda-post-command-hook nil 'local)
12958   (org-add-hook 'pre-command-hook 'org-unhighlight nil 'local)
12961     (org-set-local 'buffer-substring-filters
12965   (unless org-agenda-keep-modes
12966     (setq org-agenda-follow-mode org-agenda-start-with-follow-mode
12967 	  org-agenda-show-log nil))
12973       (if (get 'org-agenda-files 'org-restrict)
12976       '(org-edit-agenda-file-list)
12977       (not (get 'org-agenda-files 'org-restrict)))
12979     (mapcar 'org-file-menu-entry (org-agenda-files))))
12980   (org-agenda-set-mode-name)
12983    (list 'org-agenda-mode-hook)))
12985 (substitute-key-definition 'undo 'org-agenda-undo
12986 			   org-agenda-mode-map global-map)
12987 (define-key org-agenda-mode-map "\C-i"     'org-agenda-goto)
12988 (define-key org-agenda-mode-map [(tab)]    'org-agenda-goto)
12989 (define-key org-agenda-mode-map "\C-m"     'org-agenda-switch-to)
12990 (define-key org-agenda-mode-map "\C-k"     'org-agenda-kill)
12991 (define-key org-agenda-mode-map "\C-c$"    'org-agenda-archive)
12992 (define-key org-agenda-mode-map "\C-c\C-x\C-s" 'org-agenda-archive)
12993 (define-key org-agenda-mode-map "$"        'org-agenda-archive)
12994 (define-key org-agenda-mode-map "\C-c\C-o" 'org-agenda-open-link)
12995 (define-key org-agenda-mode-map " "        'org-agenda-show)
12996 (define-key org-agenda-mode-map "\C-c\C-t" 'org-agenda-todo)
12997 (define-key org-agenda-mode-map "\C-c\C-xb" 'org-agenda-tree-to-indirect-buffer)
12998 (define-key org-agenda-mode-map "b"        'org-agenda-tree-to-indirect-buffer)
12999 (define-key org-agenda-mode-map "o"        'delete-other-windows)
13000 (define-key org-agenda-mode-map "L"        'org-agenda-recenter)
13001 (define-key org-agenda-mode-map "t"        'org-agenda-todo)
13002 (define-key org-agenda-mode-map "a"        'org-agenda-toggle-archive-tag)
13003 (define-key org-agenda-mode-map ":"        'org-agenda-set-tags)
13004 (define-key org-agenda-mode-map "."        'org-agenda-goto-today)
13005 (define-key org-agenda-mode-map "d"        'org-agenda-day-view)
13006 (define-key org-agenda-mode-map "w"        'org-agenda-week-view)
13007 (define-key org-agenda-mode-map (org-key 'S-right) 'org-agenda-date-later)
13008 (define-key org-agenda-mode-map (org-key 'S-left) 'org-agenda-date-earlier)
13009 (define-key org-agenda-mode-map [?\C-c ?\C-x (right)] 'org-agenda-date-later)
13010 (define-key org-agenda-mode-map [?\C-c ?\C-x (left)] 'org-agenda-date-earlier)
13012 (define-key org-agenda-mode-map ">" 'org-agenda-date-prompt)
13013 (define-key org-agenda-mode-map "\C-c\C-s" 'org-agenda-schedule)
13014 (define-key org-agenda-mode-map "\C-c\C-d" 'org-agenda-deadline)
13016   (while l (define-key org-agenda-mode-map
13019 (define-key org-agenda-mode-map "f" 'org-agenda-follow-mode)
13020 (define-key org-agenda-mode-map "l" 'org-agenda-log-mode)
13021 (define-key org-agenda-mode-map "D" 'org-agenda-toggle-diary)
13022 (define-key org-agenda-mode-map "g" 'org-agenda-toggle-time-grid)
13023 (define-key org-agenda-mode-map "r" 'org-agenda-redo)
13024 (define-key org-agenda-mode-map "q" 'org-agenda-quit)
13025 (define-key org-agenda-mode-map "x" 'org-agenda-exit)
13026 (define-key org-agenda-mode-map "s" 'org-save-all-org-buffers)
13027 (define-key org-agenda-mode-map "P" 'org-agenda-show-priority)
13028 (define-key org-agenda-mode-map "T" 'org-agenda-show-tags)
13029 (define-key org-agenda-mode-map "n" 'next-line)
13030 (define-key org-agenda-mode-map "p" 'previous-line)
13031 (define-key org-agenda-mode-map "\C-n" 'org-agenda-next-date-line)
13032 (define-key org-agenda-mode-map "\C-p" 'org-agenda-previous-date-line)
13033 (define-key org-agenda-mode-map "," 'org-agenda-priority)
13034 (define-key org-agenda-mode-map "\C-c," 'org-agenda-priority)
13035 (define-key org-agenda-mode-map "i" 'org-agenda-diary-entry)
13036 (define-key org-agenda-mode-map "c" 'org-agenda-goto-calendar)
13038   '(define-key calendar-mode-map org-calendar-to-agenda-key
13039      'org-calendar-goto-agenda))
13040 (define-key org-agenda-mode-map "C" 'org-agenda-convert-date)
13041 (define-key org-agenda-mode-map "m" 'org-agenda-phases-of-moon)
13042 (define-key org-agenda-mode-map "M" 'org-agenda-phases-of-moon)
13043 (define-key org-agenda-mode-map "S" 'org-agenda-sunrise-sunset)
13044 (define-key org-agenda-mode-map "h" 'org-agenda-holidays)
13045 (define-key org-agenda-mode-map "H" 'org-agenda-holidays)
13046 (define-key org-agenda-mode-map "+" 'org-agenda-priority-up)
13047 (define-key org-agenda-mode-map "I" 'org-agenda-clock-in)
13048 (define-key org-agenda-mode-map "O" 'org-agenda-clock-out)
13049 (define-key org-agenda-mode-map "X" 'org-agenda-clock-cancel)
13050 (define-key org-agenda-mode-map "-" 'org-agenda-priority-down)
13051 (define-key org-agenda-mode-map (org-key 'S-up) 'org-agenda-priority-up)
13052 (define-key org-agenda-mode-map (org-key 'S-down) 'org-agenda-priority-down)
13053 (define-key org-agenda-mode-map [?\C-c ?\C-x (up)] 'org-agenda-priority-up)
13054 (define-key org-agenda-mode-map [?\C-c ?\C-x (down)] 'org-agenda-priority-down)
13055 (define-key org-agenda-mode-map [(right)] 'org-agenda-later)
13056 (define-key org-agenda-mode-map [(left)] 'org-agenda-earlier)
13057 (define-key org-agenda-mode-map "\C-c\C-x\C-c" 'org-export-icalendar-combine-agenda-files)
13058 (defvar org-agenda-keymap (copy-keymap org-agenda-mode-map)
13061 (define-key org-agenda-keymap
13062   (if (featurep 'xemacs) [(button2)] [(mouse-2)]) 'org-agenda-goto-mouse)
13063 (define-key org-agenda-keymap
13064   (if (featurep 'xemacs) [(button3)] [(mouse-3)]) 'org-agenda-show-mouse)
13065 (when org-agenda-mouse-1-follows-link
13066   (define-key org-agenda-keymap [follow-link] 'mouse-face))
13067 (easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu"
13071     ["Show" org-agenda-show t]
13072     ["Go To (other window)" org-agenda-goto t]
13073     ["Go To (this window)" org-agenda-switch-to t]
13074     ["Follow Mode" org-agenda-follow-mode
13075      :style toggle :selected org-agenda-follow-mode :active t]
13076     ["Tree to indirect frame" org-agenda-tree-to-indirect-buffer t]
13078     ["Cycle TODO" org-agenda-todo t]
13079     ["Archive subtree" org-agenda-archive t]
13080     ["Delete subtree" org-agenda-kill t]
13082     ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda 'timeline)]
13083     ["Next Dates" org-agenda-later (org-agenda-check-type nil 'agenda)]
13084     ["Previous Dates" org-agenda-earlier (org-agenda-check-type nil 'agenda)]
13087      ["Show all Tags" org-agenda-show-tags t]
13088      ["Set Tags" org-agenda-set-tags t])
13090      ["Schedule" org-agenda-schedule t]
13091      ["Set Deadline" org-agenda-deadline t]
13093      ["Change date +1 day" org-agenda-date-later (org-agenda-check-type nil 'agenda 'timeline)]
13094      ["Change date -1 day" org-agenda-date-earlier (org-agenda-check-type nil 'agenda 'timeline)]
13095      ["Change date to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda 'timeline)])
13097      ["Set Priority" org-agenda-priority t]
13098      ["Increase Priority" org-agenda-priority-up t]
13099      ["Decrease Priority" org-agenda-priority-down t]
13100      ["Show Priority" org-agenda-show-priority t])
13102      ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda 'timeline)]
13103      ["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda 'timeline)]
13104      ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda 'timeline)]
13105      ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda 'timeline)]
13106      ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda 'timeline)]
13107      ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda 'timeline)]
13109      ["Create iCalendar file" org-export-icalendar-combine-agenda-files t])
13112      ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda)
13113       :style radio :selected (equal org-agenda-ndays 1)]
13114      ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda)
13115       :style radio :selected (equal org-agenda-ndays 7)]
13117      ["Show Logbook entries" org-agenda-log-mode
13118       :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda 'timeline)]
13119      ["Include Diary" org-agenda-toggle-diary
13120       :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)]
13121      ["Use Time Grid" org-agenda-toggle-time-grid
13122       :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)])
13123     ["Rebuild buffer" org-agenda-redo t]
13124     ["Save all Org-mode Buffers" org-save-all-org-buffers t]
13126     ["Undo Remote Editing" org-agenda-undo org-agenda-undo-list]
13128     ["Quit" org-agenda-quit t]
13129     ["Exit and Release Buffers" org-agenda-exit t]
13134 (defvar org-agenda-allow-remote-undo t
13136 (defvar org-agenda-undo-list nil
13138 (defvar org-agenda-undo-has-started-in nil
13140 (defvar org-agenda-pending-undo-list nil
13143 (defmacro org-if-unprotected (&rest body)
13144   "Execute BODY if ther is no `org-protected' text property at point."
13146   `(unless (get-text-property (point) 'org-protected)
13149 (defmacro org-with-remote-undo (_buffer &rest _body)
13152   `(let ((_cline (org-current-line))
13160      (when org-agenda-allow-remote-undo
13161        (setq _c1 (org-verify-change-for-undo
13163 	     _c2 (org-verify-change-for-undo
13171 	       org-agenda-undo-list)))))
13173 (defun org-agenda-undo ()
13178   (or org-agenda-allow-remote-undo
13179       (error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo."))
13181       (setq org-agenda-undo-has-started-in nil
13182 	    org-agenda-pending-undo-list org-agenda-undo-list))
13183   (if (not org-agenda-pending-undo-list)
13185   (let* ((entry (pop org-agenda-pending-undo-list))
13189     (org-with-remote-undo rembuf
13195 		(unless (memq buf org-agenda-undo-has-started-in)
13196 		  (push buf org-agenda-undo-has-started-in)
13207 (defun org-verify-change-for-undo (l1 l2)
13215 (defvar org-agenda-restrict nil)
13216 (defvar org-agenda-restrict-begin (make-marker))
13217 (defvar org-agenda-restrict-end (make-marker))
13218 (defvar org-agenda-last-dispatch-buffer nil)
13221 (defun org-agenda (arg)
13226 a     Call `org-agenda-list' to display the agenda for current day or week.
13227 t     Call `org-todo-list' to display the global todo list.
13228 T     Call `org-todo-list' to display the global todo list, select only
13230 m     Call `org-tags-view' to display headlines with tags matching
13236 `org-agenda-custom-commands'.  In particular, specific tags and TODO keyword
13241 next use of \\[org-agenda]) restricted to the current file."
13246 	   (restrict-ok (and bfn (org-mode-p)))
13247 	   (custom org-agenda-custom-commands)
13250       (put 'org-agenda-files 'org-restrict nil)
13251       (setq org-agenda-restrict nil)
13252       (move-marker org-agenda-restrict-begin nil)
13253       (move-marker org-agenda-restrict-end nil)
13255       (setq org-agenda-last-dispatch-buffer (current-buffer))
13278 			  (org-add-props (copy-sequence key)
13291 			      (org-add-props match nil 'face 'org-warning)
13295 		    (org-add-props "1   Restrict call to current buffer      0   Restrict call to region or subtree" nil 'face 'org-table)))
13304 	      (put 'org-agenda-files 'org-restrict (list bfn))
13311 	    (setq org-agenda-restrict t)
13313 	      (if (org-region-active-p)
13315 		    (move-marker org-agenda-restrict-begin (region-beginning))
13316 		    (move-marker org-agenda-restrict-end (region-end)))
13318 		  (org-back-to-heading t)
13319 		  (move-marker org-agenda-restrict-begin (point))
13320 		  (move-marker org-agenda-restrict-end
13321 			       (progn (org-end-of-subtree t)))))))
13330        ((setq entry (assoc (char-to-string c) org-agenda-custom-commands))
13337 		(org-let lprops '(org-tags-view current-prefix-arg match)))
13339 		(org-let lprops '(org-tags-view '(4) match)))
13341 		(org-let lprops '(org-todo-list match)))
13343 		(org-check-for-org-mode)
13344 		(org-let lprops '(org-tags-sparse-tree current-prefix-arg match)))
13346 		(org-check-for-org-mode)
13347 		(org-let lprops
13348 		  '(org-occur (concat "^" outline-regexp "[ \t]*"
13349 				      (regexp-quote match) "\\>"))))
13351 		(org-check-for-org-mode)
13352 		(org-let lprops '(org-occur match)))
13354 		(org-let lprops '(funcall type match)))
13356 	  (org-run-agenda-series (cddr entry))))
13357        ((equal c ?C) (customize-variable 'org-agenda-custom-commands))
13358        ((equal c ?a) (call-interactively 'org-agenda-list))
13359        ((equal c ?t) (call-interactively 'org-todo-list))
13360        ((equal c ?T) (org-call-with-arg 'org-todo-list (or arg '(4))))
13361        ((equal c ?m) (call-interactively 'org-tags-view))
13362        ((equal c ?M) (org-call-with-arg 'org-tags-view (or arg '(4))))
13366 	(org-call-with-arg 'org-timeline arg))
13367        ((equal c ?#) (call-interactively 'org-agenda-list-stuck-projects))
13368        ((equal c ?!) (customize-variable 'org-stuck-projects))
13371 (defun org-run-agenda-series (series)
13372   (org-prepare-agenda)
13373   (let* ((org-agenda-multi t)
13374 	 (redo (list 'org-run-agenda-series (list 'quote series)))
13383 	(call-interactively 'org-agenda-list))
13385 	(call-interactively 'org-todo-list))
13387 	(call-interactively 'org-agenda-list-stuck-projects))
13389 	(org-let2 gprops lprops
13390 		  '(org-tags-view current-prefix-arg match)))
13392 	(org-let2 gprops lprops
13393 		  '(org-tags-view '(4) match)))
13395 	(org-let2 gprops lprops
13396 		  '(org-todo-list match)))
13398 	(org-let2 gprops lprops
13402     (setq org-agenda-redo-command redo)
13404   (org-finalize-agenda))
13407 (defmacro org-batch-agenda (cmd-key &rest parameters)
13409 CMD-KEY is a string that is also a key in `org-agenda-custom-commands'.
13416       (eval (list 'let (nreverse pars) '(org-agenda nil))))
13420 (defmacro org-no-read-only (&rest body)
13424 (defun org-check-for-org-mode ()
13425   "Make sure current buffer is in org-mode.  Error if not."
13426   (or (org-mode-p)
13427       (error "Cannot execute org-mode agenda command on buffer in %s."
13430 (defun org-fit-agenda-window ()
13432   (and (memq org-agenda-window-setup '(reorganize-frame))
13439 (defun org-agenda-files (&optional unrestricted)
13444    ((and (not unrestricted) (get 'org-agenda-files 'org-restrict)))
13445    ((stringp org-agenda-files) (org-read-agenda-file-list))
13446    ((listp org-agenda-files) org-agenda-files)
13447    (t (error "Invalid value of `org-agenda-files'"))))
13449 (defun org-edit-agenda-file-list ()
13452 `org-agenda-files', or it visits the file that is holding the list.  In the
13456   (if (stringp org-agenda-files)
13458 	(find-file org-agenda-files)
13459 	(org-set-local 'org-window-configuration cw)
13460 	(org-add-hook 'after-save-hook
13463 			 (prog1 org-window-configuration
13465 			(org-install-agenda-files-menu)
13470     (customize-variable 'org-agenda-files)))
13472 (defun org-store-new-agenda-file-list (list)
13474   (if (stringp org-agenda-files)
13475       (let ((f org-agenda-files) b)
13479     (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
13480       (setq org-agenda-files list)
13481       (customize-save-variable 'org-agenda-files org-agenda-files))))
13483 (defun org-read-agenda-file-list ()
13485   (when (stringp org-agenda-files)
13487       (insert-file-contents org-agenda-files)
13488       (org-split-string (buffer-string) "[ \t\r\n]*?[\r\n][ \t\r\n]*"))))
13492 (defun org-cycle-agenda-files ()
13493   "Cycle through the files in `org-agenda-files'.
13497   (let* ((fs (org-agenda-files t))
13511 (defun org-agenda-file-to-end ()
13516   (org-agenda-file-to-front 'to-end))
13518 (defun org-agenda-file-to-front (&optional to-end)
13526 			    (org-agenda-files t)))
13535     (org-store-new-agenda-file-list (mapcar 'cdr file-alist))
13536     (org-install-agenda-files-menu)
13540 (defun org-remove-file (&optional file)
13541   "Remove current file from the list of files in variable `org-agenda-files'.
13553 			   (org-agenda-files t)))))
13554     (if (not (= (length files) (length (org-agenda-files t))))
13556 	  (org-store-new-agenda-file-list files)
13557 	  (org-install-agenda-files-menu)
13561 (defun org-file-menu-entry (file)
13564 (defun org-check-agenda-file (file)
13572 	(org-remove-file file)
13578 (defvar org-agenda-multi nil)  ; dynammically scoped
13579 (defvar org-agenda-buffer-name "*Org Agenda*")
13580 (defvar org-pre-agenda-window-conf nil)
13581 (defun org-prepare-agenda ()
13582   (if org-agenda-multi
13589     (org-agenda-maybe-reset-markers 'force)
13590     (org-prepare-agenda-buffers (org-agenda-files))
13591     (let* ((abuf (get-buffer-create org-agenda-buffer-name))
13596        ((not (setq org-pre-agenda-window-conf (current-window-configuration))))
13597        ((equal org-agenda-window-setup 'current-window)
13599        ((equal org-agenda-window-setup 'other-window)
13601        ((equal org-agenda-window-setup 'other-frame)
13603        ((equal org-agenda-window-setup 'reorganize-frame)
13608     (org-agenda-mode))
13611 (defun org-finalize-agenda ()
13613   (unless org-agenda-multi
13614     (org-agenda-align-tags)
13618 	(while (org-activate-bracket-links (point-max))
13620 			       '(face org-link))))
13621       (run-hooks 'org-finalize-agenda-hook))))
13623 (defun org-prepare-agenda-buffers (files)
13626   (let ((pa '(:org-archived t))
13627 	(pc '(:org-comment t))
13628 	(pall '(:org-archived t :org-comment t))
13629 	(rea (concat ":" org-archive-tag ":"))
13634 	  (org-check-agenda-file file)
13635 	  (set-buffer (org-get-agenda-file-buffer file))
13640 	    (when org-agenda-skip-archived-trees
13643 		(if (org-on-heading-p t)
13644 		    (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
13646 	    (setq re (concat "^\\*+ +" org-comment-string "\\>"))
13649 	       (match-beginning 0) (org-end-of-subtree t) pc)))
13652 (defvar org-agenda-skip-function nil
13661 (defun org-agenda-skip ()
13666     (and org-agenda-skip-archived-trees
13667 	 (get-text-property p :org-archived)
13668 	 (org-end-of-subtree t)
13670     (and (get-text-property p :org-comment)
13671 	 (org-end-of-subtree t)
13674     (when (and (functionp org-agenda-skip-function)
13677 			    (funcall org-agenda-skip-function)))))
13681 (defvar org-agenda-markers nil
13682   "List of all currently active markers created by `org-agenda'.")
13683 (defvar org-agenda-last-marker-time (time-to-seconds (current-time))
13686 (defun org-agenda-new-marker (&optional pos)
13691     (setq org-agenda-last-marker-time (time-to-seconds (current-time)))
13692     (push m org-agenda-markers)
13695 (defun org-agenda-maybe-reset-markers (&optional force)
13696   "Reset markers created by `org-agenda'.  But only if they are old enough."
13697   (if (or (and force (not org-agenda-multi))
13699 		org-agenda-last-marker-time)
13701       (while org-agenda-markers
13702 	(move-marker (pop org-agenda-markers) nil))))
13704 (defvar org-agenda-new-buffers nil
13707 (defun org-get-agenda-file-buffer (file)
13710   (let ((buf (org-find-base-buffer-visiting file)))
13715       (if buf (push buf org-agenda-new-buffers))
13718 (defun org-release-buffers (blist)
13731 (defvar org-category-table nil)
13732 (defun org-get-category-table ()
13738 	(push (cons (point) (org-trim (match-string 2))) tbl)))
13741 (defun org-get-category (&optional pos)
13743   (if (not org-category-table)
13745        ((null org-category)
13746 	(setq org-category
13751        ((symbolp org-category) (symbol-name org-category))
13752        (t org-category))
13753     (let ((tbl org-category-table)
13757       (or (cdar tbl) (cdr (nth (1- (length org-category-table))
13758 			       org-category-table))))))
13761 (defun org-timeline (&optional include-all)
13762   "Show a time-sorted view of the entries in the current org file.
13770   (org-compile-prefix-format 'timeline)
13771   (org-set-sorting-strategy 'timeline)
13774 	 (doclosed org-agenda-show-log)
13777 	 (beg (if (org-region-active-p) (region-beginning) (point-min)))
13778 	 (end (if (org-region-active-p) (region-end) (point-max)))
13779 	 (day-numbers (org-get-all-dates beg end 'no-ranges
13781 					 org-timeline-show-empty-dates))
13786     (setq org-agenda-redo-command
13789 		(list 'org-timeline (list 'quote include-all))))
13795     (org-prepare-agenda)
13804 	    (put-text-property s (1- (point)) 'face 'org-level-3))
13815 		       (apply 'org-agenda-get-day-entries
13817 	(if (or rtn (equal d today) org-timeline-show-empty-dates)
13824 ;	      (insert (format-time-string org-agenda-date-format
13827 	      (put-text-property s (1- (point)) 'face 'org-level-3)
13828 	      (put-text-property s (1- (point)) 'org-date-line t)
13830 		  (put-text-property s (1- (point)) 'org-today t))
13831 	      (and rtn (insert (org-finalize-agenda-entries rtn) "\n"))
13834     (goto-char (or (text-property-any (point-min) (point-max) 'org-today t)
13836     (add-text-properties (point-min) (point-max) '(org-agenda-type timeline))
13837     (org-finalize-agenda)
13840 (defun org-get-all-dates (beg end &optional no-ranges force-today inactive empty)
13847   (let ((re (if inactive org-ts-regexp-both org-ts-regexp))
13854 	(setq day (time-to-days (org-time-string-to-time
13859 	(while (re-search-forward org-tr-regexp end t)
13862 		day1 (time-to-days (org-time-string-to-time ts1))
13863 		day2 (time-to-days (org-time-string-to-time ts2)))
13882 (defvar org-agenda-overriding-arguments nil) ; dynamically scoped parameter
13883 (defvar org-agenda-last-arguments nil
13884   "The arguments of the previous call to org-agenda")
13885 (defvar org-starting-day nil) ; local variable in the agenda buffer
13886 (defvar org-include-all-loc nil) ; local variable
13890 (defun org-agenda-list (&optional include-all start-day ndays)
13891   "Produce a weekly view from all files in variable `org-agenda-files'.
13897 on the days are also shown.  See the variable `org-log-done' for how
13900 given in `org-agenda-start-on-weekday'.
13901 NDAYS defaults to `org-agenda-ndays'."
13903   (if org-agenda-overriding-arguments
13904       (setq include-all (car org-agenda-overriding-arguments)
13905 	    start-day (nth 1 org-agenda-overriding-arguments)
13906 	    ndays (nth 2 org-agenda-overriding-arguments)))
13907   (setq org-agenda-last-arguments (list include-all start-day ndays))
13908   (org-compile-prefix-format 'agenda)
13909   (org-set-sorting-strategy 'agenda)
13911   (let* ((org-agenda-start-on-weekday
13913 		  (and (null ndays) (equal 1 org-agenda-ndays)))
13914 	      nil org-agenda-start-on-weekday))
13915 	 (thefiles (org-agenda-files))
13919 	 (start (if (or (null org-agenda-start-on-weekday)
13920 			(< org-agenda-ndays 7))
13924 			 (n1 org-agenda-start-on-weekday)
13930     (setq org-agenda-redo-command
13931 	  (list 'org-agenda-list (list 'quote include-all) start-day ndays))
13933     (setq ndays (or ndays org-agenda-ndays)
13939     (org-prepare-agenda)
13940     (org-set-local 'org-starting-day (car day-numbers))
13941     (org-set-local 'org-include-all-loc include-all)
13942     (when (and (or include-all org-agenda-include-all-todo)
13948 	  (org-check-agenda-file file)
13950 		rtn (org-agenda-get-day-entries
13956 			     (list 'face 'org-level-3))
13957 	(insert (org-finalize-agenda-entries rtnall) "\n")))
13960     (add-text-properties s (1- (point)) (list 'face 'org-level-3))
13973 	  (org-check-agenda-file file)
13974 	  (if org-agenda-show-log
13975 	      (setq rtn (org-agenda-get-day-entries
13977 			 :deadline :scheduled :timestamp :closed))
13978 	    (setq rtn (org-agenda-get-day-entries
13980 		       :deadline :scheduled :timestamp)))
13982       (if org-agenda-include-diary
13985 	    (setq rtn (org-get-entries-from-diary date))
13987       (if (or rtnall org-agenda-show-all-dates)
13995 ;	    (insert (format-time-string org-agenda-date-format
13997 	    (put-text-property s (1- (point)) 'face 'org-level-3)
13998 	    (put-text-property s (1- (point)) 'org-date-line t)
13999 	    (if todayp (put-text-property s (1- (point)) 'org-today t))
14001 			(org-finalize-agenda-entries
14002 			 (org-agenda-add-time-grid-maybe
14007     (org-fit-agenda-window)
14017     (add-text-properties (point-min) (point-max) '(org-agenda-type agenda))
14018     (org-finalize-agenda)
14024 (defvar org-select-this-todo-keyword nil)
14025 (defvar org-last-arg nil)
14028 (defun org-todo-list (arg)
14033 `org-todo-keywords'."
14036   (org-compile-prefix-format 'todo)
14037   (org-set-sorting-strategy 'todo)
14040 	 (kwds org-todo-keywords)
14042 	 (org-select-this-todo-keyword
14045                  (nth (1- arg) org-todo-keywords))))
14048       (setq org-select-this-todo-keyword
14049 	    (completing-read "Keyword: " (mapcar 'list org-todo-keywords)
14051     (and (equal 0 arg) (setq org-select-this-todo-keyword nil))
14052     (org-prepare-agenda)
14053     (org-set-local 'org-last-arg arg)
14054     (org-set-local 'org-todo-keywords kwds)
14055     (setq org-agenda-redo-command
14056 	  '(org-todo-list (or current-prefix-arg org-last-arg)))
14057     (setq files (org-agenda-files)
14061 	(org-check-agenda-file file)
14062 	(setq rtn (org-agenda-get-day-entries file date :todo))
14064     (if org-agenda-overriding-header
14065 	(insert (org-add-props (copy-sequence org-agenda-overriding-header)
14066 		    nil 'face 'org-level-3) "\n")
14069 			   (list 'face 'org-level-3))
14071       (insert (or org-select-this-todo-keyword "ALL") "\n")
14072       (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14074       (unless org-agenda-multi
14080 		      org-todo-keywords " "))
14082       (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14084       (insert (org-finalize-agenda-entries rtnall) "\n"))
14086     (org-fit-agenda-window)
14087     (add-text-properties (point-min) (point-max) '(org-agenda-type todo))
14088     (org-finalize-agenda)
14094 (defun org-tags-view (&optional todo-only match)
14095   "Show all headlines for all `org-agenda-files' matching a TAGS criterion.
14098   (org-compile-prefix-format 'tags)
14099   (org-set-sorting-strategy 'tags)
14100   (let* ((org-tags-match-list-sublevels
14101 	  (if todo-only t org-tags-match-list-sublevels))
14105     (setq matcher (org-make-tags-matcher match)
14107     (org-prepare-agenda)
14108     (setq org-agenda-redo-command
14109 	  (list 'org-tags-view (list 'quote todo-only)
14111     (setq files (org-agenda-files)
14115 	(org-check-agenda-file file)
14117 			 (org-get-agenda-file-buffer file)
14122 		       (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14125 	    (unless (org-mode-p)
14126 	      (error "Agenda file %s is not in `org-mode'" file))
14127 	    (setq org-category-table (org-get-category-table))
14130 		(if org-agenda-restrict
14131 		    (narrow-to-region org-agenda-restrict-begin
14132 				      org-agenda-restrict-end)
14134 		(setq rtn (org-scan-tags 'agenda matcher todo-only))
14136     (if org-agenda-overriding-header
14137 	(insert (org-add-props (copy-sequence org-agenda-overriding-header)
14138 		    nil 'face 'org-level-3) "\n")
14141 			   (list 'face 'org-level-3))
14144       (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14146       (unless org-agenda-multi
14148       (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14150       (insert (org-finalize-agenda-entries rtnall) "\n"))
14152     (org-fit-agenda-window)
14153     (add-text-properties (point-min) (point-max) '(org-agenda-type tags))
14154     (org-finalize-agenda)
14159 (defvar org-agenda-skip-regexp nil
14162 used by user-defined selections using `org-agenda-skip-function'.")
14164 (defvar org-agenda-overriding-header nil
14167 (defun org-agenda-skip-subtree-when-regexp-matches ()
14168   "Checks if the current subtree contains match for `org-agenda-skip-regexp'.
14171 `org-agenda-skip-function' for the duration of a command."
14173     (let ((end (save-excursion (org-end-of-subtree t)))
14176 	(setq skip (re-search-forward org-agenda-skip-regexp end t)))
14179 (defun org-agenda-list-stuck-projects (&rest ignore)
14183 `org-stuck-projects'.
14186   (let* ((org-agenda-skip-function 'org-agenda-skip-subtree-when-regexp-matches)
14187 	 (org-agenda-overriding-header "List of stuck projects: ")
14188 	 (matcher (nth 0 org-stuck-projects))
14189 	 (todo (nth 1 org-stuck-projects))
14190 	 (tags (nth 2 org-stuck-projects))
14198     (setq org-agenda-skip-regexp
14205     (org-tags-view nil matcher)
14206     (with-current-buffer org-agenda-buffer-name
14207       (setq org-agenda-redo-command
14208 	    '(org-agenda-list-stuck-projects
14209 	      (or current-prefix-arg org-last-arg))))))
14213 (defvar org-disable-agenda-to-diary nil)          ;Dynamically-scoped param.
14215 (defun org-get-entries-from-diary (date)
14220 	  (cons 'org-diary-default-entry list-diary-entries-hook))
14222 	 (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
14224 	 (org-disable-agenda-to-diary t))
14236 	  (org-agenda-cleanup-fancy-diary)
14244       (setq entries (org-split-string entries "\n"))
14248 	       (setq x (org-format-agenda-item "" x "Diary" nil 'time))
14250 	       (org-add-props x (text-properties-at (1- (length x)) x)))
14253 (defun org-agenda-cleanup-fancy-diary ()
14256 the dummy entry installed by `org-mode' to ensure non-empty diary for each
14280      (defadvice add-to-diary-list (before org-mark-diary-entry activate)
14282        (if (and org-disable-agenda-to-diary  ;; called from org-agenda
14285 	   (setq string (org-modify-diary-entry-string string))))))
14287 (defun org-modify-diary-entry-string (string)
14288   "Add text properties to string, allowing org-mode to act on it."
14289   (org-add-props string nil
14291     'keymap org-agenda-keymap
14294     'org-agenda-diary-link t
14295     'org-marker (org-agenda-new-marker (point-at-bol))))
14297 (defun org-diary-default-entry ()
14301   (when org-disable-agenda-to-diary
14308 (defun org-diary (&rest args)
14309   "Return diary information from org-files.
14311 It accesses org files and extracts information from those files to be
14319    :deadline     List any deadlines past due, or due within
14320 		 `org-deadline-warning-days'.  The listing occurs only
14328    :todo         List all TODO items from the org-file.  This may be a
14335    &%%(org-diary) ~/path/to/some/orgfile.org
14337 Use a separate line for each org file to check.  Or, if you omit the file name,
14338 all files listed in `org-agenda-files' will be checked automatically:
14340    &%%(org-diary)
14343 arguments (:deadline :scheduled :timestamp) are used.  So the example above may
14346    &%%(org-diary :deadline :timestamp :scheduled)
14350 function from a program - use `org-agenda-get-day-entries' instead."
14351   (org-agenda-maybe-reset-markers)
14352   (org-compile-prefix-format 'agenda)
14353   (org-set-sorting-strategy 'agenda)
14354   (setq args (or args '(:deadline :scheduled :timestamp)))
14357 		  (org-agenda-files t)))
14359     ;; If this is called during org-agenda, don't return any entries to
14361     (if org-disable-agenda-to-diary (setq files nil))
14363       (setq rtn (apply 'org-agenda-get-day-entries file date args))
14366 	(concat (org-finalize-agenda-entries results) "\n"))))
14370 (defun org-agenda-get-day-entries (file date &rest args)
14371   "Does the work for `org-diary' and `org-agenda'.
14375 the documentation of `org-diary'."
14376   (setq args (or args '(:deadline :scheduled :timestamp)))
14377   (let* ((org-startup-folded nil)
14378 	 (org-startup-align-all-tables nil)
14380 		     (org-get-agenda-file-buffer file)
14385 	(list (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14387 	(unless (org-mode-p)
14388 	  (error "Agenda file %s is not in `org-mode'" file))
14389 	(setq org-category-table (org-get-category-table))
14393 	      (if org-agenda-restrict
14394 		  (narrow-to-region org-agenda-restrict-begin
14395 				    org-agenda-restrict-end)
14402 		  (setq rtn (org-agenda-get-todos))
14405 		  (setq rtn (org-agenda-get-blocks))
14407 		  (setq rtn (org-agenda-get-timestamps))
14410 		  (setq rtn (org-agenda-get-scheduled))
14413 		  (setq rtn (org-agenda-get-closed))
14415 		 ((and (eq arg :deadline)
14417 		  (setq rtn (org-agenda-get-deadlines))
14421 (defun org-entry-is-done-p ()
14425 	 (looking-at org-nl-done-regexp))))
14427 (defun org-at-date-range-p (&optional inactive-ok)
14435 	(and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
14440 	(and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
14445 (defun org-agenda-get-todos ()
14448 		      'done-face 'org-done
14449 		      'org-not-done-regexp org-not-done-regexp
14451 		      'keymap org-agenda-keymap
14453 		      (format "mouse-2 or RET jump to org file %s"
14455 	 (regexp (concat "[\n\r]\\*+ *\\("
14456 			 (if org-select-this-todo-keyword
14457 			     (concat "\\<\\(" org-select-this-todo-keyword
14459 			   org-not-done-regexp)
14464     (while (re-search-forward regexp nil t)
14469 	  (when (or (and org-agenda-todo-ignore-scheduled (goto-char beg)
14470 			 (re-search-forward org-scheduled-time-regexp end t))
14471 		    (and org-agenda-todo-ignore-deadlines (goto-char beg)
14472 			 (re-search-forward org-deadline-time-regexp end t)
14473 			 (org-deadline-close (match-string 1))))
14475 	    (or org-agenda-todo-list-sublevels (org-end-of-subtree 'invisible))
14478 	(org-agenda-skip)
14480 	(setq marker (org-agenda-new-marker (1+ (match-beginning 0)))
14481 	      category (org-get-category)
14482 	      tags (org-get-tags-at (point))
14483 	      txt (org-format-agenda-item "" (match-string 1) category tags)
14485 	      (+ (org-get-priority txt)
14486 		 (if org-todo-kwd-priority-p
14487 		     (- org-todo-kwd-max-priority -2
14489 			 (member (match-string 2) org-todo-keywords)))
14491 	(org-add-props txt props
14492 	  'org-marker marker 'org-hd-marker marker
14493 	  'priority priority 'org-category category)
14495 	(if org-agenda-todo-list-sublevels
14497 	  (org-end-of-subtree 'invisible))))
14500 (defconst org-agenda-no-heading-message
14503 (defun org-agenda-get-timestamps ()
14506 		      'org-not-done-regexp org-not-done-regexp
14508 		      'keymap org-agenda-keymap
14510 		      (format "mouse-2 or RET jump to org file %s"
14512 	 (regexp (regexp-quote
14515 		    (car org-time-stamp-formats)
14522     (while (re-search-forward regexp nil t)
14524 	(and (save-match-data (org-at-date-range-p)) (throw :skip nil))
14525 	(org-agenda-skip)
14526 	(setq marker (org-agenda-new-marker (match-beginning 0))
14527 	      category (org-get-category (match-beginning 0))
14530 					    org-ds-keyword-length))
14533 	      deadlinep (string-match org-deadline-regexp tmp)
14534 	      scheduledp (string-match org-scheduled-regexp tmp)
14535 	      donep (org-entry-is-done-p))
14536 	(and org-agenda-skip-scheduled-if-done
14546 		(setq hdmarker (org-agenda-new-marker)
14547 		      tags (org-get-tags-at))
14549 		(setq txt (org-format-agenda-item
14554 	    (setq txt org-agenda-no-heading-message))
14555 	  (setq priority (org-get-priority txt))
14556 	  (org-add-props txt props
14557 	    'org-marker marker 'org-hd-marker hdmarker)
14559 	      (org-add-props txt nil
14560 		'face (if donep 'org-done 'org-warning)
14561 		'undone-face 'org-warning 'done-face 'org-done
14562 		'org-category category 'priority (+ 100 priority))
14564 		(org-add-props txt nil
14565 		  'face 'org-scheduled-today
14566 		  'undone-face 'org-scheduled-today 'done-face 'org-done
14567 		  'org-category category 'priority (+ 99 priority))
14568 	      (org-add-props txt nil 'priority priority 'org-category category)))
14573 (defun org-agenda-get-closed ()
14576 		      'org-not-done-regexp org-not-done-regexp
14577 		      'keymap org-agenda-keymap
14579 		      (format "mouse-2 or RET jump to org file %s"
14581 	 (regexp (concat
14582 		  "\\<\\(" org-closed-string "\\|" org-clock-string "\\) *\\["
14583 		  (regexp-quote
14586 		     (car org-time-stamp-formats)
14593     (while (re-search-forward regexp nil t)
14595 	(org-agenda-skip)
14596 	(setq marker (org-agenda-new-marker (match-beginning 0))
14597 	      closedp (equal (match-string 1) org-closed-string)
14598 	      category (org-get-category (match-beginning 0))
14600 	      ;; donep (org-entry-is-done-p)
14609 		(setq hdmarker (org-agenda-new-marker)
14610 		      tags (org-get-tags-at))
14612 		(setq txt (org-format-agenda-item
14615 	    (setq txt org-agenda-no-heading-message))
14617 	  (org-add-props txt props
14618 	    'org-marker marker 'org-hd-marker hdmarker 'face 'org-done
14619 	    'priority priority 'org-category category
14620 	    'undone-face 'org-warning 'done-face 'org-done)
14625 (defun org-agenda-get-deadlines ()
14626   "Return the deadline information for agenda display."
14627   (let* ((wdays org-deadline-warning-days)
14629 		      'org-not-done-regexp org-not-done-regexp
14630 		      'keymap org-agenda-keymap
14632 		      (format "mouse-2 or RET jump to org file %s"
14634 	 (regexp org-deadline-time-regexp)
14640     (while (re-search-forward regexp nil t)
14642 	(org-agenda-skip)
14645 		  (org-time-string-to-time (match-string 1)))
14647 	;; When to show a deadline in the calendar:
14652 	      (setq category (org-get-category))
14657 		    (setq tags (org-get-tags-at pos1))
14662 		    (if (string-match org-looking-at-done-regexp head)
14664 		      (setq txt (org-format-agenda-item
14666 		(setq txt org-agenda-no-heading-message))
14668 		(setq face (cond ((<= diff 0) 'org-warning)
14669 				 ((<= diff 5) 'org-upcoming-deadline)
14671 		(org-add-props txt props
14672 		  'org-marker (org-agenda-new-marker pos)
14673 		  'org-hd-marker (org-agenda-new-marker pos1)
14674 		  'priority (+ (- 10 diff) (org-get-priority txt))
14675 		  'org-category category
14676 		  'face face 'undone-face face 'done-face 'org-done)
14680 (defun org-agenda-get-scheduled ()
14682   (let* ((props (list 'face 'org-scheduled-previously
14683 		      'org-not-done-regexp org-not-done-regexp
14684 		      'undone-face 'org-scheduled-previously
14685 		      'done-face 'org-done
14687 		      'keymap org-agenda-keymap
14689 		      (format "mouse-2 or RET jump to org file %s"
14691 	 (regexp org-scheduled-time-regexp)
14697     (while (re-search-forward regexp nil t)
14699 	(org-agenda-skip)
14702 		  (org-time-string-to-time (match-string 1)))
14708 	      (setq category (org-get-category))
14713 		    (setq tags (org-get-tags-at))
14717 		    (if (string-match org-looking-at-done-regexp head)
14719 		      (setq txt (org-format-agenda-item
14722 		(setq txt org-agenda-no-heading-message))
14724 		(org-add-props txt props
14725 		  'org-marker (org-agenda-new-marker pos)
14726 		  'org-hd-marker (org-agenda-new-marker pos1)
14727 		  'priority (+ (- 5 diff) (org-get-priority txt))
14728 		  'org-category category)
14732 (defun org-agenda-get-blocks ()
14735 		      'org-not-done-regexp org-not-done-regexp
14737 		      'keymap org-agenda-keymap
14739 		      (format "mouse-2 or RET jump to org file %s"
14741 	 (regexp org-tr-regexp)
14745     (while (re-search-forward regexp nil t)
14747 	(org-agenda-skip)
14752 	      d1 (time-to-days (org-time-string-to-time s1))
14753 	      d2 (time-to-days (org-time-string-to-time s2)))
14758 	      (setq marker (org-agenda-new-marker (point)))
14759 	      (setq category (org-get-category))
14762 		    (setq hdmarker (org-agenda-new-marker (match-end 1)))
14764 		    (setq tags (org-get-tags-at))
14766 		    (setq txt (org-format-agenda-item
14771 		(setq txt org-agenda-no-heading-message))
14772 	      (org-add-props txt props
14773 		'org-marker marker 'org-hd-marker hdmarker
14774 		'priority (org-get-priority txt) 'org-category category)
14783 (defconst org-plain-time-of-day-regexp
14798 (defconst org-stamp-time-of-day-regexp
14811 (defvar org-prefix-has-time nil
14812   "A flag, set by `org-compile-prefix-format'.
14814 (defvar org-prefix-has-tag nil
14815   "A flag, set by `org-compile-prefix-format'.
14818 (defun org-format-agenda-item (extra txt &optional category tags dotime
14830 `org-agenda-change-all-lines'.  TAGS can be the tags of the headline."
14835 			 org-category
14843 	   (time-of-day (and dotime (org-get-time-of-day ts)))
14845       (when (and dotime time-of-day org-prefix-has-time)
14847 	(when (or (setq stamp (string-match org-stamp-time-of-day-regexp ts))
14848 		  (setq plain (string-match org-plain-time-of-day-regexp ts)))
14856 	  (if (and org-agenda-remove-times-when-in-prefix (or stamp plain)
14857 		   (string-match (concat (regexp-quote s0) " *") txt)
14858 		   (if (eq org-agenda-remove-times-when-in-prefix 'beg)
14863 	(if s1 (setq s1 (org-get-time-of-day s1 'string t)))
14864 	(if s2 (setq s2 (org-get-time-of-day s2 'string t))))
14868 	(if (or (eq org-agenda-remove-tags-when-in-prefix t)
14869 		(and org-agenda-remove-tags-when-in-prefix
14870 		     org-prefix-has-tag))
14887 	(setq rtn (concat (eval org-prefix-format-compiled) txt)))
14890       (org-add-props rtn nil
14891 	'org-category (downcase category) 'tags tags
14896 (defvar org-agenda-sorting-strategy)
14897 (defvar org-agenda-sorting-strategy-selected nil)
14899 (defun org-agenda-add-time-grid-maybe (list ndays todayp)
14901     (cond ((not org-agenda-use-time-grid) (throw 'exit list))
14902 	  ((and todayp (member 'today (car org-agenda-time-grid))))
14903 	  ((and (= ndays 1) (member 'daily (car org-agenda-time-grid))))
14904 	  ((member 'weekly (car org-agenda-time-grid)))
14909 	   (string (nth 1 org-agenda-time-grid))
14910 	   (gridtimes (nth 2 org-agenda-time-grid))
14911 	   (req (car org-agenda-time-grid))
14920 	  (push (org-format-agenda-item
14925 	   1 (length (car new)) 'face 'org-time-grid (car new))))
14926       (if (member 'time-up org-agenda-sorting-strategy-selected)
14930 (defun org-compile-prefix-format (key)
14933 `org-prefix-format-compiled'."
14934   (setq org-prefix-has-time nil org-prefix-has-tag nil)
14936 	    ((stringp org-agenda-prefix-format)
14937 	     org-agenda-prefix-format)
14938 	    ((assq key org-agenda-prefix-format)
14939 	     (cdr (assq key org-agenda-prefix-format)))
14951       (if (equal var 'time) (setq org-prefix-has-time t))
14952       (if (equal var 'tag)  (setq org-prefix-has-tag  t))
14963     (setq org-prefix-format-compiled `(format ,s ,@vars))))
14965 (defun org-set-sorting-strategy (key)
14966   (if (symbolp (car org-agenda-sorting-strategy))
14968       (setq org-agenda-sorting-strategy-selected org-agenda-sorting-strategy)
14969     (setq org-agenda-sorting-strategy-selected
14970 	  (or (cdr (assq key org-agenda-sorting-strategy))
14971 	      (cdr (assq 'agenda org-agenda-sorting-strategy))
14974 (defun org-get-time-of-day (s &optional string mod24)
15003 (defun org-finalize-agenda-entries (list &optional nosort)
15005   (setq list (mapcar 'org-agenda-highlight-todo list))
15008     (mapconcat 'identity (sort list 'org-entries-lessp) "\n")))
15010 (defun org-agenda-highlight-todo (x)
15015 	  (setq re (get-text-property (point) 'org-not-done-regexp))
15019 				    '(face org-todo))))
15020       (setq re (concat (get-text-property 0 'org-not-done-regexp x))
15024 				'(face org-todo) x))
15027 (defsubst org-cmp-priority (a b)
15035 (defsubst org-cmp-category (a b)
15043 (defsubst org-cmp-tag (a b)
15053 (defsubst org-cmp-time (a b)
15055   (let* ((def (if org-sort-agenda-notime-is-late 9901 -1))
15062 (defun org-entries-lessp (a b)
15066   (let* ((time-up (org-cmp-time a b))
15068 	 (priority-up (org-cmp-priority a b))
15070 	 (category-up (org-cmp-category a b))
15073 	 (tag-up (org-cmp-tag a b))
15076 	  (eval (cons 'or org-agenda-sorting-strategy-selected))
15081 (defun org-agenda-check-type (error &rest types)
15084   (if (memq org-agenda-type types)
15087 	(error "Not allowed in %s-type agenda buffers" org-agenda-type)
15090 (defun org-agenda-quit ()
15096     (org-agenda-maybe-reset-markers 'force))
15098   (and org-agenda-restore-windows-after-quit
15099        (not (eq org-agenda-window-setup 'other-frame))
15100        org-pre-agenda-window-conf
15101        (set-window-configuration org-pre-agenda-window-conf)))
15103 (defun org-agenda-exit ()
15105 Also kill all Org-mode buffers which have been loaded by `org-agenda'.
15108   (org-release-buffers org-agenda-new-buffers)
15109   (setq org-agenda-new-buffers nil)
15110   (org-agenda-quit))
15112 (defun org-save-all-org-buffers ()
15116   (save-some-buffers t 'org-mode-p)
15119 (defun org-agenda-redo ()
15123   (let* ((org-agenda-keep-modes t)
15124 	 (line (org-current-line))
15125 	 (window-line (- line (org-current-line (window-start)))))
15127     (eval org-agenda-redo-command)
15128     (setq org-agenda-undo-list nil
15129 	  org-agenda-pending-undo-list nil)
15134 (defun org-agenda-goto-today ()
15137   (org-agenda-check-type t 'timeline 'agenda)
15138   (let ((tdpos (text-property-any (point-min) (point-max) 'org-today t)))
15141      ((eq org-agenda-type 'agenda)
15142       (let ((org-agenda-overriding-arguments org-agenda-last-arguments))
15143 	(setf (nth 1 org-agenda-overriding-arguments) nil)
15144 	(org-agenda-redo)
15145 	(org-agenda-find-today-or-agenda)))
15148 (defun org-agenda-find-today-or-agenda ()
15150    (or (text-property-any (point-min) (point-max) 'org-today t)
15151        (text-property-any (point-min) (point-max) 'org-agenda-type 'agenda)
15154 (defun org-agenda-later (arg)
15155   "Go forward in time by `org-agenda-ndays' days.
15156 With prefix ARG, go forward that many times `org-agenda-ndays'."
15158   (org-agenda-check-type t 'agenda)
15159   (let ((org-agenda-overriding-arguments
15160 	 (list (car org-agenda-last-arguments)
15161 	       (+ org-starting-day (* arg org-agenda-ndays))
15163     (org-agenda-redo)
15164     (org-agenda-find-today-or-agenda)))
15166 (defun org-agenda-earlier (arg)
15167   "Go back in time by `org-agenda-ndays' days.
15168 With prefix ARG, go back that many times `org-agenda-ndays'."
15170   (org-agenda-check-type t 'agenda)
15171   (let ((org-agenda-overriding-arguments
15172 	 (list (car org-agenda-last-arguments)
15173 	       (- org-starting-day (* arg org-agenda-ndays))
15175     (org-agenda-redo)
15176     (org-agenda-find-today-or-agenda)))
15178 (defun org-agenda-week-view ()
15181   (org-agenda-check-type t 'agenda)
15182   (if (= org-agenda-ndays 7)
15184   (setq org-agenda-ndays 7)
15185   (let ((org-agenda-overriding-arguments
15186 	 (list (car org-agenda-last-arguments)
15188 		       org-starting-day)
15190     (org-agenda-redo)
15191     (org-agenda-find-today-or-agenda))
15192   (org-agenda-set-mode-name)
15195 (defun org-agenda-day-view ()
15198   (org-agenda-check-type t 'agenda)
15199   (if (= org-agenda-ndays 1)
15201   (setq org-agenda-ndays 1)
15202   (let ((org-agenda-overriding-arguments
15203 	 (list (car org-agenda-last-arguments)
15205 		       org-starting-day)
15207     (org-agenda-redo)
15208     (org-agenda-find-today-or-agenda))
15209   (org-agenda-set-mode-name)
15213 (defun org-agenda-next-date-line (&optional arg)
15216   (org-agenda-check-type t 'agenda 'timeline)
15225 (defun org-agenda-previous-date-line (&optional arg)
15228   (org-agenda-check-type t 'agenda 'timeline)
15234 (defvar org-hl (org-make-overlay 1 1))
15235 (org-overlay-put org-hl 'face 'highlight)
15237 (defun org-highlight (begin end &optional buffer)
15240 	   org-hl begin end (or buffer (current-buffer))))
15242 (defun org-unhighlight ()
15244   (funcall (if (featurep 'xemacs) 'detach-extent 'delete-overlay) org-hl))
15246 (defun org-highlight-until-next-command (beg end &optional buffer)
15247   (org-highlight beg end buffer)
15248   (add-hook 'pre-command-hook 'org-unhighlight-once))
15250 (defun org-unhighlight-once ()
15251   (remove-hook 'pre-command-hook 'org-unhighlight-once)
15252   (org-unhighlight))
15254 (defun org-agenda-follow-mode ()
15257   (setq org-agenda-follow-mode (not org-agenda-follow-mode))
15258   (org-agenda-set-mode-name)
15260 	   (if org-agenda-follow-mode "on" "off")))
15262 (defun org-agenda-log-mode ()
15265   (org-agenda-check-type t 'agenda 'timeline)
15266   (setq org-agenda-show-log (not org-agenda-show-log))
15267   (org-agenda-set-mode-name)
15268   (org-agenda-redo)
15270 	   (if org-agenda-show-log "on" "off")))
15272 (defun org-agenda-toggle-diary ()
15275   (org-agenda-check-type t 'agenda)
15276   (setq org-agenda-include-diary (not org-agenda-include-diary))
15277   (org-agenda-redo)
15278   (org-agenda-set-mode-name)
15280 	   (if org-agenda-include-diary "on" "off")))
15282 (defun org-agenda-toggle-time-grid ()
15285   (org-agenda-check-type t 'agenda)
15286   (setq org-agenda-use-time-grid (not org-agenda-use-time-grid))
15287   (org-agenda-redo)
15288   (org-agenda-set-mode-name)
15290 	   (if org-agenda-use-time-grid "on" "off")))
15292 (defun org-agenda-set-mode-name ()
15296 		(if (equal org-agenda-ndays 1) " Day"    "")
15297 		(if (equal org-agenda-ndays 7) " Week"   "")
15298 		(if org-agenda-follow-mode     " Follow" "")
15299 		(if org-agenda-include-diary   " Diary"  "")
15300 		(if org-agenda-use-time-grid   " Grid"   "")
15301 		(if org-agenda-show-log        " Log"    "")))
15304 (defun org-agenda-post-command-hook ()
15306   (setq org-agenda-type (get-text-property (point) 'org-agenda-type))
15307   (if (and org-agenda-follow-mode
15308 	   (get-text-property (point) 'org-marker))
15309       (org-agenda-show)))
15311 (defun org-agenda-show-priority ()
15314 and by additional input from the age of a schedules or deadline entry."
15319 (defun org-agenda-show-tags ()
15325 		 (org-no-properties (mapconcat 'identity tags ":")))
15328 (defun org-agenda-goto (&optional highlight)
15331   (let* ((marker (or (get-text-property (point) 'org-marker)
15332 		     (org-agenda-error)))
15338     (when (org-mode-p)
15339       (org-show-context 'agenda)
15342 	     (org-flag-heading nil)))) ; show the next heading
15343     (and highlight (org-highlight (point-at-bol) (point-at-eol)))))
15345 (defun org-agenda-kill ()
15348   (or (eq major-mode 'org-agenda-mode) (error "Not in agenda"))
15349   (let* ((marker (or (get-text-property (point) 'org-marker)
15350 		     (org-agenda-error)))
15354     (org-with-remote-undo buffer
15358 	 (if (org-mode-p)
15359 	     (setq dbeg (progn (org-back-to-heading t) (point))
15360 		   dend (org-end-of-subtree t))
15365      (setq conf (or (eq t org-agenda-confirm-kill)
15366 		    (and (numberp org-agenda-confirm-kill)
15367 			 (> n org-agenda-confirm-kill))))
15373      (org-remove-subtree-entries-from-agenda buffer dbeg dend)
15377 (defun org-agenda-archive ()
15380   (or (eq major-mode 'org-agenda-mode) (error "Not in agenda"))
15381   (let* ((marker (or (get-text-property (point) 'org-marker)
15382 		     (org-agenda-error)))
15385     (org-with-remote-undo buffer
15387 	(if (org-mode-p)
15390 	      (org-remove-subtree-entries-from-agenda)
15391 	      (org-back-to-heading t)
15392 	      (org-archive-subtree))
15395 (defun org-remove-subtree-entries-from-agenda (&optional buf beg end)
15402 	(org-back-to-heading t)
15404 	(org-end-of-subtree t)
15406       (set-buffer (get-buffer org-agenda-buffer-name))
15411 	  (when (and (setq m (get-text-property (point) 'org-marker))
15420 (defun org-agenda-open-link ()
15425       (if (or (re-search-forward org-bracket-link-regexp eol t)
15426 	      (re-search-forward org-angle-link-re eol t)
15427 	      (re-search-forward org-plain-link-re eol t))
15428 	  (call-interactively 'org-open-at-point)
15431 (defun org-agenda-switch-to (&optional delete-other-windows)
15434   (let* ((marker (or (get-text-property (point) 'org-marker)
15435 		     (org-agenda-error)))
15442     (when (org-mode-p)
15443       (org-show-context 'agenda)
15446 	     (org-flag-heading nil))))))  ; show the next heading
15448 (defun org-agenda-goto-mouse (ev)
15452   (org-agenda-goto))
15454 (defun org-agenda-show ()
15458     (org-agenda-goto t)
15461 (defun org-agenda-recenter (arg)
15465     (org-agenda-goto t)
15469 (defun org-agenda-show-mouse (ev)
15473   (org-agenda-show))
15475 (defun org-agenda-check-no-diary ()
15477   (if (get-text-property (point) 'org-agenda-diary-link)
15478       (org-agenda-error)))
15480 (defun org-agenda-error ()
15483 (defun org-agenda-tree-to-indirect-buffer ()
15485 This calls the command `org-tree-to-indirect-buffer' from the original
15491   (org-agenda-check-no-diary)
15492   (let* ((marker (or (get-text-property (point) 'org-marker)
15493 		     (org-agenda-error)))
15499 	(call-interactively 'org-tree-to-indirect-buffer)))))
15501 (defvar org-last-heading-marker (make-marker)
15505 (defun org-agenda-todo (&optional arg)
15510   (org-agenda-check-no-diary)
15512 	 (marker (or (get-text-property (point) 'org-marker)
15513 		     (org-agenda-error)))
15516 	 (hdmarker (get-text-property (point) 'org-hd-marker))
15519     (org-with-remote-undo buffer
15523 	(org-show-context 'agenda)
15526 	       (org-flag-heading nil)))   ; show the next heading
15527 	(org-todo arg)
15529 	(setq newhead (org-get-heading))
15531 	  (org-back-to-heading)
15532 	  (move-marker org-last-heading-marker (point))))
15535 	(org-agenda-change-all-lines newhead hdmarker 'fixface))
15538 (defun org-agenda-change-all-lines (newhead hdmarker &optional fixface)
15541 `org-format-agenda-item').  HDMARKER is checked with
15542 `equal' against all `org-hd-marker' text properties in the file.
15552 	(when (and (setq m (get-text-property (point) 'org-hd-marker))
15556 		cat (get-text-property (point) 'org-category)
15558 		new (org-format-agenda-item "x" newhead cat tags dotime 'noprefix)
15575 		     (if org-last-todo-state-is-todo
15577 	    (org-agenda-highlight-todo 'line)
15581     (org-finalize-agenda)))
15583 ;; FIXME: allow negative value for org-agenda-align-tags-to-column
15585 (defun org-agenda-align-tags (&optional line)
15586   "Align all tags in agenda items to `org-agenda-align-tags-to-column'."
15594 	(insert (org-add-props
15595 		    (make-string (max 1 (- org-agenda-align-tags-to-column
15599 (defun org-agenda-priority-up ()
15602   (org-agenda-priority 'up))
15604 (defun org-agenda-priority-down ()
15607   (org-agenda-priority 'down))
15609 (defun org-agenda-priority (&optional force-direction)
15614   (org-agenda-check-no-diary)
15615   (let* ((marker (or (get-text-property (point) 'org-marker)
15616 		     (org-agenda-error)))
15619 	 (hdmarker (get-text-property (point) 'org-hd-marker))
15622     (org-with-remote-undo buffer
15626 	(org-show-context 'agenda)
15629 	       (org-flag-heading nil)))   ; show the next heading
15630 	(funcall 'org-priority force-direction)
15632 	(setq newhead (org-get-heading)))
15633       (org-agenda-change-all-lines newhead hdmarker)
15636 (defun org-get-tags-at (&optional pos)
15648 	  (org-back-to-heading t)
15652 		    (setq tags (append (org-split-string
15653 					(org-match-string-no-properties 1) ":")
15655 	      (or org-use-tag-inheritance (error ""))
15656 	      (org-up-heading-all 1))
15661 (defun org-agenda-set-tags ()
15664   (org-agenda-check-no-diary)
15665   (org-agenda-show)   ;;; FIXME This is a stupid hack and should not be needed
15666   (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
15667                        (org-agenda-error)))
15672     (org-with-remote-undo buffer
15676 	(org-show-context 'agenda)
15679 	       (org-flag-heading nil)))   ; show the next heading
15680 	(call-interactively 'org-set-tags)
15682 	(setq newhead (org-get-heading)))
15683       (org-agenda-change-all-lines newhead hdmarker)
15686 (defun org-agenda-toggle-archive-tag ()
15689   (org-agenda-check-no-diary)
15690   (org-agenda-show)   ;;; FIXME This is a stupid hack and should not be needed
15691   (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
15692                        (org-agenda-error)))
15697     (org-with-remote-undo buffer
15701 	(org-show-context 'agenda)
15704 	       (org-flag-heading nil)))   ; show the next heading
15705 	(call-interactively 'org-toggle-archive-tag)
15707 	(setq newhead (org-get-heading)))
15708       (org-agenda-change-all-lines newhead hdmarker)
15711 (defun org-agenda-date-later (arg &optional what)
15714   (org-agenda-check-type t 'agenda 'timeline)
15715   (org-agenda-check-no-diary)
15716   (let* ((marker (or (get-text-property (point) 'org-marker)
15717 		     (org-agenda-error)))
15720     (org-with-remote-undo buffer
15724        (if (not (org-at-timestamp-p))
15726        (org-timestamp-change arg (or what 'day)))
15727      (org-agenda-show-new-time marker org-last-changed-timestamp))
15728     (message "Time stamp changed to %s" org-last-changed-timestamp)))
15730 (defun org-agenda-date-earlier (arg &optional what)
15733   (org-agenda-date-later (- arg) what))
15735 (defun org-agenda-show-new-time (marker stamp)
15743 	(when (equal marker (get-text-property (point) 'org-marker))
15755 	     (list 'display (org-add-props stamp nil
15760 (defun org-agenda-date-prompt (arg)
15762 The prefix ARG is passed to the `org-time-stamp' command and can therefore
15765   (org-agenda-check-type t 'agenda 'timeline)
15766   (org-agenda-check-no-diary)
15767   (let* ((marker (or (get-text-property (point) 'org-marker)
15768 		     (org-agenda-error)))
15771     (org-with-remote-undo buffer
15775 	(if (not (org-at-timestamp-p))
15777 	(org-time-stamp arg)
15778 	(message "Time stamp changed to %s" org-last-changed-timestamp)))))
15780 (defun org-agenda-schedule (arg)
15783   (org-agenda-check-type t 'agenda 'timeline 'todo 'tags)
15784   (org-agenda-check-no-diary)
15785   (let* ((marker (or (get-text-property (point) 'org-marker)
15786 		     (org-agenda-error)))
15789 	 (org-insert-labeled-timestamps-at-point nil)
15791     (org-with-remote-undo buffer
15795 	(setq ts (org-schedule))
15798 (defun org-agenda-deadline (arg)
15801   (org-agenda-check-type t 'agenda 'timeline 'todo 'tags)
15802   (org-agenda-check-no-diary)
15803   (let* ((marker (or (get-text-property (point) 'org-marker)
15804 		     (org-agenda-error)))
15807 	 (org-insert-labeled-timestamps-at-point nil)
15809     (org-with-remote-undo buffer
15813 	(setq ts (org-deadline))
15816 (defun org-get-heading ()
15819     (org-back-to-heading t)
15822 (defun org-agenda-clock-in (&optional arg)
15825   (org-agenda-check-no-diary)
15826   (let* ((marker (or (get-text-property (point) 'org-marker)
15827 		     (org-agenda-error)))
15829     (org-with-remote-undo (marker-buffer marker)
15833 	(org-clock-in)))))
15835 (defun org-agenda-clock-out (&optional arg)
15838   (unless (marker-buffer org-clock-marker)
15840   (org-with-remote-undo (marker-buffer org-clock-marker)
15841     (org-clock-out)))
15843 (defun org-agenda-clock-cancel (&optional arg)
15846   (unless (marker-buffer org-clock-marker)
15848   (org-with-remote-undo (marker-buffer org-clock-marker)
15849     (org-clock-cancel)))
15851 (defun org-agenda-diary-entry ()
15855   (org-agenda-check-type t 'agenda 'timeline)
15894 (defun org-agenda-execute-calendar-command (cmd)
15897   (org-agenda-check-type t 'agenda 'timeline)
15918 (defun org-agenda-phases-of-moon ()
15921   (org-agenda-execute-calendar-command 'calendar-phases-of-moon))
15923 (defun org-agenda-holidays ()
15926   (org-agenda-execute-calendar-command 'list-calendar-holidays))
15928 (defun org-agenda-sunrise-sunset (arg)
15938     (org-agenda-execute-calendar-command 'calendar-sunrise-sunset)))
15940 (defun org-agenda-goto-calendar ()
15943   (org-agenda-check-type t 'agenda 'timeline)
15953 (defun org-calendar-goto-agenda ()
15957   (org-agenda-list nil (calendar-absolute-from-gregorian
15961 (defun org-agenda-convert-date ()
15963   (org-agenda-check-type t 'agenda 'timeline)
15992 (defvar org-cdlatex-mode-map (make-sparse-keymap)
15993   "Keymap for the minor `org-cdlatex-mode'.")
15995 (define-key org-cdlatex-mode-map "_" 'org-cdlatex-underscore-caret)
15996 (define-key org-cdlatex-mode-map "^" 'org-cdlatex-underscore-caret)
15997 (define-key org-cdlatex-mode-map "`" 'cdlatex-math-symbol)
15998 (define-key org-cdlatex-mode-map "'" 'org-cdlatex-math-modify)
15999 (define-key org-cdlatex-mode-map "\C-c{" 'cdlatex-environment)
16001 (defvar org-cdlatex-texmathp-advice-is-done nil
16004 (define-minor-mode org-cdlatex-mode
16005   "Toggle the minor `org-cdlatex-mode'.
16008 \\{org-cdlatex-mode-map}"
16010   (when org-cdlatex-mode (require 'cdlatex))
16011   (unless org-cdlatex-texmathp-advice-is-done
16012     (setq org-cdlatex-texmathp-advice-is-done t)
16013     (defadvice texmathp (around org-math-always-on activate)
16014       "Always return t in org-mode buffers.
16018 \\[org-cdlatex-mode-map]"
16022 	 ((not (org-mode-p)) ad-do-it)
16025 		texmathp-why '("cdlatex-math-symbol in org-mode" . 0)))
16027 	  (let ((p (org-inside-LaTeX-fragment-p)))
16028 	    (if (and p (member (car p) (plist-get org-format-latex-options :matchers)))
16033 (defun turn-on-org-cdlatex ()
16034   "Unconditionally turn on `org-cdlatex-mode'."
16035   (org-cdlatex-mode 1))
16037 (defun org-inside-LaTeX-fragment-p ()
16055 	  (dodollar (member "$" (plist-get org-format-latex-options :matchers)))
16063 	      re (nth 1 (assoc "$" org-latex-regexps)))
16082 (defun org-try-cdlatex-tab ()
16084 It makes sense to do so if `org-cdlatex-mode' is active and if the cursor is
16088   (when org-cdlatex-mode
16095      ((org-inside-LaTeX-fragment-p)
16099 (defun org-cdlatex-underscore-caret (&optional arg)
16103   (if (org-inside-LaTeX-fragment-p)
16105     (let (org-cdlatex-mode)
16108 (defun org-cdlatex-math-modify (&optional arg)
16112   (if (org-inside-LaTeX-fragment-p)
16114     (let (org-cdlatex-mode)
16117 (defvar org-latex-fragment-image-overlays nil
16119 (make-variable-buffer-local 'org-latex-fragment-image-overlays)
16121 (defun org-remove-latex-fragment-image-overlays ()
16123   (mapc 'org-delete-overlay org-latex-fragment-image-overlays)
16124   (setq org-latex-fragment-image-overlays nil))
16126 (defun org-preview-latex-fragment (&optional subtree)
16134 The images can be removed again with \\[org-ctrl-c-ctrl-c]."
16136   (org-remove-latex-fragment-image-overlays)
16143 		     (re-search-backward (concat "^" outline-regexp) nil t))))
16147 	  (org-back-to-heading)
16148 	  (setq beg (point) end (org-end-of-subtree t)
16151 	  (if (setq at (org-inside-LaTeX-fragment-p))
16153 	    (org-back-to-heading))
16159 	(org-format-latex
16166 (defvar org-latex-regexps
16169     ;; \000 in the following regex is needed for org-inside-LaTeX-fragment-p
16176 (defun org-format-latex (prefix &optional dir overlays msg at)
16182 	 (opt org-format-latex-options)
16184 	 (re-list org-latex-regexps)
16192 	     (concat (regexp-quote prefixnodir) "_[0-9]+\\.png$"))))
16212 	    (org-create-formula-image
16216 		  (setq ov (org-make-overlay beg end))
16219 			(org-overlay-put ov 'invisible t)
16220 			(org-overlay-put
16223 		    (org-overlay-put
16226 		  (push ov org-latex-fragment-image-overlays)
16232 (defun org-create-formula-image (string tofile options)
16283 (defconst org-level-max 20)
16285 (defvar org-export-html-preamble nil
16287 (defvar org-export-html-postamble nil
16289 (defvar org-export-html-auto-preamble t
16291 (defvar org-export-html-auto-postamble t
16293 (defvar org-current-export-file nil) ; dynamically scoped parameter
16294 (defvar org-current-export-dir nil) ; dynamically scoped parameter
16297 (defconst org-export-plist-vars
16298   '((:language             . org-export-default-language)
16299     (:customtime           . org-display-custom-times)
16300     (:headline-levels      . org-export-headline-levels)
16301     (:section-numbers      . org-export-with-section-numbers)
16302     (:table-of-contents    . org-export-with-toc)
16303     (:archived-trees       . org-export-with-archived-trees)
16304     (:emphasize            . org-export-with-emphasize)
16305     (:sub-superscript      . org-export-with-sub-superscripts)
16306     (:TeX-macros           . org-export-with-TeX-macros)
16307     (:LaTeX-fragments      . org-export-with-LaTeX-fragments)
16308     (:fixed-width          . org-export-with-fixed-width)
16309     (:timestamps           . org-export-with-timestamps)
16310     (:tables               . org-export-with-tables)
16311     (:table-auto-headline  . org-export-highlight-first-table-line)
16312     (:style                . org-export-html-style)
16313     (:convert-org-links    . org-export-html-link-org-files-as-html)
16314     (:inline-images        . org-export-html-inline-images)
16315     (:expand-quoted-html   . org-export-html-expand)
16316     (:timestamp            . org-export-html-with-timestamp)
16317     (:publishing-directory . org-export-publishing-directory)
16318     (:preamble             . org-export-html-preamble)
16319     (:postamble            . org-export-html-postamble)
16320     (:auto-preamble        . org-export-html-auto-preamble)
16321     (:auto-postamble       . org-export-html-auto-postamble)
16325 (defun org-default-export-plist ()
16327   (let ((l org-export-plist-vars) rtn e)
16332 (defun org-infile-export-plist ()
16336     (let ((re (org-make-options-regexp
16340 	(setq key (org-match-string-no-properties 1)
16341 	      val (org-match-string-no-properties 2))
16365 	    (if (string-match (concat (regexp-quote (car o))
16373 (defun org-export-directory (type plist)
16380 (defun org-export-find-first-heading-line (list)
16383 	(re (concat "^" outline-regexp)))
16389 (defun org-skip-comments (lines)
16391   (let ((re1 (concat "^\\(\\*+\\)[ \t]+" org-comment-string))
16406        ((and org-export-table-remove-special-lines
16416 (defun org-export (&optional arg)
16435 	 '((?t . org-insert-export-options-template)
16436 	   (?v . org-export-visible)
16437 	   (?a . org-export-as-ascii)
16438 	   (?h . org-export-as-html)
16439 	   (?b . org-export-as-html-and-open)
16440 	   (?x . org-export-as-xoxo)
16441 	   (?i . org-export-icalendar-this-file)
16442 	   (?I . org-export-icalendar-all-agenda-files)
16443 	   (?c . org-export-icalendar-combine-agenda-files)
16444 	   (?F . org-publish-current-file)
16445 	   (?P . org-publish-current-project)
16446 	   (?X . org-publish)
16447 	   (?A . org-publish-all)))
16460 (defconst org-html-entities
16760 (defun org-cleaned-string-for-export (string &rest parameters)
16763   (let* ((re-radio (and org-target-link-regexp
16764 			(concat "\\([^<]\\)\\(" org-target-link-regexp "\\)")))
16765 	 (re-plain-link (concat "\\([^[<]\\)" org-plain-link-re))
16766 	 (re-angle-link (concat "\\([^[]\\)" org-angle-link-re))
16767 	 (re-archive (concat ":" org-archive-tag ":"))
16768 	 (re-quote (concat "^\\*+[ \t]+" org-quote-string "\\>"))
16770 	 (outline-regexp "\\*+")
16773       (set-buffer (get-buffer-create " org-mode-tmp"))
16776       (let ((org-inhibit-startup t)) (org-mode))
16780       (when (not (eq org-export-with-archived-trees t))
16783 	  (if (not (org-on-heading-p))
16784 	      (org-end-of-subtree t)
16787 	     (if org-export-with-archived-trees (1+ (point-at-eol)) (point))
16788 	     (org-end-of-subtree t)))))
16794 			     '(org-protected t)))
16801 	   '(org-protected t))))
16807 				 '(org-protected t))
16813 	(add-text-properties (point) (org-end-of-subtree t)
16814 			     '(org-protected t)))
16831 	  (org-if-unprotected
16837 	(org-if-unprotected
16843 	(org-format-latex
16846 			     org-current-export-file)))
16847 	 org-current-export-dir nil "Creating LaTeX image %s"))
16854 	(org-if-unprotected
16861 	(org-if-unprotected
16867       (while (re-search-forward org-bracket-link-regexp nil t)
16868 	(org-if-unprotected
16871 			 (org-link-expand-abbrev (match-string 1)))
16882 	(while (re-search-forward org-emph-re nil t)
16883 	  (org-if-unprotected
16888     (kill-buffer " org-mode-tmp")
16891 (defun org-solidify-link-text (s &optional alist)
16897 	     (org-split-string s "[ \t\r\n]+") "--"))
16902 (defvar org-section-numbers (make-vector org-level-max 0))
16904 (defun org-init-section-numbers ()
16907 	 (numbers (nreverse (org-split-string "" "\\.")))
16908 	 (depth (1- (length org-section-numbers)))
16912 	  (aset org-section-numbers i 0)
16915 	    (aset org-section-numbers i
16917 	    (aset org-section-numbers i (string-to-number number-string)))
16921 (defun org-section-number (&optional level)
16924   (let* ((depth (1- (length org-section-numbers))) idx n (string ""))
16927 	(aset org-section-numbers
16928 	      level (1+ (aref org-section-numbers level))))
16932 	    (aset org-section-numbers idx 0))
16936       (setq n (aref org-section-numbers idx))
16949 (defvar org-last-level nil) ; dynamically scoped variable
16950 (defvar org-levels-open nil) ; dynamically scoped parameter
16951 (defvar org-ascii-current-indentation nil) ; For communication
16953 (defun org-export-as-ascii (arg)
16959   (setq-default org-todo-line-regexp org-todo-line-regexp)
16960   (let* ((opt-plist (org-combine-plists (org-default-export-plist)
16961 					(org-infile-export-plist)))
16964 	   (if (org-region-active-p) (region-beginning) (point-min))
16965 	   (if (org-region-active-p) (region-end) (point-max))))
16966 	 (custom-times org-display-custom-times)
16967 	 (lines (org-export-find-first-heading-line
16968 		 (org-skip-comments
16969 		  (org-split-string
16970 		   (org-cleaned-string-for-export region)
16972 	 (org-ascii-current-indentation '(0 . 0))
16978 			    (org-export-directory :ascii opt-plist))
16983 	 (org-levels-open (make-vector org-level-max nil))
16984 	 (odd org-odd-levels-only)
16986 	 (time  (format-time-string "%X" (org-current-time)))
16993 	 (quote-re0   (concat "^[ \t]*" org-quote-string "\\>"))
16994 ;	 (quote-re    (concat "^\\(\\*+\\)\\([ \t]*" org-quote-string "\\>\\)"))
16999     (setq org-last-level 1)
17000     (org-init-section-numbers)
17004     (setq lang-words (or (assoc language org-export-language-setup)
17005 			 (assoc "en" org-export-language-setup)))
17014 	    org-export-plist-vars)
17015     (org-set-local 'org-odd-levels-only odd)
17017 		 org-export-headline-levels))
17018     (setq umax-toc (if (integerp org-export-with-toc)
17019 		       (min org-export-with-toc umax)
17023     (if title (org-insert-centered title ?=))
17031     (if text (insert (concat (org-html-expand-for-ascii text) "\n\n")))
17035     (if org-export-with-toc
17040 		     (if (string-match org-todo-line-regexp
17045 				 level (org-tr-level level)
17048 				 (or (and org-export-mark-todo-in-toc
17051 						      org-done-string)))
17053 				     (and org-export-mark-todo-in-toc
17055 					  (org-search-todo-below
17057 			   (setq txt (org-html-expand-for-ascii txt))
17059 			   (if (and (memq org-export-with-tags '(not-in-toc nil))
17065 			   (if org-export-with-section-numbers
17066 			       (setq txt (concat (org-section-number level)
17073 				 (setq org-last-level level))
17077     (org-init-section-numbers)
17080       (setq line (org-html-expand-for-ascii line))
17085       (while (string-match org-bracket-link-regexp line)
17090 	(setq line (org-translate-time line)))
17094 	(setq level (org-tr-level (- (match-end 1) (match-beginning 1)))
17096 	(org-ascii-level-start level txt umax lines))
17098 	(insert (org-fix-indentation line org-ascii-current-indentation) "\n"))))
17110       (while (setq beg (next-single-property-change (point) 'org-cwidth))
17111 	(setq end (next-single-property-change beg 'org-cwidth))
17116 (defun org-search-todo-below (line lines level)
17119 	(re org-todo-line-regexp)
17128 					  org-done-string))))
17133 (defun org-html-expand-for-ascii (line)
17135   (if org-export-html-expand
17141 (defun org-insert-centered (s &optional underline)
17150 (defun org-ascii-level-start (level title umax &optional lines)
17156 		  (char-to-string (nth (% n (length org-export-ascii-bullets))
17157 				       org-export-ascii-bullets))
17164 		  (throw 'stop (setq ind (org-get-indentation (car lines)))))
17166 	  (setq org-ascii-current-indentation (cons (* 2 (1+ n)) ind)))
17170       (setq char (nth (- umax level) (reverse org-export-ascii-underline)))
17171       (unless org-export-with-tags
17174       (if org-export-with-section-numbers
17175 	  (setq title (concat (org-section-number level) " " title)))
17177       (setq org-ascii-current-indentation '(0 . 0)))))
17179 (defun org-export-visible (type arg)
17185 org-mode file will not be removed but presented to you so that you can
17196 			      '((?a . org-export-as-ascii)
17197 				(?\C-a . org-export-as-ascii)
17198 				(?b . org-export-as-html-and-open)
17199 				(?\C-b . org-export-as-html-and-open)
17200 				(?h . org-export-as-html)
17201 				(?x . org-export-as-xoxo)))))
17210 	(goto-char (org-find-invisible))
17212 	(setq s (goto-char (org-find-visible))))
17225 	    (org-inhibit-startup t))
17226 	(org-mode)
17234 (defun org-find-visible ()
17239 (defun org-find-invisible ()
17247 (defun org-get-current-options ()
17265    (buffer-name) (user-full-name) user-mail-address org-export-default-language
17266    org-export-headline-levels
17267    org-export-with-section-numbers
17268    org-export-with-toc
17269    org-export-preserve-breaks
17270    org-export-html-expand
17271    org-export-with-fixed-width
17272    org-export-with-tables
17273    org-export-with-sub-superscripts
17274    org-export-with-emphasize
17275    org-export-with-TeX-macros
17276    org-export-with-LaTeX-fragments
17278    (if (equal org-todo-interpretation 'sequence)
17279        (mapconcat 'identity org-todo-keywords " ")
17281    (if (equal org-todo-interpretation 'type)
17282        (mapconcat 'identity org-todo-keywords " ")
17284    (cdr (assoc org-startup-folded
17286    (if org-odd-levels-only "odd" "oddeven")
17287    (if org-hide-leading-stars "hidestars" "showstars")
17288    (if org-startup-align-all-tables "align" "noalign")
17289    (cond ((eq t org-log-done) "logdone")
17290 	 ((not org-log-done) "nologging")
17291 	 ((listp org-log-done)
17293 		     org-log-done " ")))
17300 		  (or org-tag-alist (org-get-buffer-tags)) " ") "")
17301    org-archive-location
17302    "org file:~/org/%s.org"
17305 (defun org-insert-export-options-template ()
17309   (let ((s (org-get-current-options)))
17314 (defun org-toggle-fixed-width-section (arg)
17324 	 (regionp (org-region-active-p))
17349 	(org-back-to-heading)
17350 	(if (looking-at (concat outline-regexp
17351 				"\\( +\\<" org-quote-string "\\>\\)"))
17353 	  (if (looking-at outline-regexp)
17356 		(insert " " org-quote-string))))))))
17358 (defun org-export-as-html-and-open (arg)
17364   (org-export-as-html arg 'hidden)
17365   (org-open-file buffer-file-name))
17367 (defun org-export-as-html-batch ()
17368   "Call `org-export-as-html', may be used in batch processing as
17370 	--load=$HOME/lib/emacs/org.el
17371 	--eval \"(setq org-export-headline-levels 2)\"
17372 	--visit=MyFile --funcall org-export-as-html-batch"
17373   (org-export-as-html org-export-headline-levels 'hidden))
17375 (defun org-export-as-html (arg &optional hidden ext-plist)
17382 org-mode's default settings, but still inferior to file-local settings."
17385   (setq-default org-todo-line-regexp org-todo-line-regexp)
17386   (setq-default org-deadline-line-regexp org-deadline-line-regexp)
17387   (setq-default org-done-string org-done-string)
17388   (setq-default org-maybe-keyword-time-regexp org-maybe-keyword-time-regexp)
17389   (let* ((opt-plist (org-combine-plists (org-default-export-plist)
17391 					(org-infile-export-plist)))
17396 	 (odd org-odd-levels-only)
17397 	 (region-p (org-region-active-p))
17404 	 (org-current-export-dir (org-export-directory :html opt-plist))
17405 	 (org-current-export-file buffer-file-name)
17407           (org-skip-comments (org-split-string
17408 			      (org-cleaned-string-for-export
17413          (lines (org-export-find-first-heading-line all_lines))
17418 			    (org-export-directory :html opt-plist))
17424          (org-levels-open (make-vector org-level-max nil))
17426 	 (time  (format-time-string "%X" (org-current-time)))
17431 	 (quote-re0   (concat "^[ \t]*" org-quote-string "\\>"))
17432 	 (quote-re    (concat "^\\(\\*+\\)\\([ \t]*" org-quote-string "\\>\\)"))
17438 	 (llt org-plain-list-ordered-item-terminator)
17460     (setq org-last-level 1)
17461     (org-init-section-numbers)
17464     (setq lang-words (or (assoc language org-export-language-setup)
17465                          (assoc "en" org-export-language-setup)))
17474 	  (org-odd-levels-only odd))
17480 	      org-export-plist-vars)
17482                    org-export-headline-levels))
17483       (setq umax-toc (if (integerp org-export-with-toc)
17484 			 (min org-export-with-toc umax)
17490                \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
17491 <html xmlns=\"http://www.w3.org/1999/xhtml\"
17502 	       language language (org-html-expand title) (or charset "iso-8859-1")
17509 	(if title     (insert (format org-export-html-title-format
17510 				      (org-html-expand title))))
17511 	(if text      (insert "<p>\n" (org-html-expand text) "</p>")))
17513       (if org-export-with-toc
17516 			    org-export-html-toplevel-hlevel
17518 			    org-export-html-toplevel-hlevel))
17522 		       (if (string-match org-todo-line-regexp line)
17526 				   level (org-tr-level level)
17528 					 (org-html-expand
17529 					  (org-export-cleanup-toc-line
17532 				   (or (and org-export-mark-todo-in-toc
17535 							org-done-string)))
17537 				       (and org-export-mark-todo-in-toc
17539 					    (org-search-todo-below
17541 			     (if (and (memq org-export-with-tags '(not-in-toc nil))
17546 			     (if org-export-with-section-numbers
17547 				 (setq txt (concat (org-section-number level)
17552 				   (if (> level org-last-level)
17554 					 (setq cnt (- level org-last-level))
17558 				   (if (< level org-last-level)
17560 					 (setq cnt (- org-last-level level))
17565 				   (while (string-match org-target-regexp line)
17570 				     (push (cons (org-solidify-link-text tg)
17582 				   (setq org-last-level level))
17586 	    (while (> org-last-level 0)
17587 	      (setq org-last-level (1- org-last-level))
17591       (org-init-section-numbers)
17602 	    (insert (org-html-protect line) "\n")
17606 	  (when (and org-export-with-fixed-width
17611 	    (insert (org-html-protect (match-string 1 line)) "\n")
17620 	  (when (get-text-property 0 'org-protected line)
17635 				  (org-solidify-link-text (match-string 1 line))
17638 	     ((and org-export-with-toc (equal (string-to-char line) ?*))
17646 				  (org-solidify-link-text (match-string 1 line))
17650 	  (setq line (org-html-handle-time-stamps line))
17655 	  (setq line (org-html-expand line))
17659 	  (while (string-match org-bracket-link-analytic-regexp line start)
17668 	    (when (and descp (org-file-image-p desc))
17679 		     (org-solidify-link-text path target-alist)
17683 	      (if (and (or (eq t org-export-html-inline-images)
17684 			   (and org-export-html-inline-images (not descp)))
17685 		       (org-file-image-p path))
17706 		  (setq file-is-image-p (org-file-image-p filename))
17708 		  (when (and org-export-html-link-org-files-as-html
17709 			     (string-match "\\.org$" thefile))
17719 					      (org-solidify-link-text
17720 					       (org-link-unescape search)))))
17723 		      (if (string-match "\\.org$" desc)
17726 				   (or (eq t org-export-html-inline-images)
17727 				       (and org-export-html-inline-images
17734 				(save-match-data (org-link-unescape path))
17739 	  (if (and (string-match org-todo-line-regexp line)
17741 	      (if (equal (match-string 2 line) org-done-string)
17751 	    (setq level (org-tr-level (- (match-end 1) (match-beginning 1)))
17759 		(org-close-li)
17764 	    (org-html-level-start level txt umax
17765 				  (and org-export-with-toc (<= level umax))
17772 	   ((and org-export-with-tables
17786 	      (org-close-par-maybe)
17787 	      (insert (org-format-table-html table-buffer table-orig-buffer))))
17795 		    (t (error "Invalid value of `org-plain-list-ordered-item-terminator'")))
17797 	      (setq ind (org-get-string-indentation line)
17809 		(org-close-li)
17818 		(org-close-par-maybe)
17825 		(org-close-li)
17838 	    (if (string-match "^ [-+*]-\\|^[ \t]*$" line) (org-open-par))
17844 	     (org-export-preserve-breaks
17854 	  (org-close-li)
17859       (org-html-level-start 1 nil umax
17860 			    (and org-export-with-toc (<= level umax))
17876       (if org-export-html-with-timestamp
17877 	  (insert org-export-html-html-helper-timestamp))
17893 (defun org-format-table-html (lines olines)
17896       ;; A normal org table
17897       (org-format-org-table-html lines)
17907 	   (re (concat "^[ \t]*" (regexp-quote ll)))
17911 	       (not org-export-prefer-native-exporter-for-tables))
17913 	  (org-format-table-table-html lines)
17915 	(org-format-table-table-html-using-table-generate-source olines)))))
17917 (defun org-format-org-table-html (lines &optional splice)
17924   (when org-export-table-remove-special-lines
17927     (setq lines (org-table-clean-before-export lines)))
17929   (let ((head (and org-export-highlight-first-table-line
17949 	(setq fields (org-split-string line "[ \t]*|[ \t]*"))
17957 				  (string-match org-table-number-regexp x))
17973 		       (if (> (/ (float x) nlines) org-table-number-fraction)
17977       (push org-export-html-table-tag html))
17980 (defun org-table-clean-before-export (lines)
17989 	(setq org-table-clean-did-remove-column-1 nil)
17991     (setq org-table-clean-did-remove-column-1 t)
18001 (defun org-fake-empty-table-line (line)
18011 (defun org-format-table-table-html (lines)
18017 	     (head org-export-highlight-first-table-line)
18019     (setq html (concat org-export-html-table-tag "\n"))
18043 	(setq fields (org-split-string line "[ \t]*|[ \t]*"))
18053 (defun org-format-table-table-html-using-table-generate-source (lines)
18058   (with-current-buffer (get-buffer-create " org-tmp1 ")
18065     (with-current-buffer (get-buffer-create " org-tmp2 ") (erase-buffer))
18066     (table-generate-source 'html " org-tmp2 ")
18067     (set-buffer " org-tmp2 ")
18070 (defun org-html-handle-time-stamps (s)
18074       (while (string-match org-maybe-keyword-time-regexp s)
18075 	(if (and (match-end 1) (equal (match-string 1 s) org-clock-string))
18079 	(if (not org-export-with-timestamps)
18089 			    (org-translate-time (match-string 3 s)) 1 -1)))
18099 (defun org-html-protect (s)
18111 (defun org-export-cleanup-toc-line (s)
18115   (when org-export-remove-timestamps-from-toc
18116     (while (string-match org-maybe-keyword-time-regexp s)
18120 (defun org-html-expand (string)
18124     (while (setq m (string-match org-bracket-link-regexp string))
18128       (push (org-html-do-expand s) res)
18130     (push (org-html-do-expand string) res)
18133 (defun org-html-do-expand (s)
18135   (setq s (org-html-protect s))
18136   (if org-export-html-expand
18139   (if org-export-with-emphasize
18140       (setq s (org-export-html-convert-emphasize s)))
18141   (if org-export-with-sub-superscripts
18142       (setq s (org-export-html-convert-sub-super s)))
18143   (if org-export-with-TeX-macros
18147 	  (if (setq ass (assoc wd org-html-entities))
18154 (defun org-create-multibrace-regexp (left right n)
18158 The regexp returned will match the entire expression including the
18172 (defvar org-match-substring-regexp
18175    "\\(" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)"
18177    "\\(" (org-create-multibrace-regexp "(" ")" org-match-sexp-depth) "\\)"
18182 (defun org-export-html-convert-sub-super (string)
18185     (while (string-match org-match-substring-regexp string)
18198 (defun org-export-html-convert-emphasize (string)
18200   (while (string-match org-emph-re string)
18201     (setq string (replace-match (concat "\\1" (nth 2 (assoc (match-string 3 string) org-emphasis-alist)) "\\4" (nth 3 (assoc (match-string 3 string) org-emphasis-alist)) "\\5") t nil string)))
18204 (defvar org-par-open nil)
18205 (defun org-open-par ()
18207   (org-close-par-maybe)
18209   (setq org-par-open t))
18210 (defun org-close-par-maybe ()
18212   (when org-par-open
18214     (setq org-par-open nil)))
18215 (defun org-close-li ()
18217   (org-close-par-maybe)
18224 (defun org-html-level-start (level title umax with-toc head-count)
18227   (org-close-par-maybe)
18229     (while (<= l org-level-max)
18230       (if (aref org-levels-open (1- l))
18232 	    (org-html-level-close l)
18233 	    (aset org-levels-open (1- l) nil)))
18240 		       (if org-export-with-tags
18244 			      (mapconcat 'identity (org-split-string
18252 	    (if (aref org-levels-open (1- level))
18254 		  (org-close-li)
18256 	      (aset org-levels-open (1- level) t)
18257 	      (org-close-par-maybe)
18259 	(if org-export-with-section-numbers
18260 	    (setq title (concat (org-section-number level) " " title)))
18261 	(setq level (+ level org-export-html-toplevel-hlevel -1))
18266 	(org-open-par)))))
18268 (defun org-html-level-close (&rest args)
18270   (org-close-li)
18276 (defun org-export-icalendar-this-file ()
18281   (org-export-icalendar nil buffer-file-name))
18284 (defun org-export-icalendar-all-agenda-files ()
18285   "Export all files in `org-agenda-files' to iCalendar .ics files.
18289   (apply 'org-export-icalendar nil (org-agenda-files t)))
18292 (defun org-export-icalendar-combine-agenda-files ()
18293   "Export all files in `org-agenda-files' to a single combined iCalendar file.
18294 The file is stored under the name `org-combined-agenda-icalendar-file'."
18296   (apply 'org-export-icalendar t (org-agenda-files t)))
18298 (defun org-export-icalendar (combine &rest files)
18301 file and store it under the name `org-combined-agenda-icalendar-file'."
18303     (let* ((dir (org-export-directory
18305 			     org-export-publishing-directory)))
18306 	   file ical-file ical-buffer category started org-agenda-new-buffers)
18310 	      (if (file-name-absolute-p org-combined-agenda-icalendar-file)
18311 		  org-combined-agenda-icalendar-file
18312 		(expand-file-name org-combined-agenda-icalendar-file dir))
18313 	      ical-buffer (org-get-agenda-file-buffer ical-file))
18317 	  (org-check-agenda-file file)
18318 	  (set-buffer (org-get-agenda-file-buffer file))
18324 	    (setq ical-buffer (org-get-agenda-file-buffer ical-file))
18326 	  (setq category (or org-category
18333 		     (org-start-icalendar-file org-icalendar-combined-name))
18334 	      (org-start-icalendar-file category))
18335 	    (org-print-icalendar-entries combine)
18337 	      (org-finish-icalendar-file)
18340 	      (run-hooks 'org-after-save-iCalendar-file-hook)))))
18341       (org-release-buffers org-agenda-new-buffers))))
18343 (defvar org-after-save-iCalendar-file-hook nil
18349 (defun org-print-icalendar-entries (&optional combine)
18352   (let ((re2 (concat "--?-?\\(" org-ts-regexp "\\)"))
18353 	(org-category-table (org-get-category-table))
18354 	(dts (org-ical-ts-to-string
18355 	      (format-time-string (cdr org-time-stamp-formats) (current-time))
18361       (while (re-search-forward org-ts-regexp nil t)
18365 	      hd (org-get-heading)
18366 	      category (org-get-category))
18373 					     (- pos org-ds-keyword-length))
18375 		deadlinep (string-match org-deadline-regexp tmp)
18376 		scheduledp (string-match org-scheduled-regexp tmp)
18377 		;; donep (org-entry-is-done-p)
18379 	(if (or (string-match org-tr-regexp hd)
18380 		(string-match org-ts-regexp hd))
18382 	(if (string-match org-bracket-link-regexp hd)
18394 		       (org-ical-ts-to-string ts "DTSTART")
18395 		       (org-ical-ts-to-string ts2 "DTEND" inc)
18397       (when org-icalendar-include-todo
18399 	(while (re-search-forward org-todo-line-regexp nil t)
18401 	  (setq status (if (equal state org-done-string)
18404 		     (or (not (equal state org-done-string))
18405 			 (eq org-icalendar-include-todo 'all)))
18407 	    (if (string-match org-priority-regexp hd)
18411 	      (setq pri org-default-priority))
18412 	    (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri))
18413 					  (- org-lowest-priority ?A))))))
18425 (defun org-start-icalendar-file (name)
18438 (defun org-finish-icalendar-file ()
18442 (defun org-ical-ts-to-string (s keyword &optional inc)
18447   (let ((t1 (org-parse-time-string s 'nodefault))
18451       (setq t2 (org-parse-time-string s)))
18462 (defun org-export-as-xoxo-insert-into (buffer &rest output)
18465 (put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1)
18467 (defun org-export-as-xoxo (&optional buffer)
18468   "Export the org buffer as XOXO.
18476     (let* ((opt-plist (org-combine-plists (org-default-export-plist)
18477 					(org-infile-export-plist)))
18479 			      (org-export-directory :xoxo opt-plist))
18489       (org-export-as-xoxo-insert-into out "<ol class='xoxo'>\n")
18508             (org-export-as-xoxo-insert-into out "\n<ol>\n"))
18513                   (org-export-as-xoxo-insert-into out "</li>\n"))
18514               (org-export-as-xoxo-insert-into out "</ol>\n"))
18516               (org-export-as-xoxo-insert-into out "</li>\n")
18521                 (org-export-as-xoxo-insert-into out "</li>\n")))
18529               (org-export-as-xoxo-insert-into out "<li class='" (substring text 1) "'>")
18530             (org-export-as-xoxo-insert-into out "<li>" text))))
18535             (org-export-as-xoxo-insert-into out "</li>\n"))
18536         (org-export-as-xoxo-insert-into out "</ol>\n"))
18556 (define-key org-mode-map "\C-c\C-x" (make-sparse-keymap))
18559 (define-key org-mode-map "\C-i"       'org-cycle)
18560 (define-key org-mode-map [(tab)]      'org-cycle)
18561 (define-key org-mode-map [(control tab)] 'org-force-cycle-archived)
18562 (define-key org-mode-map [(meta tab)] 'org-complete)
18563 (define-key org-mode-map "\M-\t" 'org-complete)
18564 (define-key org-mode-map "\M-\C-i"      'org-complete)
18567   (define-key org-mode-map [S-iso-lefttab]  'org-shifttab))
18568 (define-key org-mode-map [(shift tab)]    'org-shifttab)
18570 (define-key org-mode-map (org-key 'S-return)   'org-table-copy-down)
18571 (define-key org-mode-map [(meta shift return)] 'org-insert-todo-heading)
18572 (define-key org-mode-map [(meta return)]       'org-meta-return)
18575 (define-key org-mode-map [(meta left)]  'org-metaleft)
18576 (define-key org-mode-map [(meta right)] 'org-metaright)
18577 (define-key org-mode-map [(meta up)]    'org-metaup)
18578 (define-key org-mode-map [(meta down)]  'org-metadown)
18580 (define-key org-mode-map [(meta shift left)]   'org-shiftmetaleft)
18581 (define-key org-mode-map [(meta shift right)]  'org-shiftmetaright)
18582 (define-key org-mode-map [(meta shift up)]     'org-shiftmetaup)
18583 (define-key org-mode-map [(meta shift down)]   'org-shiftmetadown)
18585 (define-key org-mode-map (org-key 'S-up)       'org-shiftup)
18586 (define-key org-mode-map (org-key 'S-down)     'org-shiftdown)
18587 (define-key org-mode-map (org-key 'S-left)     'org-shiftleft)
18588 (define-key org-mode-map (org-key 'S-right)    'org-shiftright)
18596   (define-key org-mode-map "\C-c\C-xc"    'org-table-copy-down)
18597   (define-key org-mode-map "\C-c\C-xM"    'org-insert-todo-heading)
18598   (define-key org-mode-map "\C-c\C-xm"    'org-meta-return)
18599   (define-key org-mode-map [?\e (return)] 'org-meta-return)
18600   (define-key org-mode-map [?\e (left)]   'org-metaleft)
18601   (define-key org-mode-map "\C-c\C-xl"    'org-metaleft)
18602   (define-key org-mode-map [?\e (right)]  'org-metaright)
18603   (define-key org-mode-map "\C-c\C-xr"    'org-metaright)
18604   (define-key org-mode-map [?\e (up)]     'org-metaup)
18605   (define-key org-mode-map "\C-c\C-xu"    'org-metaup)
18606   (define-key org-mode-map [?\e (down)]   'org-metadown)
18607   (define-key org-mode-map "\C-c\C-xd"    'org-metadown)
18608   (define-key org-mode-map "\C-c\C-xL"    'org-shiftmetaleft)
18609   (define-key org-mode-map "\C-c\C-xR"    'org-shiftmetaright)
18610   (define-key org-mode-map "\C-c\C-xU"    'org-shiftmetaup)
18611   (define-key org-mode-map "\C-c\C-xD"    'org-shiftmetadown)
18612   (define-key org-mode-map [?\C-c ?\C-x (up)]    'org-shiftup)
18613   (define-key org-mode-map [?\C-c ?\C-x (down)]  'org-shiftdown)
18614   (define-key org-mode-map [?\C-c ?\C-x (left)]  'org-shiftleft)
18615   (define-key org-mode-map [?\C-c ?\C-x (right)] 'org-shiftright))
18619 (define-key org-mode-map "\C-c\C-a" 'show-all)  ; in case allout messed up.
18620 (define-key org-mode-map "\C-c\C-r" 'org-reveal)
18621 (define-key org-mode-map "\C-xns" 'org-narrow-to-subtree)
18622 (define-key org-mode-map "\C-c$"    'org-archive-subtree)
18623 (define-key org-mode-map "\C-c\C-x\C-s" 'org-advertized-archive-subtree)
18624 (define-key org-mode-map "\C-c\C-x\C-a" 'org-toggle-archive-tag)
18625 (define-key org-mode-map "\C-c\C-xb" 'org-tree-to-indirect-buffer)
18626 (define-key org-mode-map "\C-c\C-j" 'org-goto)
18627 (define-key org-mode-map "\C-c\C-t" 'org-todo)
18628 (define-key org-mode-map "\C-c\C-s" 'org-schedule)
18629 (define-key org-mode-map "\C-c\C-d" 'org-deadline)
18630 (define-key org-mode-map "\C-c;"    'org-toggle-comment)
18631 (define-key org-mode-map "\C-c\C-v" 'org-show-todo-tree)
18632 (define-key org-mode-map "\C-c\C-w" 'org-check-deadlines)
18633 (define-key org-mode-map "\C-c/"    'org-occur)   ; Minor-mode reserved
18634 (define-key org-mode-map "\C-c\\"   'org-tags-sparse-tree) ; Minor-mode res.
18635 (define-key org-mode-map "\C-c\C-m" 'org-insert-heading)
18636 (define-key org-mode-map "\M-\C-m"  'org-insert-heading)
18637 (define-key org-mode-map "\C-c\C-x\C-n" 'org-next-link)
18638 (define-key org-mode-map "\C-c\C-x\C-p" 'org-previous-link)
18639 (define-key org-mode-map "\C-c\C-l" 'org-insert-link)
18640 (define-key org-mode-map "\C-c\C-o" 'org-open-at-point)
18641 (define-key org-mode-map "\C-c%"    'org-mark-ring-push)
18642 (define-key org-mode-map "\C-c&"    'org-mark-ring-goto)
18643 (define-key org-mode-map "\C-c\C-z" 'org-time-stamp)  ; Alternative binding
18644 (define-key org-mode-map "\C-c."    'org-time-stamp)  ; Minor-mode reserved
18645 (define-key org-mode-map "\C-c!"    'org-time-stamp-inactive) ; Minor-mode r.
18646 (define-key org-mode-map "\C-c,"    'org-priority)    ; Minor-mode reserved
18647 (define-key org-mode-map "\C-c\C-y" 'org-evaluate-time-range)
18648 (define-key org-mode-map "\C-c>"    'org-goto-calendar)
18649 (define-key org-mode-map "\C-c<"    'org-date-from-calendar)
18650 (define-key org-mode-map [(control ?,)]     'org-cycle-agenda-files)
18651 (define-key org-mode-map [(control ?\')]     'org-cycle-agenda-files)
18652 (define-key org-mode-map "\C-c["    'org-agenda-file-to-front)
18653 (define-key org-mode-map "\C-c]"    'org-remove-file)
18654 (define-key org-mode-map "\C-c-"    'org-table-insert-hline)
18655 (define-key org-mode-map "\C-c^"    'org-sort)
18656 (define-key org-mode-map "\C-c\C-c" 'org-ctrl-c-ctrl-c)
18657 (define-key org-mode-map "\C-c#"    'org-update-checkbox-count)
18658 (define-key org-mode-map "\C-m"     'org-return)
18659 (define-key org-mode-map "\C-c?"    'org-table-field-info)
18660 (define-key org-mode-map "\C-c "    'org-table-blank-field)
18661 (define-key org-mode-map "\C-c+"    'org-table-sum)
18662 (define-key org-mode-map "\C-c="    'org-table-eval-formula)
18663 (define-key org-mode-map "\C-c'"    'org-table-edit-formulas)
18664 (define-key org-mode-map "\C-c`"    'org-table-edit-field)
18665 (define-key org-mode-map "\C-c|"    'org-table-create-or-convert-from-region)
18666 (define-key org-mode-map "\C-c*"    'org-table-recalculate)
18667 (define-key org-mode-map [(control ?#)] 'org-table-rotate-recalc-marks)
18668 (define-key org-mode-map "\C-c~"    'org-table-create-with-table.el)
18669 (define-key org-mode-map "\C-c\C-q" 'org-table-wrap-region)
18670 (define-key org-mode-map "\C-c}"    'org-table-toggle-coordinate-overlays)
18671 (define-key org-mode-map "\C-c{"    'org-table-toggle-formula-debugger)
18672 (define-key org-mode-map "\C-c\C-e" 'org-export)
18673 (define-key org-mode-map "\C-c:"    'org-toggle-fixed-width-section)
18675 (define-key org-mode-map "\C-c\C-x\C-k" 'org-cut-special)
18676 (define-key org-mode-map "\C-c\C-x\C-w" 'org-cut-special)
18677 (define-key org-mode-map "\C-c\C-x\M-w" 'org-copy-special)
18678 (define-key org-mode-map "\C-c\C-x\C-y" 'org-paste-special)
18680 (define-key org-mode-map "\C-c\C-x\C-t" 'org-toggle-time-stamp-overlays)
18681 (define-key org-mode-map "\C-c\C-x\C-i" 'org-clock-in)
18682 (define-key org-mode-map "\C-c\C-x\C-o" 'org-clock-out)
18683 (define-key org-mode-map "\C-c\C-x\C-x" 'org-clock-cancel)
18684 (define-key org-mode-map "\C-c\C-x\C-d" 'org-clock-display)
18685 (define-key org-mode-map "\C-c\C-x\C-r" 'org-clock-report)
18686 (define-key org-mode-map "\C-c\C-x\C-u" 'org-dblock-update)
18687 (define-key org-mode-map "\C-c\C-x\C-l" 'org-preview-latex-fragment)
18688 (define-key org-mode-map "\C-c\C-x\C-b" 'org-toggle-checkbox)
18691   (define-key org-mode-map 'button3   'popup-mode-menu))
18693 (defsubst org-table-p () (org-at-table-p))
18695 (defun org-self-insert-command (N)
18700   (if (and (org-table-p)
18703 	     (and org-table-auto-blank-field
18705 			  '(org-cycle org-return org-shifttab org-ctrl-c-ctrl-c))
18708 		      (let (org-table-may-need-update) (org-table-blank-field))
18710 		    (org-table-blank-field)))
18714       (let (org-table-may-need-update)
18719     (setq org-table-may-need-update t)
18722 (defun org-delete-backward-char (N)
18729   (if (and (org-table-p)
18735 	    (c org-table-may-need-update))
18742 	(if noalign (setq org-table-may-need-update c)))
18745 (defun org-delete-char (N)
18752   (if (and (org-table-p)
18759 		(c org-table-may-need-update))
18766 	    (if noalign (setq org-table-may-need-update c)))
18770 ;; Make `delete-selection-mode' work with org-mode and orgtbl-mode
18771 (put 'org-self-insert-command 'delete-selection t)
18773 (put 'org-delete-char 'delete-selection 'supersede)
18774 (put 'org-delete-backward-char 'delete-selection 'supersede)
18777 (put 'org-self-insert-command 'flyspell-delayed t)
18779 (put 'org-delete-char 'flyspell-delayed t)
18780 (put 'org-delete-backward-char 'flyspell-delayed t)
18786 (defun org-remap (map &rest commands)
18796 (when (eq org-enable-table-editor 'optimized)
18799   (org-remap org-mode-map
18800 	     'self-insert-command 'org-self-insert-command
18801 	     'delete-char 'org-delete-char
18802 	     'delete-backward-char 'org-delete-backward-char)
18803   (define-key org-mode-map "|" 'org-force-self-insert))
18805 (defun org-shiftcursor-error ()
18809 (defun org-shifttab (&optional arg)
18811 Calls `org-cycle' with argument t, or `org-table-previous-field', depending
18816    ((org-at-table-p) (call-interactively 'org-table-previous-field))
18818 	(org-content (prefix-numeric-value arg))
18819 	(setq org-cycle-global-status 'overview))
18820    (t (call-interactively 'org-global-cycle))))
18822 (defun org-shiftmetaleft ()
18824 Calls `org-promote-subtree' or `org-table-delete-column', depending on context.
18828    ((org-at-table-p) (call-interactively 'org-table-delete-column))
18829    ((org-on-heading-p) (call-interactively 'org-promote-subtree))
18830    ((org-at-item-p) (call-interactively 'org-outdent-item))
18831    (t (org-shiftcursor-error))))
18833 (defun org-shiftmetaright ()
18835 Calls `org-demote-subtree' or `org-table-insert-column', depending on context.
18839    ((org-at-table-p) (call-interactively 'org-table-insert-column))
18840    ((org-on-heading-p) (call-interactively 'org-demote-subtree))
18841    ((org-at-item-p) (call-interactively 'org-indent-item))
18842    (t (org-shiftcursor-error))))
18844 (defun org-shiftmetaup (&optional arg)
18846 Calls `org-move-subtree-up' or `org-table-kill-row' or
18847 `org-move-item-up' depending on context.  See the individual commands
18851    ((org-at-table-p) (call-interactively 'org-table-kill-row))
18852    ((org-on-heading-p) (call-interactively 'org-move-subtree-up))
18853    ((org-at-item-p) (call-interactively 'org-move-item-up))
18854    (t (org-shiftcursor-error))))
18855 (defun org-shiftmetadown (&optional arg)
18857 Calls `org-move-subtree-down' or `org-table-insert-row' or
18858 `org-move-item-down', depending on context.  See the individual
18862    ((org-at-table-p) (call-interactively 'org-table-insert-row))
18863    ((org-on-heading-p) (call-interactively 'org-move-subtree-down))
18864    ((org-at-item-p) (call-interactively 'org-move-item-down))
18865    (t (org-shiftcursor-error))))
18867 (defun org-metaleft (&optional arg)
18869 Calls `org-do-promote' or `org-table-move-column', depending on context.
18874    ((org-at-table-p) (org-call-with-arg 'org-table-move-column 'left))
18875    ((or (org-on-heading-p) (org-region-active-p))
18876     (call-interactively 'org-do-promote))
18877    ((org-at-item-p) (call-interactively 'org-outdent-item))
18880 (defun org-metaright (&optional arg)
18882 Calls `org-do-demote' or `org-table-move-column', depending on context.
18887    ((org-at-table-p) (call-interactively 'org-table-move-column))
18888    ((or (org-on-heading-p) (org-region-active-p))
18889     (call-interactively 'org-do-demote))
18890    ((org-at-item-p) (call-interactively 'org-indent-item))
18893 (defun org-metaup (&optional arg)
18895 Calls `org-move-subtree-up' or `org-table-move-row' or
18896 `org-move-item-up', depending on context.  See the individual commands
18900    ((org-at-table-p) (org-call-with-arg 'org-table-move-row 'up))
18901    ((org-on-heading-p) (call-interactively 'org-move-subtree-up))
18902    ((org-at-item-p) (call-interactively 'org-move-item-up))
18903    (t (org-shiftcursor-error))))
18905 (defun org-metadown (&optional arg)
18907 Calls `org-move-subtree-down' or `org-table-move-row' or
18908 `org-move-item-down', depending on context.  See the individual
18912    ((org-at-table-p) (call-interactively 'org-table-move-row))
18913    ((org-on-heading-p) (call-interactively 'org-move-subtree-down))
18914    ((org-at-item-p) (call-interactively 'org-move-item-down))
18915    (t (org-shiftcursor-error))))
18917 (defun org-shiftup (&optional arg)
18919 Calls `org-timestamp-up' or `org-priority-up', depending on context.
18923    ((org-at-timestamp-p t) (call-interactively 'org-timestamp-up))
18924    ((org-on-heading-p) (call-interactively 'org-priority-up))
18925    ((org-at-item-p) (call-interactively 'org-previous-item))
18926    (t (call-interactively 'org-beginning-of-item) (beginning-of-line 1))))
18928 (defun org-shiftdown (&optional arg)
18930 Calls `org-timestamp-down' or `org-priority-down', depending on context.
18934    ((org-at-timestamp-p t) (call-interactively 'org-timestamp-down))
18935    ((org-on-heading-p) (call-interactively 'org-priority-down))
18936    (t (call-interactively 'org-next-item))))
18938 (defun org-shiftright ()
18942    ((org-at-timestamp-p t) (call-interactively 'org-timestamp-up-day))
18943    ((org-on-heading-p) (org-call-with-arg 'org-todo 'right))
18944    (t (org-shiftcursor-error))))
18946 (defun org-shiftleft ()
18950    ((org-at-timestamp-p t) (call-interactively 'org-timestamp-down-day))
18951    ((org-on-heading-p) (org-call-with-arg 'org-todo 'left))
18952    (t (org-shiftcursor-error))))
18954 (defun org-copy-special ()
18956 Calls `org-table-copy' or `org-copy-subtree', depending on context.
18960    (if (org-at-table-p) 'org-table-copy-region 'org-copy-subtree)))
18962 (defun org-cut-special ()
18964 Calls `org-table-copy' or `org-cut-subtree', depending on context.
18968    (if (org-at-table-p) 'org-table-cut-region 'org-cut-subtree)))
18970 (defun org-paste-special (arg)
18972 Calls `org-table-paste-rectangle' or `org-paste-subtree', depending on context.
18975   (if (org-at-table-p)
18976       (org-table-paste-rectangle)
18977     (org-paste-subtree arg)))
18979 (defun org-ctrl-c-ctrl-c (&optional arg)
18985   into the current line, aligned to `org-tags-column'.  When called
19011   (let  ((org-enable-table-editor t))
19013      ((or org-clock-overlays
19014 	  org-occur-highlights
19015 	  org-latex-fragment-image-overlays)
19016       (org-remove-clock-overlays)
19017       (org-remove-occur-highlights)
19018       (org-remove-latex-fragment-image-overlays)
19020      ((and (local-variable-p 'org-finish-function (current-buffer))
19021 	   (fboundp org-finish-function))
19022       (funcall org-finish-function))
19023      ((org-on-target-p) (call-interactively 'org-update-radio-target-regexp))
19024      ((org-on-heading-p) (call-interactively 'org-set-tags))
19025      ((org-at-table.el-p)
19030      ((org-at-table-p)
19031       (org-table-maybe-eval-formula)
19033 	  (call-interactively 'org-table-recalculate)
19034 	(org-table-maybe-recalculate-line))
19035       (call-interactively 'org-table-align))
19036      ((org-at-item-checkbox-p)
19037       (call-interactively 'org-toggle-checkbox))
19038      ((org-at-item-p)
19039       (call-interactively 'org-renumber-ordered-list))
19047 	  (if (org-at-table-p)
19048 	      (org-call-with-arg 'org-table-recalculate t))))
19050 	(call-interactively 'org-mode-restart))))
19053 (defun org-mode-restart ()
19057   (let ((org-inhibit-startup t)) (org-mode))
19060 (defun org-return ()
19062 Calls `org-table-next-row' or `newline', depending on context.
19066    ((org-at-table-p)
19067     (org-table-justify-field-maybe)
19068     (call-interactively 'org-table-next-row))
19071 (defun org-meta-return (&optional arg)
19073 Calls `org-insert-heading' or `org-table-wrap-region', depending on context.
19077    ((org-at-table-p)
19078     (call-interactively 'org-table-wrap-region))
19079    (t (call-interactively 'org-insert-heading))))
19084 (easy-menu-define org-tbl-menu org-mode-map "Tbl menu"
19086     ["Align" org-ctrl-c-ctrl-c (org-at-table-p)]
19087     ["Next Field" org-cycle (org-at-table-p)]
19088     ["Previous Field" org-shifttab (org-at-table-p)]
19089     ["Next Row" org-return (org-at-table-p)]
19091     ["Blank Field" org-table-blank-field (org-at-table-p)]
19092     ["Edit Field" org-table-edit-field (org-at-table-p)]
19093     ["Copy Field from Above" org-table-copy-down (org-at-table-p)]
19096      ["Move Column Left" org-metaleft (org-at-table-p)]
19097      ["Move Column Right" org-metaright (org-at-table-p)]
19098      ["Delete Column" org-shiftmetaleft (org-at-table-p)]
19099      ["Insert Column" org-shiftmetaright (org-at-table-p)])
19101      ["Move Row Up" org-metaup (org-at-table-p)]
19102      ["Move Row Down" org-metadown (org-at-table-p)]
19103      ["Delete Row" org-shiftmetaup (org-at-table-p)]
19104      ["Insert Row" org-shiftmetadown (org-at-table-p)]
19105      ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
19107      ["Insert Hline" org-table-insert-hline (org-at-table-p)])
19109      ["Copy Rectangle" org-copy-special (org-at-table-p)]
19110      ["Cut Rectangle" org-cut-special (org-at-table-p)]
19111      ["Paste Rectangle" org-paste-special (org-at-table-p)]
19112      ["Fill Rectangle" org-table-wrap-region (org-at-table-p)])
19115      ["Set Column Formula" org-table-eval-formula (org-at-table-p)]
19116      ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
19117      ["Edit Formulas" org-table-edit-formulas (org-at-table-p)]
19119      ["Recalculate line" org-table-recalculate (org-at-table-p)]
19120      ["Recalculate all" (lambda () (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"]
19121      ["Iterate all" (lambda () (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"]
19123      ["Toggle Recalculate Mark" org-table-rotate-recalc-marks (org-at-table-p)]
19125      ["Sum Column/Rectangle" org-table-sum
19126       (or (org-at-table-p) (org-region-active-p))]
19127      ["Which Column?" org-table-current-column (org-at-table-p)])
19129      org-table-toggle-formula-debugger
19130      :style toggle :selected org-table-formula-debug]
19132      org-table-toggle-coordinate-overlays
19133      :style toggle :selected org-table-overlay-coordinates]
19135     ["Create" org-table-create (and (not (org-at-table-p))
19136 				    org-enable-table-editor)]
19137     ["Convert Region" org-table-convert-region (not (org-at-table-p 'any))]
19138     ["Import from File" org-table-import (not (org-at-table-p))]
19139     ["Export to File" org-table-export (org-at-table-p)]
19141     ["Create/Convert from/to table.el" org-table-create-with-table.el t]))
19143 (easy-menu-define org-org-menu org-mode-map "Org menu"
19146      ["Cycle Visibility" org-cycle (or (bobp) (outline-on-heading-p))]
19147      ["Cycle Global Visibility" org-shifttab (not (org-at-table-p))]
19148      ["Sparse Tree" org-occur t]
19149      ["Reveal Context" org-reveal t]
19152      ["Subtree to indirect buffer" org-tree-to-indirect-buffer t])
19154     ["New Heading" org-insert-heading t]
19162      ["Jump" org-goto t])
19164      ["Move Subtree Up" org-shiftmetaup (not (org-at-table-p))]
19165      ["Move Subtree Down" org-shiftmetadown (not (org-at-table-p))]
19167      ["Copy Subtree"  org-copy-special (not (org-at-table-p))]
19168      ["Cut Subtree"  org-cut-special (not (org-at-table-p))]
19169      ["Paste Subtree"  org-paste-special (not (org-at-table-p))]
19171      ["Promote Heading" org-metaleft (not (org-at-table-p))]
19172      ["Promote Subtree" org-shiftmetaleft (not (org-at-table-p))]
19173      ["Demote Heading"  org-metaright (not (org-at-table-p))]
19174      ["Demote Subtree"  org-shiftmetaright (not (org-at-table-p))]
19176      ["Sort Region/Children" org-sort  (not (org-at-table-p))]
19178      ["Convert to odd levels" org-convert-to-odd-levels t]
19179      ["Convert to odd/even levels" org-convert-to-oddeven-levels t])
19181      ["Toggle ARCHIVE tag" org-toggle-archive-tag t]
19182 ;     ["Check and Tag Children" (org-toggle-archive-tag (4))
19185       (setq org-sparse-tree-open-archived-trees
19186 	    (not org-sparse-tree-open-archived-trees))
19187       :style toggle :selected org-sparse-tree-open-archived-trees]
19189       (setq org-cycle-open-archived-trees (not org-cycle-open-archived-trees))
19190       :style toggle :selected org-cycle-open-archived-trees]
19192       (setq org-agenda-skip-archived-trees (not org-agenda-skip-archived-trees))
19193       :style toggle :selected (not org-agenda-skip-archived-trees)]
19195      ["Move Subtree to Archive" org-advertized-archive-subtree t]
19196  ;    ["Check and Move Children" (org-archive-subtree '(4))
19201      ["TODO/DONE/-" org-todo t]
19203       ["Next keyword" org-shiftright (org-on-heading-p)]
19204       ["Previous keyword" org-shiftleft (org-on-heading-p)]
19205       ["Complete Keyword" org-complete (assq :todo-keyword (org-context))])
19206      ["Show TODO Tree" org-show-todo-tree t]
19207      ["Global TODO list" org-todo-list t]
19209      ["Set Priority" org-priority t]
19210      ["Priority Up" org-shiftup t]
19211      ["Priority Down" org-shiftdown t]
19213 ;     ["Insert Checkbox" org-insert-todo-heading (org-in-item-p)]
19214 ;     ["Toggle Checkbox" org-ctrl-c-ctrl-c (org-at-item-checkbox-p)]
19215 ;     ["Insert [n/m] cookie" (progn (insert "[/]") (org-update-checkbox-count))
19216 ;      (or (org-on-heading-p) (org-at-item-p))]
19217 ;     ["Insert [%] cookie" (progn (insert "[%]") (org-update-checkbox-count))
19218 ;      (or (org-on-heading-p) (org-at-item-p))]
19219 ;     ["Update Statistics" org-update-checkbox-count t]
19222      ["Timestamp" org-time-stamp t]
19223      ["Timestamp (inactive)" org-time-stamp-inactive t]
19225       ["1 Day Later" org-shiftright t]
19226       ["1 Day Earlier" org-shiftleft t]
19227       ["1 ... Later" org-shiftup t]
19228       ["1 ... Earlier" org-shiftdown t])
19229      ["Compute Time Range" org-evaluate-time-range t]
19230      ["Schedule Item" org-schedule t]
19231      ["Deadline" org-deadline t]
19233      ["Custom time format" org-toggle-time-stamp-overlays
19234       :style radio :selected org-display-custom-times]
19236      ["Goto Calendar" org-goto-calendar t]
19237      ["Date from Calendar" org-date-from-calendar t])
19239      ["Clock in" org-clock-in t]
19240      ["Clock out" org-clock-out t]
19241      ["Clock cancel" org-clock-cancel t]
19242      ["Display times" org-clock-display t]
19243      ["Create clock table" org-clock-report t]
19246       (progn (setq org-log-done (not org-log-done))
19248 		      org-done-string
19249 		      (if org-log-done "automatically" "not")))
19250       :style toggle :selected org-log-done])
19252     ["Agenda Command..." org-agenda t]
19255      ["TODO Tree"  org-show-todo-tree t]
19256      ["Check Deadlines" org-check-deadlines t]
19257      ["Timeline" org-timeline t]
19258      ["Tags Tree" org-tags-sparse-tree t])
19261      ["Store Link (Global)" org-store-link t]
19262      ["Insert Link" org-insert-link t]
19263      ["Follow Link" org-open-at-point t]
19265      ["Next link" org-next-link t]
19266      ["Previous link" org-previous-link t]
19269       (progn (org-add-to-invisibility-spec '(org-link)) (org-restart-font-lock))
19270       :style radio :selected (member '(org-link) buffer-invisibility-spec)]
19273 	(org-remove-from-invisibility-spec '(org-link)) (org-restart-font-lock))
19274       :style radio :selected (not (member '(org-link) buffer-invisibility-spec))])
19276     ["Export/Publish..." org-export t]
19278      ["Org CDLaTeX mode" org-cdlatex-mode :style toggle
19279       :selected org-cdlatex-mode]
19282      ["Modify math symbol" org-cdlatex-math-modify
19283       (org-inside-LaTeX-fragment-p)]
19285       (setq org-export-with-LaTeX-fragments (not org-export-with-LaTeX-fragments))
19286       :style toggle :selected org-export-with-LaTeX-fragments])
19289      ["Show Version" org-version t]
19290      ["Info Documentation" org-info t])
19292      ["Browse Org Group" org-customize t]
19294      ["Expand This Menu" org-create-customize-menu
19297     ["Refresh setup" org-mode-restart t]
19300 (defun org-toggle-log-option (type)
19301   (if (not (listp org-log-done)) (setq org-log-done nil))
19302   (if (memq type org-log-done)
19303       (setq org-log-done (delq type org-log-done))
19304     (add-to-list 'org-log-done type)))
19306 (defun org-check-log-option (type)
19307   (and (listp org-log-done) (memq type org-log-done)))
19309 (defun org-info (&optional node)
19314   (Info-goto-node (format "(org)%s" (or node ""))))
19316 (defun org-install-agenda-files-menu ()
19321 	(if (org-mode-p) (setq bl nil)))
19322       (when (org-mode-p)
19327 	   ["Edit File List" (org-edit-agenda-file-list) t]
19328 	   ["Add/Move Current File to Front of List" org-agenda-file-to-front t]
19329 	   ["Remove Current File from List" org-remove-file t]
19330 	   ["Cycle through agenda files" org-cycle-agenda-files t]
19332 	  (mapcar 'org-file-menu-entry (org-agenda-files t))))))))
19336 (defun org-customize ()
19337   "Call the customize function with org as argument."
19339   (customize-browse 'org))
19341 (defun org-create-customize-menu ()
19348 	 `(["Browse Org group" org-customize t]
19350 	   ,(customize-menu-create 'org)
19364 (defun org-context ()
19379 :table            in an org-mode table
19397      ((org-on-heading-p)
19401 	      (looking-at org-todo-line-tags-regexp))
19402 	(push (org-point-in-group p 1 :headline-stars) clist)
19403 	(push (org-point-in-group p 2 :todo-keyword) clist)
19404 	(push (org-point-in-group p 4 :tags) clist))
19408 	  (push (org-point-in-group p 0 :priority) clist)))
19410      ((org-at-item-p)
19411       (push (org-point-in-group p 2 :item-bullet) clist)
19413 		  (save-excursion (org-end-of-item) (point)))
19415       (and (org-at-item-checkbox-p)
19416 	   (push (org-point-in-group p 0 :checkbox) clist)))
19418      ((org-at-table-p)
19419       (push (list :table (org-table-begin) (org-table-end)) clist)
19420       (if (memq 'org-formula faces)
19424      ((org-at-table-p 'any)
19430      ((org-at-timestamp-p)
19431       (push (org-point-in-group p 0 :timestamp) clist))
19432      ((memq 'org-link faces)
19436      ((memq 'org-special-keyword faces)
19440      ((org-on-target-p)
19441       (push (org-point-in-group p 0 :target) clist)
19443       (if (looking-at org-radio-target-regexp)
19444 	  (push (org-point-in-group p 0 :radio-target) clist))
19449 			    (if (memq x org-latex-fragment-image-overlays) x))
19450 			  (org-overlays-at (point))))))
19452 		  (org-overlay-start o) (org-overlay-end o)) clist)
19454 		  (org-overlay-start o) (org-overlay-end o)) clist))
19455      ((org-inside-LaTeX-fragment-p)
19462 (defun org-in-regexp (re &optional nlines visually)
19463   "Check if point is inside a match of regexp.
19479 (defun org-point-in-group (point group &optional context)
19491 (defun org-combine-plists (&rest plists)
19505 (defun org-move-line-down (arg)
19518 (defun org-move-line-up (arg)
19531 (defun org-replace-escapes (string table)
19548 (defun org-sublist (list start end)
19558 (defun org-at-regexp-p (regexp)
19564 	(while (re-search-forward regexp end t)
19570 (defun org-find-base-buffer-visiting (file)
19580 (defun org-set-autofill-regexps ()
19585   (org-set-local 'comment-start-skip "^#+[ \t]*")
19586   (org-set-local 'paragraph-separate "\f\\|\\*\\|[ 	]*$\\|[ \t]*[:|]")
19588   (org-set-local 'paragraph-start
19592   (org-set-local
19593    'auto-fill-inhibit-regexp
19595 	   "\\|[ \t]*" org-keyword-time-regexp
19596 	   (if (or org-enable-table-editor org-enable-fixed-width-editor)
19599 		(if org-enable-table-editor "|" "")
19600 		(if org-enable-fixed-width-editor ":"  "")
19605   (org-set-local 'fill-paragraph-function 'org-fill-paragraph)
19607   ;; `adaptive-fill-regexp' never matches.  Then install our own matcher.
19608   (org-set-local 'adaptive-fill-regexp "\000")
19609   (org-set-local 'adaptive-fill-function
19610 		 'org-adaptive-fill-function))
19612 (defun org-fill-paragraph (&optional justify)
19614   (let ((table-p (org-at-table-p))
19615 	(table.el-p (org-at-table.el-p)))
19618 	  (table-p (org-table-align) t)              ; align org-mode tables
19621 ;; For reference, this is the default value of adaptive-fill-regexp
19624 (defun org-adaptive-fill-function ()
19625   "Return a fill prefix for org-mode files.
19635 (defun org-image-file-name-regexp ()
19636   "Return regexp matching the file names of images."
19637   (if (fboundp 'image-file-name-regexp)
19638       (image-file-name-regexp)
19643 	      (regexp-opt (nconc (mapcar 'upcase
19649 (defun org-file-image-p (file)
19652     (string-match (org-image-file-name-regexp) file)))
19658 (defun org-beginning-of-line ()
19666     (if (org-invisible-p)
19667 	(while (and (not (bobp)) (org-invisible-p))
19672 (define-key org-mode-map "\C-a" 'org-beginning-of-line)
19674 (defun org-invisible-p ()
19681 (defun org-invisible-p2 ()
19690 (defalias 'org-back-to-heading 'outline-back-to-heading)
19691 (defalias 'org-on-heading-p 'outline-on-heading-p)
19693 (defun org-on-target-p ()
19694   (or (org-in-regexp org-radio-target-regexp)
19695       (org-in-regexp org-target-regexp)))
19697 (defun org-up-heading-all (arg)
19705 (defun org-goto-sibling (&optional previous)
19712 	(re (concat "^" outline-regexp))
19714     (org-back-to-heading t)
19725 (defun org-show-siblings ()
19728     (while (org-goto-sibling) (org-flag-heading nil)))
19730     (while (org-goto-sibling 'previous)
19731       (org-flag-heading nil))))
19733 (defun org-show-hidden-entry ()
19736     (org-show-entry)))
19738 (defun org-flag-heading (flag &optional entry)
19742     (org-back-to-heading t)
19746 	  (org-show-entry)
19749 		 (org-flag-heading nil))))
19754 (defun org-end-of-subtree (&optional invisible-OK)
19756   ;; `org-back-to-heading', to make it work also in invisible
19759   (org-back-to-heading invisible-OK)
19775 (defun org-show-subtree ()
19783 (defun org-show-entry ()
19788     (org-back-to-heading t)
19792        (re-search-forward (concat "[\r\n]\\(" outline-regexp "\\)") nil 'move)
19796 (defun org-make-options-regexp (kwds)
19801    (mapconcat 'regexp-quote kwds "\\|")
19806 (defun org-isearch-end ()
19812 	(org-show-context 'isearch)
19815       ;; (Emacs 22 has a special variable, see function `org-mode')
19819 	(org-add-hook 'post-command-hook 'org-isearch-post-command
19822 (defun org-isearch-post-command ()
19824   (remove-hook 'post-command-hook 'org-isearch-post-command 'local)
19825   (org-show-context 'isearch))
19833        (add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
19835      (defadvice bookmark-jump (after org-make-visible activate)
19837        (org-bookmark-jump-unhide))))
19839 (defun org-bookmark-jump-unhide ()
19841   (and (org-mode-p)
19842        (or (org-invisible-p)
19844 			   (org-invisible-p)))
19845        (org-show-context 'bookmark-jump)))
19849   '(add-to-list 'session-globals-exclude 'org-mark-ring))
19856 (provide 'org)
19858 (run-hooks 'org-load-hook)
19861 ;;; org.el ends here