diff options
author | Carsten Dominik <dominik@science.uva.nl> | 2008-11-24 12:17:46 +0000 |
---|---|---|
committer | Carsten Dominik <dominik@science.uva.nl> | 2008-11-24 12:17:46 +0000 |
commit | d60b1ba1dca0d6f7274f18f557babc78c930c38f (patch) | |
tree | 68df020c4d8e2297a8f5adda1d840cac92d8ceaa /lisp/org | |
parent | d95a8199043fd99ee5d5d36a5ab66c76967fc87d (diff) | |
download | emacs-d60b1ba1dca0d6f7274f18f557babc78c930c38f.tar.gz |
2008-11-24 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-get-closed): Re-apply changes
accidentially overwritten by last commit to Emacs.
* org.el (org-outline-path-complete-in-steps): New option.
(org-refile-get-location): Honor
`org-outline-path-complete-in-steps'.
(org-agenda-change-all-lines, org-tags-sparse-tree)
(org-time-string-to-absolute, org-small-year-to-year)
(org-link-escape): Re-apply changes accidentially overwritten
by last commit to Emacs.
Diffstat (limited to 'lisp/org')
-rw-r--r-- | lisp/org/org-agenda.el | 4 | ||||
-rw-r--r-- | lisp/org/org-archive.el | 2 | ||||
-rw-r--r-- | lisp/org/org-attach.el | 2 | ||||
-rw-r--r-- | lisp/org/org-bbdb.el | 2 | ||||
-rw-r--r-- | lisp/org/org-bibtex.el | 2 | ||||
-rw-r--r-- | lisp/org/org-clock.el | 2 | ||||
-rw-r--r-- | lisp/org/org-colview.el | 2 | ||||
-rw-r--r-- | lisp/org/org-compat.el | 2 | ||||
-rw-r--r-- | lisp/org/org-exp.el | 2 | ||||
-rw-r--r-- | lisp/org/org-export-latex.el | 2 | ||||
-rw-r--r-- | lisp/org/org-faces.el | 2 | ||||
-rw-r--r-- | lisp/org/org-gnus.el | 2 | ||||
-rw-r--r-- | lisp/org/org-id.el | 2 | ||||
-rw-r--r-- | lisp/org/org-info.el | 2 | ||||
-rw-r--r-- | lisp/org/org-irc.el | 2 | ||||
-rw-r--r-- | lisp/org/org-jsinfo.el | 2 | ||||
-rw-r--r-- | lisp/org/org-list.el | 2 | ||||
-rw-r--r-- | lisp/org/org-mac-message.el | 2 | ||||
-rw-r--r-- | lisp/org/org-macs.el | 2 | ||||
-rw-r--r-- | lisp/org/org-mew.el | 2 | ||||
-rw-r--r-- | lisp/org/org-mhe.el | 2 | ||||
-rw-r--r-- | lisp/org/org-mouse.el | 4 | ||||
-rw-r--r-- | lisp/org/org-plot.el | 2 | ||||
-rw-r--r-- | lisp/org/org-publish.el | 2 | ||||
-rw-r--r-- | lisp/org/org-remember.el | 2 | ||||
-rw-r--r-- | lisp/org/org-rmail.el | 2 | ||||
-rw-r--r-- | lisp/org/org-table.el | 2 | ||||
-rw-r--r-- | lisp/org/org-vm.el | 2 | ||||
-rw-r--r-- | lisp/org/org-wl.el | 2 | ||||
-rw-r--r-- | lisp/org/org.el | 43 |
30 files changed, 60 insertions, 45 deletions
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 0988066eb68..743e38041bf 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; @@ -3398,7 +3398,7 @@ the documentation of `org-diary'." (push txt ee)))) (nreverse ee))) -(defalias 'org-get-closed 'org-get-progress) +(defalias 'org-get-closed 'org-agenda-get-progress) (defun org-agenda-get-progress () "Return the logged TODO entries for agenda display." (let* ((props (list 'mouse-face 'highlight diff --git a/lisp/org/org-archive.el b/lisp/org/org-archive.el index 547fee259a9..aee8b5f795a 100644 --- a/lisp/org/org-archive.el +++ b/lisp/org/org-archive.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-attach.el b/lisp/org/org-attach.el index 539de7f5b12..d48c0bde639 100644 --- a/lisp/org/org-attach.el +++ b/lisp/org/org-attach.el @@ -4,7 +4,7 @@ ;; Author: John Wiegley <johnw@newartisans.com> ;; Keywords: org data task -;; Version: 6.13 +;; Version: 6.13a ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-bbdb.el b/lisp/org/org-bbdb.el index ca2fe139344..c675cc2f4be 100644 --- a/lisp/org/org-bbdb.el +++ b/lisp/org/org-bbdb.el @@ -6,7 +6,7 @@ ;; Thomas Baumann <thomas dot baumann at ch dot tum dot de> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el index d2e975ed8c0..215ba40ce66 100644 --- a/lisp/org/org-bibtex.el +++ b/lisp/org/org-bibtex.el @@ -5,7 +5,7 @@ ;; Author: Bastien Guerry <bzg at altern dot org> ;; Carsten Dominik <carsten dot dominik at gmail dot com> ;; Keywords: org, wp, remember -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 82064e0cdb0..3848fac7bf4 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el index 3daef2a0f2f..2072cebe532 100644 --- a/lisp/org/org-colview.el +++ b/lisp/org/org-colview.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el index f3707cdd4f8..ebfa203188e 100644 --- a/lisp/org/org-compat.el +++ b/lisp/org/org-compat.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el index dfe9f8a4f7c..2a0e46deb11 100644 --- a/lisp/org/org-exp.el +++ b/lisp/org/org-exp.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-export-latex.el b/lisp/org/org-export-latex.el index 09ada3e451d..be7d5e44ed4 100644 --- a/lisp/org/org-export-latex.el +++ b/lisp/org/org-export-latex.el @@ -4,7 +4,7 @@ ;; ;; Emacs Lisp Archive Entry ;; Filename: org-export-latex.el -;; Version: 6.13 +;; Version: 6.13a ;; Author: Bastien Guerry <bzg AT altern DOT org> ;; Maintainer: Bastien Guerry <bzg AT altern DOT org> ;; Keywords: org, wp, tex diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el index 6cf4db4df67..2ddcb9ee416 100644 --- a/lisp/org/org-faces.el +++ b/lisp/org/org-faces.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-gnus.el b/lisp/org/org-gnus.el index 1d707dc7b1f..8cc11f1eefa 100644 --- a/lisp/org/org-gnus.el +++ b/lisp/org/org-gnus.el @@ -6,7 +6,7 @@ ;; Tassilo Horn <tassilo at member dot fsf dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-id.el b/lisp/org/org-id.el index 64f139c5f19..8fa5ff15ea5 100644 --- a/lisp/org/org-id.el +++ b/lisp/org/org-id.el @@ -4,7 +4,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-info.el b/lisp/org/org-info.el index c040ba6f87f..5891d70b122 100644 --- a/lisp/org/org-info.el +++ b/lisp/org/org-info.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-irc.el b/lisp/org/org-irc.el index 4d35ef3dd98..8527d4a0a88 100644 --- a/lisp/org/org-irc.el +++ b/lisp/org/org-irc.el @@ -4,7 +4,7 @@ ;; ;; Author: Philip Jackson <emacs@shellarchive.co.uk> ;; Keywords: erc, irc, link, org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-jsinfo.el b/lisp/org/org-jsinfo.el index f1bb3ef7ed1..e8221f7fed3 100644 --- a/lisp/org/org-jsinfo.el +++ b/lisp/org/org-jsinfo.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index a2990743a57..d554cb12562 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el @@ -6,7 +6,7 @@ ;; Bastien Guerry <bzg AT altern DOT org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-mac-message.el b/lisp/org/org-mac-message.el index 2f9e63bed8a..f0d6229e7bd 100644 --- a/lisp/org/org-mac-message.el +++ b/lisp/org/org-mac-message.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2008 Free Software Foundation, Inc. ;; Author: John Wiegley <johnw@gnu.org> -;; Version: 6.13 +;; Version: 6.13a ;; Keywords: outlines, hypermedia, calendar, wp ;; This file is part of GNU Emacs. diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el index 563f6c3e33d..0950b6d63a8 100644 --- a/lisp/org/org-macs.el +++ b/lisp/org/org-macs.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-mew.el b/lisp/org/org-mew.el index fda6270016d..61bfc2fc5c5 100644 --- a/lisp/org/org-mew.el +++ b/lisp/org/org-mew.el @@ -5,7 +5,7 @@ ;; Author: Tokuya Kameshima <kames at fa2 dot so-net dot ne dot jp> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; This file is part of GNU Emacs. diff --git a/lisp/org/org-mhe.el b/lisp/org/org-mhe.el index ab9f797cb81..c51b60e6a26 100644 --- a/lisp/org/org-mhe.el +++ b/lisp/org/org-mhe.el @@ -5,7 +5,7 @@ ;; Author: Thomas Baumann <thomas dot baumann at ch dot tum dot de> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el index 0cb65058163..7ec3bbe7afa 100644 --- a/lisp/org/org-mouse.el +++ b/lisp/org/org-mouse.el @@ -4,7 +4,7 @@ ;; ;; Author: Piotr Zielinski <piotr dot zielinski at gmail dot com> ;; Maintainer: Carsten Dominik <carsten at orgmode dot org> -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; @@ -144,7 +144,7 @@ (defvar org-agenda-undo-list) (defvar org-agenda-custom-commands) (declare-function org-agenda-change-all-lines "org-agenda" - (newhead hdmarker &optional fixface)) + (newhead hdmarker &optional fixface just-this)) (declare-function org-verify-change-for-undo "org-agenda" (l1 l2)) (defvar org-mouse-plain-list-regexp "\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) " diff --git a/lisp/org/org-plot.el b/lisp/org/org-plot.el index b2443ccd7e9..491035b7900 100644 --- a/lisp/org/org-plot.el +++ b/lisp/org/org-plot.el @@ -5,7 +5,7 @@ ;; Author: Eric Schulte <schulte dot eric at gmail dot com> ;; Keywords: tables, plotting ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el index eafa8faab63..6e3d1af85dc 100644 --- a/lisp/org/org-publish.el +++ b/lisp/org/org-publish.el @@ -4,7 +4,7 @@ ;; Author: David O'Toole <dto@gnu.org> ;; Maintainer: Bastien Guerry <bzg AT altern DOT org> ;; Keywords: hypermedia, outlines, wp -;; Version: 6.13 +;; Version: 6.13a ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el index ce3f5479eaa..d9c2dd4cadf 100644 --- a/lisp/org/org-remember.el +++ b/lisp/org/org-remember.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-rmail.el b/lisp/org/org-rmail.el index 4782f50eace..f6f9e791c03 100644 --- a/lisp/org/org-rmail.el +++ b/lisp/org/org-rmail.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 0797d1b1324..5e8442cc224 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-vm.el b/lisp/org/org-vm.el index 2394591ffd0..fb82ee46960 100644 --- a/lisp/org/org-vm.el +++ b/lisp/org/org-vm.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-wl.el b/lisp/org/org-wl.el index e07bc82c063..0483e3c0d38 100644 --- a/lisp/org/org-wl.el +++ b/lisp/org/org-wl.el @@ -5,7 +5,7 @@ ;; Author: Tokuya Kameshima <kames at fa2 dot so-net dot ne dot jp> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org.el b/lisp/org/org.el index d25d9c5cf5e..340737be939 100644 --- a/lisp/org/org.el +++ b/lisp/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: 6.13 +;; Version: 6.13a ;; ;; This file is part of GNU Emacs. ;; @@ -92,7 +92,7 @@ ;;; Version -(defconst org-version "6.13" +(defconst org-version "6.13a" "The version number of the file org.el.") (defun org-version (&optional here) @@ -1245,7 +1245,7 @@ For more examples, see the system specific constants (defgroup org-refile nil "Options concerning refiling entries in Org-mode." - :tag "Org Remember" + :tag "Org Refile" :group 'org) (defcustom org-directory "~/org" @@ -1275,7 +1275,8 @@ outline The interface shows an outline of the relevant file and the correct heading is found by moving through the outline or by searching with incremental search. outline-path-completion Headlines in the current buffer are offered via - completion." + completion. This is the interface also used by + the refile command." :group 'org-refile :type '(choice (const :tag "Outline" outline) @@ -1287,6 +1288,7 @@ When nil, new notes will be filed to the end of a file or entry. This can also be a list with cons cells of regular expressions that are matched against file names, and values." :group 'org-remember + :group 'org-refile :type '(choice (const :tag "Reverse always" t) (const :tag "Reverse never" nil) @@ -1314,7 +1316,7 @@ This is list of cons cells. Each cell contains: When this variable is nil, all top-level headlines in the current buffer are used, equivalent to the value `((nil . (:level . 1))'." - :group 'org-remember + :group 'org-refile :type '(repeat (cons (choice :value org-agenda-files @@ -1333,13 +1335,25 @@ are used, equivalent to the value `((nil . (:level . 1))'." So a level 3 headline will be available as level1/level2/level3. When the value is `file', also include the file name (without directory) into the path. When `full-file-path', include the full file path." - :group 'org-remember + :group 'org-refile :type '(choice (const :tag "Not" nil) (const :tag "Yes" t) (const :tag "Start with file name" file) (const :tag "Start with full file path" full-file-path))) +(defcustom org-outline-path-complete-in-steps t + "Non-nil means, complete the outline path in hierarchical steps. +When Org-mode uses the refile interface to select an outline path +\(see variable `org-refile-use-outline-path'), the completion of +the path can be done is a single go, or if can be done in steps down +the headline hierarchy. Going in steps is probably the best if you +do not use a special completion package like `ido' or `icicles'. +However, when using these packages, going in one step can be very +fast, while still showing the whole path to the entry." + :group 'org-refile + :type 'boolean) + (defgroup org-todo nil "Options concerning TODO items in Org-mode." :tag "Org TODO" @@ -2381,7 +2395,7 @@ Normal means, no org-mode-specific context." (extra txt &optional category tags dotime noprefix remove-re)) (declare-function org-agenda-new-marker "org-agenda" (&optional pos)) (declare-function org-agenda-change-all-lines "org-agenda" - (newhead hdmarker &optional fixface)) + (newhead hdmarker &optional fixface just-this)) (declare-function org-agenda-set-restriction-lock "org-agenda" (&optional type)) (declare-function org-agenda-maybe-redo "org-agenda" ()) (declare-function org-agenda-save-markers-for-cut-and-paste "org-agenda" @@ -6326,7 +6340,7 @@ This is the list that is used for internal purposes.") This is the list that is used before handing over to the browser.") (defun org-link-escape (text &optional table) - "Escape charaters in TEXT that are problematic for links." + "Escape characters in TEXT that are problematic for links." (setq table (or table org-link-escape-chars)) (when text (let ((re (mapconcat (lambda (x) (regexp-quote @@ -7504,7 +7518,8 @@ operation has put the subtree." (unless org-refile-target-table (error "No refile targets")) (let* ((cbuf (current-buffer)) - (cfunc (if org-refile-use-outline-path + (cfunc (if (and org-refile-use-outline-path + org-outline-path-complete-in-steps) 'org-olpath-completing-read 'org-ido-completing-read)) (extra (if org-refile-use-outline-path "/" "")) @@ -9082,10 +9097,10 @@ only lines with a TODO keyword are included in the output." (defvar todo-only) ;; dynamically scoped (defun org-tags-sparse-tree (&optional todo-only match) - "Create a sparse tree according to tags string MATCH. + "Create a sparse tree according to tags string MATCH. MATCH can contain positive and negative selection of tags, like \"+WORK+URGENT-WITHBOSS\". -If optional argument TODO_ONLY is non-nil, only select lines that are +If optional argument TODO-ONLY is non-nil, only select lines that are also TODO lines." (interactive "P") (org-prepare-agenda-buffers (list (current-buffer))) @@ -11228,7 +11243,7 @@ days in order to avoid rounding problems." "Convert a time stamp to an absolute day number. If there is a specifyer for a cyclic time stamp, get the closest date to DAYNR. -PREFER and SHOW_ALL are passed through to `org-closest-date'." +PREFER and SHOW-ALL are passed through to `org-closest-date'." (cond ((and daynr (string-match "\\`%%\\((.*)\\)" s)) (if (org-diary-sexp-entry (match-string 1 s) "" date) @@ -11248,8 +11263,8 @@ PREFER and SHOW_ALL are passed through to `org-closest-date'." (defun org-small-year-to-year (year) "Convert 2-digit years into 4-digit years. 38-99 are mapped into 1938-1999. 1-37 are mapped into 2001-2007. -The year 2000 cannot be abbreviated. Any year lager than 99 -is retrned unchanged." +The year 2000 cannot be abbreviated. Any year larger than 99 +is returned unchanged." (if (< year 38) (setq year (+ 2000 year)) (if (< year 100) |