From e5c0da5c48830fa0bb7c6d3d815c8d031c8f8286 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 15 Mar 2009 12:19:12 +0100 Subject: [PATCH] Date prompt: Use own history The date prompt now has its own history. --- lisp/ChangeLog | 3 +++ lisp/org.el | 7 +++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e7c19cc7..7f95ddbb6 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-03-15 Carsten Dominik + * org.el (org-read-date-history): New variable. + (org-read-date): Use new history variable. + * org-exp.el (org-export-as-ascii): Improve export of plain lists. 2009-03-14 Bastien Guerry diff --git a/lisp/org.el b/lisp/org.el index 75e42a912..eb5511654 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11547,6 +11547,7 @@ So these are more for recording a certain time/date." (defvar org-overriding-default-time nil) ; dynamically scoped (defvar org-read-date-overlay nil) (defvar org-dcst nil) ; dynamically scoped +(defvar org-read-date-history nil) (defun org-read-date (&optional with-time to-time from-string prompt default-time default-input) @@ -11673,7 +11674,8 @@ user." (progn (use-local-map map) (add-hook 'post-command-hook 'org-read-date-display) - (setq org-ans0 (read-string prompt default-input nil nil)) + (setq org-ans0 (read-string prompt default-input + 'org-read-date-history nil)) ;; org-ans0: from prompt ;; org-ans1: from mouse click ;; org-ans2: from calendar motion @@ -11686,7 +11688,8 @@ user." (t ; Naked prompt only (unwind-protect - (setq ans (read-string prompt default-input nil timestr)) + (setq ans (read-string prompt default-input + 'org-read-date-history timestr)) (when org-read-date-overlay (org-delete-overlay org-read-date-overlay) (setq org-read-date-overlay nil))))) -- 2.11.4.GIT