emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/frog-menu fbe8f88 10/43: Fix adding padding for avy cha


From: Clemens Radermacher
Subject: [elpa] externals/frog-menu fbe8f88 10/43: Fix adding padding for avy char
Date: Sun, 24 Mar 2019 05:14:44 -0400 (EDT)

branch: externals/frog-menu
commit fbe8f8869fd4d000c4bcd51336fec061040e2425
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix adding padding for avy char
---
 frog-menu.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/frog-menu.el b/frog-menu.el
index c980403..5b8fae4 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -192,7 +192,13 @@ ACTIONS."
     (funcall frog-menu-grid-column-function)
     (funcall frog-menu-grid-width-function)))
   (insert "\n\n")
-  (insert (frog-menu--prompt-format prompt actions)))
+  (insert (frog-menu--prompt-format prompt actions))
+  ;; padding for avy char
+  (goto-char (point-min))
+  (while (not (eobp))
+    (goto-char (line-end-position))
+    (insert " ")
+    (forward-line 1)))
 
 
 ;; * Formatting
@@ -256,11 +262,6 @@ PROMPT and ACTIONS are the arguments of `frog-menu-read'."
         (while (re-search-backward "_" header-pos t)
           (replace-match " "))))
     (goto-char (point-min))
-    ;; one more for the avy char
-    (while (not (eobp))
-      (goto-char (line-end-position))
-      (insert " ")
-      (forward-line 1))
     (buffer-string)))
 
 ;; * Display



reply via email to

[Prev in Thread] Current Thread [Next in Thread]