branch: externals/org
commit 0d01a198bc3d1b5dc4b166b1867d02f664b689e0
Author: Marco Wahl <marcowahls...@gmail.com>
Commit: Marco Wahl <marcowahls...@gmail.com>
org-attach: Show Org Attach UI starting from top
* org-attach.el (org-attach): Move cursor to the top of the
UI-description buffer.
This matters when the buffer does not fit completely in the window for
display. Without the change the user would see the bottom part.
---
lisp/org-attach.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index e8b27751e7..8d01eda71f 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -343,7 +343,8 @@ Shows a list of commands and prompts for another key to
execute a command."
"Invalid `org-attach-commands' item: %S"
entry))))
org-attach-commands
- "\n")))))
+ "\n"))))
+ (goto-char (point-min)))
(org-fit-window-to-buffer (get-buffer-window "*Org Attach*"))
(let ((msg (format "Select command: [%s]"
(concat (mapcar #'caar org-attach-commands)))))
