mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-05 00:43:20 +00:00
Code Releases Activity

Undid one of the scatter-related changes

Browse source
This commit is contained in:
John Wiegley 2010-12-15 23:31:08 -05:00
parent f5f2851401
commit c61cdced2f
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-agenda.el
View file

@ -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