mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-18 20:10:59 +00:00
Undid one of the scatter-related changes
This commit is contained in:
parent
f5f2851401
commit
c61cdced2f
|
@ -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)))
|
(c1 (if (eq action ?s) 'org-agenda-schedule 'org-agenda-deadline)))
|
||||||
(setq cmd `(let* ((bound (fboundp 'read-string))
|
(setq cmd `(let* ((bound (fboundp 'read-string))
|
||||||
(old (and bound (symbol-function '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)
|
((eq action '?S)
|
||||||
(let ((days (read-number
|
(let ((days (read-number
|
||||||
|
|
Loading…
Reference in a new issue