[elpa] externals/org 0d01a198bc: org-attach: Show Org Attach UI starting from top

[ELPA Syncer]

branch: externals/org
commit 0d01a198bc3d1b5dc4b166b1867d02f664b689e0
Author: Marco Wahl <marcowahlsoft@gmail.com>
Commit: Marco Wahl <marcowahlsoft@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)))))