Org: mks-read-key wants another argument now
This commit is contained in:
parent
6e0e354920
commit
1fdddb9a94
|
@ -4529,7 +4529,9 @@ is selected, only the bare key is returned."
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(unless (pos-visible-in-window-p (point-max))
|
(unless (pos-visible-in-window-p (point-max))
|
||||||
(org-fit-window-to-buffer))
|
(org-fit-window-to-buffer))
|
||||||
(let ((pressed (org--mks-read-key allowed-keys prompt)))
|
(let ((pressed (org--mks-read-key allowed-keys
|
||||||
|
prompt
|
||||||
|
(not (pos-visible-in-window-p (1- (point-max)))))))
|
||||||
(setq current (concat current pressed))
|
(setq current (concat current pressed))
|
||||||
(cond
|
(cond
|
||||||
((equal pressed "\C-g") (user-error "Abort"))
|
((equal pressed "\C-g") (user-error "Abort"))
|
||||||
|
|
Loading…
Reference in a new issue