Release 5.16a

ChangeLog

@@ -1,3 +1,7 @@
+2007-12-03  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org.el (org-context-choices): New constant.
+
 2007-11-30  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org.el (org-imenu-depth): New option.

org

@@ -5,7 +5,7 @@ START-INFO-DIR-ENTRY
 * Org Mode: (org).      Outline-based notes management and organizer
 END-INFO-DIR-ENTRY
 
-   This manual is for Org-mode (version 5.16).
+   This manual is for Org-mode (version 5.16a).
 
    Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation
 
@@ -27,7 +27,7 @@ File: org,  Node: Top,  Next: Introduction,  Prev: (dir),  Up: (dir)
 Org Mode Manual
 ***************
 
-This manual is for Org-mode (version 5.16).
+This manual is for Org-mode (version 5.16a).
 
    Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation
 
@@ -8816,239 +8816,239 @@ Key Index
 
 
 Tag Table:
-Node: Top970
+Node: Top971
-Node: Introduction13509
+Node: Introduction13511
-Node: Summary13995
+Node: Summary13997
-Node: Installation17132
+Node: Installation17134
-Node: Activation18510
+Node: Activation18512
-Node: Feedback19747
+Node: Feedback19749
-Node: Conventions21836
+Node: Conventions21838
-Node: Document structure22528
+Node: Document structure22530
-Node: Outlines23420
+Node: Outlines23422
-Node: Headlines24085
+Node: Headlines24087
-Ref: Headlines-Footnote-125089
+Ref: Headlines-Footnote-125091
-Node: Visibility cycling25200
+Node: Visibility cycling25202
-Ref: Visibility cycling-Footnote-127410
+Ref: Visibility cycling-Footnote-127412
-Ref: Visibility cycling-Footnote-227468
+Ref: Visibility cycling-Footnote-227470
-Ref: Visibility cycling-Footnote-327518
+Ref: Visibility cycling-Footnote-327520
-Node: Motion27788
+Node: Motion27790
-Node: Structure editing28742
+Node: Structure editing28744
-Node: Archiving31990
+Node: Archiving31992
-Node: ARCHIVE tag32548
+Node: ARCHIVE tag32550
-Node: Moving subtrees34341
+Node: Moving subtrees34343
-Ref: Moving subtrees-Footnote-135888
+Ref: Moving subtrees-Footnote-135890
-Node: Sparse trees36332
+Node: Sparse trees36334
-Ref: Sparse trees-Footnote-138604
+Ref: Sparse trees-Footnote-138606
-Ref: Sparse trees-Footnote-238786
+Ref: Sparse trees-Footnote-238788
-Node: Plain lists38901
+Node: Plain lists38903
-Ref: Plain lists-Footnote-143098
+Ref: Plain lists-Footnote-143100
-Ref: Plain lists-Footnote-243456
+Ref: Plain lists-Footnote-243458
-Node: Drawers43637
+Node: Drawers43639
-Ref: Drawers-Footnote-144514
+Ref: Drawers-Footnote-144516
-Node: orgstruct-mode44620
+Node: orgstruct-mode44622
-Node: Tables45520
+Node: Tables45522
-Node: Built-in table editor46101
+Node: Built-in table editor46103
-Node: Narrow columns53518
+Node: Narrow columns53520
-Ref: Narrow columns-Footnote-155453
+Ref: Narrow columns-Footnote-155455
-Node: Column groups55499
+Node: Column groups55501
-Node: orgtbl-mode57032
+Node: orgtbl-mode57034
-Node: The spreadsheet57835
+Node: The spreadsheet57837
-Node: References58922
+Node: References58924
-Ref: References-Footnote-163389
+Ref: References-Footnote-163391
-Ref: References-Footnote-263530
+Ref: References-Footnote-263532
-Node: Formula syntax for Calc63819
+Node: Formula syntax for Calc63821
-Node: Formula syntax for Lisp66276
+Node: Formula syntax for Lisp66278
-Node: Field formulas67994
+Node: Field formulas67996
-Node: Column formulas69302
+Node: Column formulas69304
-Node: Editing and debugging formulas70901
+Node: Editing and debugging formulas70903
-Node: Updating the table75054
+Node: Updating the table75056
-Node: Advanced features76107
+Node: Advanced features76109
-Node: Hyperlinks80632
+Node: Hyperlinks80634
-Node: Link format81410
+Node: Link format81412
-Node: Internal links82703
+Node: Internal links82705
-Ref: Internal links-Footnote-184628
+Ref: Internal links-Footnote-184630
-Node: Radio targets84763
+Node: Radio targets84765
-Node: External links85463
+Node: External links85465
-Node: Handling links87867
+Node: Handling links87869
-Ref: Handling links-Footnote-193183
+Ref: Handling links-Footnote-193185
-Ref: Handling links-Footnote-293420
+Ref: Handling links-Footnote-293422
-Node: Using links outside Org-mode93494
+Node: Using links outside Org-mode93496
-Node: Link abbreviations94004
+Node: Link abbreviations94006
-Node: Search options95697
+Node: Search options95699
-Ref: Search options-Footnote-197477
+Ref: Search options-Footnote-197479
-Node: Custom searches97558
+Node: Custom searches97560
-Node: TODO items98589
+Node: TODO items98591
-Node: TODO basics99627
+Node: TODO basics99629
-Node: TODO extensions101842
+Node: TODO extensions101844
-Node: Workflow states102786
+Node: Workflow states102788
-Ref: Workflow states-Footnote-1103961
+Ref: Workflow states-Footnote-1103963
-Node: TODO types104054
+Node: TODO types104056
-Ref: TODO types-Footnote-1105637
+Ref: TODO types-Footnote-1105639
-Node: Multiple sets in one file105719
+Node: Multiple sets in one file105721
-Node: Fast access to TODO states107339
+Node: Fast access to TODO states107341
-Node: Per file keywords108482
+Node: Per file keywords108484
-Ref: Per file keywords-Footnote-1109784
+Ref: Per file keywords-Footnote-1109786
-Node: Faces for TODO keywords109985
+Node: Faces for TODO keywords109987
-Node: Progress logging110691
+Node: Progress logging110693
-Node: Closing items111122
+Node: Closing items111124
-Ref: Closing items-Footnote-1112056
+Ref: Closing items-Footnote-1112058
-Ref: Closing items-Footnote-2112261
+Ref: Closing items-Footnote-2112263
-Node: Tracking TODO state changes112334
+Node: Tracking TODO state changes112336
-Ref: Tracking TODO state changes-Footnote-1113519
+Ref: Tracking TODO state changes-Footnote-1113521
-Node: Priorities113594
+Node: Priorities113596
-Ref: Priorities-Footnote-1115244
+Ref: Priorities-Footnote-1115246
-Node: Breaking down tasks115314
+Node: Breaking down tasks115316
-Ref: Breaking down tasks-Footnote-1115834
+Ref: Breaking down tasks-Footnote-1115836
-Node: Checkboxes115930
+Node: Checkboxes115932
-Node: Tags118779
+Node: Tags118781
-Node: Tag inheritance119551
+Node: Tag inheritance119553
-Node: Setting tags120488
+Node: Setting tags120490
-Ref: Setting tags-Footnote-1125011
+Ref: Setting tags-Footnote-1125013
-Ref: Setting tags-Footnote-2125123
+Ref: Setting tags-Footnote-2125125
-Node: Tag searches125206
+Node: Tag searches125208
-Node: Properties and columns127982
+Node: Properties and columns127984
-Node: Property syntax129153
+Node: Property syntax129155
-Node: Special properties131843
+Node: Special properties131845
-Node: Property searches132914
+Node: Property searches132916
-Node: Property inheritance134175
+Node: Property inheritance134177
-Node: Column view135622
+Node: Column view135624
-Node: Defining columns136856
+Node: Defining columns136858
-Node: Scope of column definitions137254
+Node: Scope of column definitions137256
-Node: Column attributes138176
+Node: Column attributes138178
-Node: Using column view140572
+Node: Using column view140574
-Node: Capturing Column View142653
+Node: Capturing Column View142655
-Node: Property API144380
+Node: Property API144382
-Node: Dates and times144734
+Node: Dates and times144736
-Node: Time stamps145463
+Node: Time stamps145465
-Ref: Time stamps-Footnote-1147827
+Ref: Time stamps-Footnote-1147829
-Node: Creating timestamps147943
+Node: Creating timestamps147945
-Node: The date/time prompt150022
+Node: The date/time prompt150024
-Ref: The date/time prompt-Footnote-1153378
+Ref: The date/time prompt-Footnote-1153380
-Ref: The date/time prompt-Footnote-2153434
+Ref: The date/time prompt-Footnote-2153436
-Ref: The date/time prompt-Footnote-3153540
+Ref: The date/time prompt-Footnote-3153542
-Node: Custom time format153633
+Node: Custom time format153635
-Node: Deadlines and scheduling155325
+Node: Deadlines and scheduling155327
-Ref: Deadlines and scheduling-Footnote-1157403
+Ref: Deadlines and scheduling-Footnote-1157405
-Node: Inserting deadline/schedule157558
+Node: Inserting deadline/schedule157560
-Node: Repeated tasks158676
+Node: Repeated tasks158678
-Ref: Repeated tasks-Footnote-1160354
+Ref: Repeated tasks-Footnote-1160356
-Node: Clocking work time160475
+Node: Clocking work time160477
-Ref: Clocking work time-Footnote-1165327
+Ref: Clocking work time-Footnote-1165329
-Ref: Clocking work time-Footnote-2165405
+Ref: Clocking work time-Footnote-2165407
-Node: Remember165531
+Node: Remember165533
-Node: Setting up remember166477
+Node: Setting up remember166479
-Ref: Setting up remember-Footnote-1167386
+Ref: Setting up remember-Footnote-1167388
-Node: Remember templates167452
+Node: Remember templates167454
-Ref: Remember templates-Footnote-1171091
+Ref: Remember templates-Footnote-1171093
-Ref: Remember templates-Footnote-2171274
+Ref: Remember templates-Footnote-2171276
-Node: Storing notes171372
+Node: Storing notes171374
-Ref: Storing notes-Footnote-1173883
+Ref: Storing notes-Footnote-1173885
-Node: Refiling notes173985
+Node: Refiling notes173987
-Node: Agenda views175250
+Node: Agenda views175252
-Node: Agenda files177201
+Node: Agenda files177203
-Ref: Agenda files-Footnote-1179642
+Ref: Agenda files-Footnote-1179644
-Ref: Agenda files-Footnote-2179791
+Ref: Agenda files-Footnote-2179793
-Node: Agenda dispatcher179984
+Node: Agenda dispatcher179986
-Ref: Agenda dispatcher-Footnote-1182038
+Ref: Agenda dispatcher-Footnote-1182040
-Ref: Agenda dispatcher-Footnote-2182132
+Ref: Agenda dispatcher-Footnote-2182134
-Node: Built-in agenda views182226
+Node: Built-in agenda views182228
-Node: Weekly/Daily agenda182808
+Node: Weekly/Daily agenda182810
-Ref: Weekly/Daily agenda-Footnote-1186106
+Ref: Weekly/Daily agenda-Footnote-1186108
-Node: Global TODO list186310
+Node: Global TODO list186312
-Node: Matching tags and properties188590
+Node: Matching tags and properties188592
-Node: Timeline189681
+Node: Timeline189683
-Node: Stuck projects190355
+Node: Stuck projects190357
-Node: Presentation and sorting192208
+Node: Presentation and sorting192210
-Node: Categories193001
+Node: Categories193003
-Ref: Categories-Footnote-1193712
+Ref: Categories-Footnote-1193714
-Node: Time-of-day specifications194149
+Node: Time-of-day specifications194151
-Node: Sorting of agenda items196122
+Node: Sorting of agenda items196124
-Node: Agenda commands197406
+Node: Agenda commands197408
-Node: Custom agenda views204869
+Node: Custom agenda views204871
-Node: Storing searches205590
+Node: Storing searches205592
-Ref: Storing searches-Footnote-1208124
+Ref: Storing searches-Footnote-1208126
-Node: Block agenda208241
+Node: Block agenda208243
-Node: Setting Options209473
+Node: Setting Options209475
-Node: Exporting Agenda Views212214
+Node: Exporting Agenda Views212216
-Ref: Exporting Agenda Views-Footnote-1216571
+Ref: Exporting Agenda Views-Footnote-1216573
-Ref: Exporting Agenda Views-Footnote-2216628
+Ref: Exporting Agenda Views-Footnote-2216630
-Node: Extracting Agenda Information for other programs216814
+Node: Extracting Agenda Information for other programs216816
-Node: Embedded LaTeX220942
+Node: Embedded LaTeX220944
-Ref: Embedded LaTeX-Footnote-1222036
+Ref: Embedded LaTeX-Footnote-1222038
-Node: Math symbols222226
+Node: Math symbols222228
-Node: Subscripts and Superscripts222993
+Node: Subscripts and Superscripts222995
-Node: LaTeX fragments223839
+Node: LaTeX fragments223841
-Ref: LaTeX fragments-Footnote-1226072
+Ref: LaTeX fragments-Footnote-1226074
-Ref: LaTeX fragments-Footnote-2226333
+Ref: LaTeX fragments-Footnote-2226335
-Node: Processing LaTeX fragments226467
+Node: Processing LaTeX fragments226469
-Node: CDLaTeX mode227415
+Node: CDLaTeX mode227417
-Ref: CDLaTeX mode-Footnote-1229901
+Ref: CDLaTeX mode-Footnote-1229903
-Node: Exporting230049
+Node: Exporting230051
-Node: ASCII export231516
+Node: ASCII export231518
-Node: HTML export233017
+Node: HTML export233019
-Node: HTML Export commands233643
+Node: HTML Export commands233645
-Node: Quoting HTML tags235430
+Node: Quoting HTML tags235432
-Node: Links236065
+Node: Links236067
-Node: Images236762
+Node: Images236764
-Ref: Images-Footnote-1237633
+Ref: Images-Footnote-1237635
-Node: CSS support237694
+Node: CSS support237696
-Ref: CSS support-Footnote-1239013
+Ref: CSS support-Footnote-1239015
-Node: LaTeX export239126
+Node: LaTeX export239128
-Node: LaTeX export commands239475
+Node: LaTeX export commands239477
-Node: Quoting LaTeX code240637
+Node: Quoting LaTeX code240639
-Node: Sectioning structure241171
+Node: Sectioning structure241173
-Node: XOXO export241672
+Node: XOXO export241674
-Node: iCalendar export242112
+Node: iCalendar export242114
-Node: Text interpretation243581
+Node: Text interpretation243583
-Node: Comment lines244236
+Node: Comment lines244238
-Node: Initial text244631
+Node: Initial text244633
-Node: Footnotes246300
+Node: Footnotes246302
-Node: Quoted examples247092
+Node: Quoted examples247094
-Node: Enhancing text247867
+Node: Enhancing text247869
-Node: Export options250316
+Node: Export options250318
-Node: Publishing252777
+Node: Publishing252779
-Ref: Publishing-Footnote-1253738
+Ref: Publishing-Footnote-1253740
-Ref: Publishing-Footnote-2253882
+Ref: Publishing-Footnote-2253884
-Node: Configuration254033
+Node: Configuration254035
-Node: Project alist254751
+Node: Project alist254753
-Node: Sources and destinations255817
+Node: Sources and destinations255819
-Node: Selecting files256547
+Node: Selecting files256549
-Node: Publishing action257295
+Node: Publishing action257297
-Node: Publishing options258629
+Node: Publishing options258631
-Node: Publishing links261135
+Node: Publishing links261137
-Node: Project page index262650
+Node: Project page index262652
-Node: Sample configuration263428
+Node: Sample configuration263430
-Node: Simple example263920
+Node: Simple example263922
-Node: Complex example264593
+Node: Complex example264595
-Node: Triggering publication266669
+Node: Triggering publication266671
-Node: Miscellaneous267354
+Node: Miscellaneous267356
-Node: Completion267988
+Node: Completion267990
-Node: Customization269658
+Node: Customization269660
-Node: In-buffer settings270241
+Node: In-buffer settings270243
-Node: The very busy C-c C-c key275911
+Node: The very busy C-c C-c key275913
-Node: Clean view277766
+Node: Clean view277768
-Node: TTY keys280343
+Node: TTY keys280345
-Node: Interaction281953
+Node: Interaction281955
-Node: Cooperation282350
+Node: Cooperation282352
-Node: Conflicts286021
+Node: Conflicts286023
-Node: Bugs288031
+Node: Bugs288033
-Node: Extensions and Hacking289527
+Node: Extensions and Hacking289529
-Node: Extensions290252
+Node: Extensions290254
-Node: Adding hyperlink types292514
+Node: Adding hyperlink types292516
-Node: Tables in arbitrary syntax296176
+Node: Tables in arbitrary syntax296178
-Node: Radio tables297568
+Node: Radio tables297570
-Node: A LaTeX example300071
+Node: A LaTeX example300073
-Ref: A LaTeX example-Footnote-1303749
+Ref: A LaTeX example-Footnote-1303751
-Ref: A LaTeX example-Footnote-2303897
+Ref: A LaTeX example-Footnote-2303899
-Node: Translator functions304332
+Node: Translator functions304334
-Ref: Translator functions-Footnote-1307461
+Ref: Translator functions-Footnote-1307463
-Node: Radio lists307549
+Node: Radio lists307551
-Ref: Radio lists-Footnote-1308671
+Ref: Radio lists-Footnote-1308673
-Node: Dynamic blocks308791
+Node: Dynamic blocks308793
-Node: Special agenda views310763
+Node: Special agenda views310765
-Node: Using the property API314008
+Node: Using the property API314010
-Node: History and Acknowledgments315606
+Node: History and Acknowledgments315608
-Node: Index322287
+Node: Index322289
-Node: Key Index359003
+Node: Key Index359005
 
 End Tag Table

