From c61cdced2f165a45e9d4f5a9ca7b4fbd68fc8512 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 15 Dec 2010 23:31:08 -0500 Subject: [PATCH] Undid one of the scatter-related changes --- lisp/org-agenda.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a645139ca..19535b4fe 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7887,7 +7887,13 @@ The prefix arg is passed through to the command if possible." (c1 (if (eq action ?s) 'org-agenda-schedule 'org-agenda-deadline))) (setq cmd `(let* ((bound (fboundp 'read-string)) (old (and bound (symbol-function 'read-string)))) - (eval '(,c1 arg nil ,date)))))) + (unwind-protect + (progn + (fset 'read-string (lambda (&rest ignore) ,ans)) + (eval '(,c1 arg))) + (if bound + (fset 'read-string old) + (fmakunbound 'read-string))))))) ((eq action '?S) (let ((days (read-number