org-install.el

@@ -8,7 +8,7 @@
 ;;;;;;  org-remember-insinuate org-open-at-point-global org-insert-link-global
 ;;;;;;  org-store-link orgtbl-mode turn-on-orgtbl org-run-like-in-org-mode
 ;;;;;;  turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle
-;;;;;;  org-cycle org-mode) "org" "org.el" (18256 20334))
+;;;;;;  org-cycle org-mode) "org" "org.el" (18260 2234))
 ;;; Generated autoloads from org.el
 
 (autoload (quote org-mode) "org" "\

org.el

@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 5.16
+;; Version: 5.16a
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -84,7 +84,7 @@
 
 ;;; Version
 
-(defconst org-version "5.16"
+(defconst org-version "5.16a"
   "The version number of the file org.el.")
 (defun org-version ()
   (interactive)
@@ -333,6 +333,25 @@ After a match, group 1 contains the repeat expression.")
   :tag "Org Reveal Location"
   :group 'org-structure)
 
+(defconst org-context-choice
+  '(choice
+    (const :tag "Always" t)
+    (const :tag "Never" nil)
+    (repeat :greedy t :tag "Individual contexts"
+	    (cons
+	     (choice :tag "Context"
+		     (const agenda)
+		     (const org-goto)
+		     (const occur-tree)
+		     (const tags-tree)
+		     (const link-search)
+		     (const mark-goto)
+		     (const bookmark-jump)
+		     (const isearch)
+		     (const default))
+	     (boolean))))
+  "Contexts for the reveal options.")
+
 (defcustom org-show-hierarchy-above '((default . t))
   "Non-nil means, show full hierarchy when revealing a location.
 Org-mode often shows locations in an org-mode file which might have
@@ -351,22 +370,7 @@ contexts.  Valid contexts are
   isearch        when exiting from an incremental search
   default        default for all contexts not set explicitly"
   :group 'org-reveal-location
-  :type '(choice
+  :type org-context-choice)
-	  (const :tag "Always" t)
-	  (const :tag "Never" nil)
-	  (repeat :greedy t :tag "Individual contexts"
-		  (cons
-		   (choice :tag "Context"
-		    (const agenda)
-		    (const org-goto)
-		    (const occur-tree)
-		    (const tags-tree)
-		    (const link-search)
-		    (const mark-goto)
-		    (const bookmark-jump)
-		    (const isearch)
-		    (const default))
-		   (boolean)))))
 
 (defcustom org-show-following-heading '((default . nil))
   "Non-nil means, show following heading when revealing a location.
@@ -379,22 +383,7 @@ use the command \\[org-reveal] to show more context.
 Instead of t, this can also be an alist specifying this option for different
 contexts.  See `org-show-hierarchy-above' for valid contexts."
   :group 'org-reveal-location
-  :type '(choice
+  :type org-context-choice)
-	  (const :tag "Always" t)
-	  (const :tag "Never" nil)
-	  (repeat :greedy t :tag "Individual contexts"
-		  (cons
-		   (choice :tag "Context"
-		    (const agenda)
-		    (const org-goto)
-		    (const occur-tree)
-		    (const tags-tree)
-		    (const link-search)
-		    (const mark-goto)
-		    (const bookmark-jump)
-		    (const isearch)
-		    (const default))
-		   (boolean)))))
 
 (defcustom org-show-siblings '((default . nil) (isearch t))
   "Non-nil means, show all sibling heading when revealing a location.
@@ -410,22 +399,7 @@ use the command \\[org-reveal] to show more context.
 Instead of t, this can also be an alist specifying this option for different
 contexts.  See `org-show-hierarchy-above' for valid contexts."
   :group 'org-reveal-location
-  :type '(choice
+  :type org-context-choice)
-	  (const :tag "Always" t)
-	  (const :tag "Never" nil)
-	  (repeat :greedy t :tag "Individual contexts"
-		  (cons
-		   (choice :tag "Context"
-		    (const agenda)
-		    (const org-goto)
-		    (const occur-tree)
-		    (const tags-tree)
-		    (const link-search)
-		    (const mark-goto)
-		    (const bookmark-jump)
-		    (const isearch)
-		    (const default))
-		   (boolean)))))
 
 (defcustom org-show-entry-below '((default . nil))
   "Non-nil means, show the entry below a headline when revealing a location.
@@ -437,22 +411,7 @@ By default this is off for all contexts.
 Instead of t, this can also be an alist specifying this option for different
 contexts.  See `org-show-hierarchy-above' for valid contexts."
   :group 'org-reveal-location
-  :type '(choice
+  :type org-context-choice)
-	  (const :tag "Always" t)
-	  (const :tag "Never" nil)
-	  (repeat :greedy t :tag "Individual contexts"
-		  (cons
-		   (choice :tag "Context"
-		    (const agenda)
-		    (const org-goto)
-		    (const occur-tree)
-		    (const tags-tree)
-		    (const link-search)
-		    (const mark-goto)
-		    (const bookmark-jump)
-		    (const isearch)
-		    (const default))
-		   (boolean)))))
 
 (defgroup org-cycle nil
   "Options concerning visibility cycling in Org-mode."
@@ -2679,12 +2638,13 @@ a grid line."
   :tag "Org Agenda Sorting"
   :group 'org-agenda)
 
-(let ((sorting-choice
+(defconst org-sorting-choice
   '(choice
     (const time-up) (const time-down)
     (const category-keep) (const category-up) (const category-down)
     (const tag-down) (const tag-up)
-	 (const priority-up) (const priority-down))))
+    (const priority-up) (const priority-down))
+  "Sorting choices.")
 
 (defcustom org-agenda-sorting-strategy
   '((agenda time-up category-keep priority-down)
@@ -2724,14 +2684,14 @@ contents, with a context symbol in the car of the list, any of
 `agenda', `todo', `tags' for the corresponding agenda views."
   :group 'org-agenda-sorting
   :type `(choice
-	  (repeat :tag "General" ,sorting-choice)
+	  (repeat :tag "General" org-sorting-choice)
 	  (list :tag "Individually"
 		(cons (const :tag "Strategy for Weekly/Daily agenda" agenda)
-		      (repeat ,sorting-choice))
+		      (repeat ,org-sorting-choice))
 		(cons (const :tag "Strategy for TODO lists" todo)
-		      (repeat ,sorting-choice))
+		      (repeat ,org-sorting-choice))
 		(cons (const :tag "Strategy for Tags matches" tags)
-		      (repeat ,sorting-choice))))))
+		      (repeat ,org-sorting-choice)))))
 
 (defcustom org-sort-agenda-notime-is-late t
   "Non-nil means, items without time are considered late.
@@ -3532,6 +3492,11 @@ Changing this variable requires a restart of Emacs to take effect."
   :group 'org-font-lock
   :type 'boolean)
 
+(defcustom org-highlight-latex-fragments-and-specials nil
+  "Non-nil means, fontify what is treated specially by the exporters."
+  :group 'org-font-lock
+  :type 'boolean)
+
 (defcustom org-hide-emphasis-markers nil
   "Non-nil mean font-lock should hide the emphasis marker characters."
   :group 'org-font-lock
@@ -4035,7 +4000,7 @@ month and 365.24 days for a year)."
 	   (number :tag "Fraction of head-warning time passed")
 	   (sexp :tag "Face"))))
 
-;; FIXME: this is not good
+;; FIXME: this is not a good face yet.
 (defface org-agenda-restriction-lock
   (org-compatible-face nil
     '((((class color) (min-colors 88) (background light)) (:background "yellow1"))
@@ -4330,8 +4295,6 @@ means to push this value onto the list in the variable.")
 		dws (if sep (org-remove-keyword-keys (cdr sep)) (last kws1))
 		tail (list inter hw (car dws) (org-last dws)))
 	  (add-to-list 'org-todo-heads hw 'append)
-;?????????????????	  (setq org-todo-heads (append org-todo-heads (list hw)))
-	  (add-to-list 'org-todo-heads hw 'append)
 	  (push kws1 org-todo-sets)
 	  (setq org-done-keywords (append org-done-keywords dws nil))
 	  (setq org-todo-key-alist (append org-todo-key-alist kwsa))
@@ -4452,6 +4415,31 @@ means to push this value onto the list in the variable.")
 	      x))
 	  list))
 
+;; FIXME: this could be done much better, using second characters etc.
+(defun org-assign-fast-keys (alist)
+  "Assign fast keys to a keyword-key alist.
+Respect keys that are already there."
+  (let (new e k c c1 c2 (char ?a))
+    (while (setq e (pop alist))
+      (cond
+       ((equal e '(:startgroup)) (push e new))
+       ((equal e '(:endgroup)) (push e new))
+       (t
+	(setq k (car e) c2 nil)
+	(if (cdr e)
+	    (setq c (cdr e))
+	  ;; automatically assign a character.
+	  (setq c1 (string-to-char
+		    (downcase (substring
+			       k (if (= (string-to-char k) ?@) 1 0)))))
+	  (if (or (rassoc c1 new) (rassoc c1 alist))
+	      (while (or (rassoc char new) (rassoc char alist))
+		(setq char (1+ char)))
+	    (setq c2 c1))
+	  (setq c (or c2 char)))
+	(push (cons k c) new))))
+    (nreverse new)))
+
 ;;; Some variables ujsed in various places
 
 (defvar org-window-configuration nil
@@ -5116,6 +5104,97 @@ We use a macro so that the test can happen at compilation time."
       (goto-char e)
       t)))
 
+(defvar org-latex-and-specials-regexp nil
+  "Regular expression for highlighting export special stuff.")
+(defvar org-match-substring-regexp)
+(defvar org-match-substring-with-braces-regexp)
+(defvar org-export-html-special-string-regexps)
+
+(defun org-compute-latex-and-specials-regexp ()
+  "Compute regular expression for stuff treated specially by exporters."
+  (if (not org-highlight-latex-fragments-and-specials)
+      (org-set-local 'org-latex-and-specials-regexp nil)
+    (let*
+	((matchers (plist-get org-format-latex-options :matchers))
+	 (latexs (delq nil (mapcar (lambda (x) (if (member (car x) matchers) x))
+				   org-latex-regexps)))
+	 (options (org-combine-plists (org-default-export-plist)
+				      (org-infile-export-plist)))
+	 (org-export-with-sub-superscripts (plist-get options :sub-superscript))
+	 (org-export-with-LaTeX-fragments (plist-get options :LaTeX-fragments))
+	 (org-export-with-TeX-macros (plist-get options :TeX-macros))
+	 (org-export-html-expand (plist-get options :expand-quoted-html))
+	 (org-export-with-special-strings (plist-get options :special-strings))
+	 (re-sub
+	  (cond
+	   ((equal org-export-with-sub-superscripts '{})
+	    (list org-match-substring-with-braces-regexp))
+	   (org-export-with-sub-superscripts
+	    (list org-match-substring-regexp))
+	   (t nil)))
+	 (re-latex
+	  (if org-export-with-LaTeX-fragments
+	      (mapcar (lambda (x) (nth 1 x)) latexs)))
+	 (re-macros
+	  (if org-export-with-TeX-macros
+	      (list (concat "\\\\"
+			    (regexp-opt 
+			     (append (mapcar 'car org-html-entities)
+				     (if (boundp 'org-latex-entities)
+					 org-latex-entities nil))
+			     'words))) ; FIXME
+	    ))
+    ;;			(list "\\\\\\(?:[a-zA-Z]+\\)")))
+	 (re-special (if org-export-with-special-strings
+			 (mapcar (lambda (x) (car x))
+				 org-export-html-special-string-regexps)))
+	 (re-rest
+	  (delq nil
+		(list
+		 (if org-export-html-expand "@<[^>\n]+>")
+		 ))))
+      (org-set-local
+       'org-latex-and-specials-regexp
+       (mapconcat 'identity (append re-latex re-sub re-macros re-special
+				    re-rest) "\\|")))))
+
+(defface org-latex-and-export-specials
+  (let ((font (cond ((assq :inherit custom-face-attributes)
+		     '(:inherit underline))
+		    (t '(:underline t)))))
+    `((((class grayscale) (background light))
+       (:foreground "DimGray" ,@font))
+      (((class grayscale) (background dark))
+       (:foreground "LightGray" ,@font))
+      (((class color) (background light))
+       (:foreground "SaddleBrown"))
+      (((class color) (background dark))
+       (:foreground "burlywood"))
+      (t (,@font))))
+  "Face used to highlight math latex and other special exporter stuff."
+  :group 'org-faces)
+
+(defun org-do-latex-and-special-faces (limit)
+  "Run through the buffer and add overlays to links."
+  (when org-latex-and-specials-regexp
+    (let (rtn d)
+      (while (and (not rtn) (re-search-forward org-latex-and-specials-regexp
+					       limit t))
+	(if (not (memq (car-safe (get-text-property (1+ (match-beginning 0))
+						    'face))
+		       '(org-code org-verbatim underline)))
+	    (progn
+	      (setq rtn t
+		    d (cond ((member (char-after (1+ (match-beginning 0)))
+				     '(?_ ?^)) 1)
+			    (t 0)))
+	      (font-lock-prepend-text-property
+	       (+ d (match-beginning 0)) (match-end 0)
+	       'face 'org-latex-and-export-specials)
+	      (add-text-properties (+ d (match-beginning 0)) (match-end 0)
+				   '(font-lock-multiline t)))))
+      rtn)))
+
 (defun org-restart-font-lock ()
   "Restart font-lock-mode, to force refontification."
   (when (and (boundp 'font-lock-mode) font-lock-mode)
@@ -12971,6 +13050,9 @@ RET at beg-of-buf -> Append to file as level 2 headline
 			 char0))))))
       (cddr (assoc char templates)))))
 
+(defvar x-last-selected-text)
+(defvar x-last-selected-text-primary)
+
 ;;;###autoload
 (defun org-remember-apply-template (&optional use-char skip-interactive)
   "Initialize *remember* buffer with template, invoke `org-mode'.
@@ -12989,8 +13071,8 @@ to be run from that hook to function properly."
 	     (headline (nth 2 entry))
 	     (v-c (if (or (and (eq window-system 'x)
 			       (x-cut-buffer-or-selection-value))
-			  (bound-and-true-p x-last-selected-text)
+			  (bound-and-true-p 'x-last-selected-text)
-			  (bound-and-true-p x-last-selected-text-primary))
+			  (bound-and-true-p 'x-last-selected-text-primary))
 		      x-last-selected-text-primary
 		    (if (> (length kill-ring) 0)
 			(current-kill 0)
@@ -16049,7 +16131,7 @@ Where possible, use the standard interface for changing this line."
 	 (key1 (concat key "_ALL"))
 	 (allowed (org-entry-get (point) key1 t))
 	 nval)
-    ;; FIXME: Cover editing TODO, TAGS etc inbiffer settings.????
+    ;; FIXME: Cover editing TODO, TAGS etc in-buffer settings.????
     (setq nval (read-string "Allowed: " allowed))
     (org-entry-put
      (cond ((marker-position org-entry-property-inherited-from)
@@ -16066,8 +16148,6 @@ Where possible, use the standard interface for changing this line."
     (save-excursion
       (beginning-of-line 1)
       ;; `next-line' is needed here, because it skips invisible line.
-      ;; FIXME: RMS says this should be wrapped into `with-no-warnings'
-      ;; but I don't know how to do this and keep the code XEmacs compatible.
       (condition-case nil (org-no-warnings (next-line 1)) (error nil))
       (setq hidep (org-on-heading-p 1)))
     (eval form)
@@ -16441,7 +16521,6 @@ display, or in the #+COLUMNS line of the current buffer."
 	    (org-entry-put nil property (if flag str val)))
 	  ;; add current to current  level accumulator
 	  (when (or flag valflag)
-	    ;; FIXME: is this ok?????????
 	    (aset lsum level (+ (aref lsum level)
 				(if flag sum (org-column-string-to-number
 					      (if flag str val) format))))
@@ -17771,6 +17850,7 @@ belonging to the category \"Work\"."
   (if (equal filter '(4))
       (setq filter (read-from-minibuffer "Regexp filter: ")))
   (let* ((cnt 0) ; count added events
+	 (org-agenda-new-buffers nil)
 	 (today (org-date-to-gregorian
 		 (time-to-days (current-time))))
 	 (files (org-agenda-files)) entries file)
@@ -17795,7 +17875,7 @@ belonging to the category \"Work\"."
 				(cadr (assoc 'category filter)) cat)
 			       (string-match
 				(cadr (assoc 'headline filter)) evt))))))
-	 ;; FIXME Shall we remove text-properties for the appt text?
+	 ;; FIXME: Shall we remove text-properties for the appt text?
 	 ;; (setq evt (set-text-properties 0 (length evt) nil evt))
 	 (when (and ok tod)
 	   (setq tod (number-to-string tod)
@@ -17805,6 +17885,7 @@ belonging to the category \"Work\"."
 			       (match-string 2 tod))))
 	   (appt-add tod evt)
 	   (setq cnt (1+ cnt))))) entries)
+    (org-release-buffers org-agenda-new-buffers)
     (message "Added %d event%s for today" cnt (if (> cnt 1) "s" ""))))
 
 ;;; The clock for measuring work time.
@@ -20395,14 +20476,6 @@ the documentation of `org-diary'."
 		  (setq results (append results rtn))))))))
 	results))))
 
-;; FIXME: this works only if the cursor is *not* at the
-;; beginning of the entry
-;(defun org-entry-is-done-p ()
-;  "Is the current entry marked DONE?"
-;  (save-excursion
-;    (and (re-search-backward "[\r\n]\\*+ " nil t)
-;	 (looking-at org-nl-done-regexp))))
-
 (defun org-entry-is-todo-p ()
   (member (org-get-todo-state) org-not-done-keywords))
 
@@ -21025,7 +21098,7 @@ Any match of REMOVE-RE will be removed from TXT."
 	'extra extra
 	'dotime dotime))))
 
-(defvar org-agenda-sorting-strategy) ;; FIXME: can be removed?
+(defvar org-agenda-sorting-strategy) ;; because the def is in a let form
 (defvar org-agenda-sorting-strategy-selected nil)
 
 (defun org-agenda-add-time-grid-maybe (list ndays todayp)
@@ -22643,7 +22716,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]."
     (:tables               . org-export-with-tables)
     (:table-auto-headline  . org-export-highlight-first-table-line)
     (:style                . org-export-html-style)
-    (:agenda-style         . org-agenda-export-html-style) ;; FIXME: Does this work????
+    (:agenda-style         . org-agenda-export-html-style)
     (:convert-org-links    . org-export-html-link-org-files-as-html)
     (:inline-images        . org-export-html-inline-images)
     (:html-extension       . org-export-html-extension)
@@ -27246,7 +27319,10 @@ To get rid of the restriction, use \\[org-agenda-remove-restriction-lock]."
      (define-key speedbar-file-key-map "<" 'org-speedbar-set-agenda-restriction)
      (define-key speedbar-file-key-map "\C-c\C-x<" 'org-speedbar-set-agenda-restriction)
      (define-key speedbar-file-key-map ">" 'org-agenda-remove-restriction-lock)
-     (define-key speedbar-file-key-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)))
+     (define-key speedbar-file-key-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
+     (add-hook 'speedbar-visiting-tag-hook
+	       (lambda () (org-show-context 'org-goto)))))
+
 
 ;;; Fixes and Hacks
 
@@ -27307,139 +27383,6 @@ Still experimental, may disappear in the future."
     ;; make tree, check each match with the callback
     (org-occur "CLOSED: +\\[\\(.*?\\)\\]" nil callback)))
 
-;; FIXME: this needs a much better algorithm
-(defun org-assign-fast-keys (alist)
-  "Assign fast keys to a keyword-key alist.
-Respect keys that are already there."
-  (let (new e k c c1 c2 (char ?a))
-    (while (setq e (pop alist))
-      (cond
-       ((equal e '(:startgroup)) (push e new))
-       ((equal e '(:endgroup)) (push e new))
-       (t
-	(setq k (car e) c2 nil)
-	(if (cdr e)
-	    (setq c (cdr e))
-	  ;; automatically assign a character.
-	  (setq c1 (string-to-char
-		    (downcase (substring
-			       k (if (= (string-to-char k) ?@) 1 0)))))
-	  (if (or (rassoc c1 new) (rassoc c1 alist))
-	      (while (or (rassoc char new) (rassoc char alist))
-		(setq char (1+ char)))
-	    (setq c2 c1))
-	  (setq c (or c2 char)))
-	(push (cons k c) new))))
-    (nreverse new)))
-
-
-(defcustom org-highlight-latex-fragments-and-specials nil
-  "Non-nil means, fontify what is treated specially by the exporters."
-  :group 'org-font-lock
-  :type 'boolean)
-
-(defvar org-latex-and-specials-regexp nil
-  "Regular expression for highlighting export special stuff.")
-
-(defun org-compute-latex-and-specials-regexp ()
-  "Compute regular expression for stuff treated specially by exporters."
-  (if (not org-highlight-latex-fragments-and-specials)
-      (org-set-local 'org-latex-and-specials-regexp nil)
-    (let*
-	((matchers (plist-get org-format-latex-options :matchers))
-	 (latexs (delq nil (mapcar (lambda (x) (if (member (car x) matchers) x))
-				   org-latex-regexps)))
-	 (options (org-combine-plists (org-default-export-plist)
-				      (org-infile-export-plist)))
-	 (org-export-with-sub-superscripts (plist-get options :sub-superscript))
-	 (org-export-with-LaTeX-fragments (plist-get options :LaTeX-fragments))
-	 (org-export-with-TeX-macros (plist-get options :TeX-macros))
-	 (org-export-html-expand (plist-get options :expand-quoted-html))
-	 (org-export-with-special-strings (plist-get options :special-strings))
-	 (re-sub
-	  (cond
-	   ((equal org-export-with-sub-superscripts '{})
-	    (list org-match-substring-with-braces-regexp))
-	   (org-export-with-sub-superscripts
-	    (list org-match-substring-regexp))
-	   (t nil)))
-	 (re-latex
-	  (if org-export-with-LaTeX-fragments
-	      (mapcar (lambda (x) (nth 1 x)) latexs)))
-	 (re-macros
-	  (if org-export-with-TeX-macros
-	      (list (concat "\\\\"
-			    (regexp-opt 
-			     (append (mapcar 'car org-html-entities)
-				     (if (boundp 'org-latex-entities)
-					 org-latex-entities nil))
-			     'words))) ; FIXME
-	    ))
-    ;;			(list "\\\\\\(?:[a-zA-Z]+\\)")))
-	 (re-special (if org-export-with-special-strings
-			 (mapcar (lambda (x) (car x))
-				 org-export-html-special-string-regexps)))
-	 (re-rest
-	  (delq nil
-		(list
-		 (if org-export-html-expand "@<[^>\n]+>")
-		 ))))
-      (org-set-local
-       'org-latex-and-specials-regexp
-       (mapconcat 'identity (append re-latex re-sub re-macros re-special re-rest) "\\|")))))
-
-(defface org-latex-and-export-specials
-  (let ((font (cond ((assq :inherit custom-face-attributes)
-		     '(:inherit underline))
-		    (t '(:underline t)))))
-    `((((class grayscale) (background light))
-       (:foreground "DimGray" ,@font))
-      (((class grayscale) (background dark))
-       (:foreground "LightGray" ,@font))
-      (((class color) (background light))
-       (:foreground "SaddleBrown"))
-      (((class color) (background dark))
-       (:foreground "burlywood"))
-      (t (,@font))))
-  "Face used to highlight math latex and other special exporter stuff."
-  :group 'org-faces)
-
-(defun org-do-latex-and-special-faces (limit)
-  "Run through the buffer and add overlays to links."
-  (when org-latex-and-specials-regexp
-    (let (rtn d)
-      (while (and (not rtn) (re-search-forward org-latex-and-specials-regexp
-					       limit t))
-	(if (not (memq (car-safe (get-text-property (1+ (match-beginning 0)) 'face))
-		       '(org-code org-verbatim underline)))
-	    (progn
-	      (setq rtn t
-		    d (cond ((member (char-after (1+ (match-beginning 0))) '(?_ ?^)) 1)
-			    (t 0)))
-	      (font-lock-prepend-text-property
-	       (+ d (match-beginning 0)) (match-end 0)
-	       'face 'org-latex-and-export-specials)
-	      (add-text-properties (+ d (match-beginning 0)) (match-end 0)
-				   '(font-lock-multiline t)))))
-      rtn)))
-
-
-(defun org-find-first-timestamp (keyword inactive end)
-  "Return location of first timestamp matching KEYWORD and INACTIVE.
-KEYWORD may be any of the timestamp keywords, or nil.
-INACTIVE means it should be an inactive timestamp.
-If there is no such time stamp, return nil."
-  (catch 'exit
-    (let (key ia)
-      (setq inactive (and inactive t))
-      (while (re-search-forward org-maybe-keyword-time-regexp end t)
-	(setq key (and (match-end 1) (substring (match-string 1) 0 -1)
-		       (equal (char-after (match-beginning 3)) ?\[)))
-	(when (and (equal keyword key)
-		   (equal inactive ia))
-	  (throw 'exit (match-beginning 3)))))))
-
-
 ;;;; Finish up
 
 (provide 'org)

org.texi

@@ -3,7 +3,7 @@
 @setfilename ../../info/org
 @settitle Org Mode Manual
 
-@set VERSION 5.16
+@set VERSION 5.16a
 @set DATE December 2007
 
 @dircategory Emacs

orgcard.tex

@@ -1,5 +1,5 @@
 % Reference Card for Org Mode
-\def\orgversionnumber{5.16}
+\def\orgversionnumber{5.16a}
 \def\versionyear{2007}          % latest update
 \def\year{2007}                 % latest copyright year