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

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

[elpa] externals/ivy-posframe d5e7314 099/195: move ivy-posframe--add-pr


From: Feng Shu
Subject: [elpa] externals/ivy-posframe d5e7314 099/195: move ivy-posframe--add-prompt to advice section
Date: Sat, 3 Oct 2020 07:11:53 -0400 (EDT)

branch: externals/ivy-posframe
commit d5e7314730077168bf9397e3cd4f86e119291eb8
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>

    move ivy-posframe--add-prompt to advice section
---
 ivy-posframe.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 9030821..bd5126e 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -268,19 +268,6 @@ This variable is useful for `ivy-posframe-read-action' .")
   (when (ivy-posframe-read-action)
     (ivy-done)))
 
-(defun ivy-posframe--add-prompt ()
-  "Add the ivy prompt to the posframe."
-  (unless ivy-posframe--ignore-prompt
-    (with-current-buffer (window-buffer (active-minibuffer-window))
-      (let ((point (point))
-            (prompt (buffer-string)))
-        (remove-text-properties 0 (length prompt) '(read-only nil) prompt)
-        (with-current-buffer ivy-posframe-buffer
-          (goto-char (point-min))
-          (delete-region (point) (save-excursion (line-move 1 'noerror) 
(point)))
-          (insert prompt "  \n")
-          (add-text-properties point (1+ point) '(face 
ivy-posframe-cursor)))))))
-
 (defun ivy-posframe-read-action ()
   "Change the action to one of the available ones.
 
@@ -436,6 +423,19 @@ selection, non-nil otherwise."
                      `(:background ,bg-color :foreground ,bg-color)))
       (setq-local cursor-type nil))))
 
+(defun ivy-posframe--add-prompt ()
+  "Add the ivy prompt to the posframe."
+  (unless ivy-posframe--ignore-prompt
+    (with-current-buffer (window-buffer (active-minibuffer-window))
+      (let ((point (point))
+            (prompt (buffer-string)))
+        (remove-text-properties 0 (length prompt) '(read-only nil) prompt)
+        (with-current-buffer ivy-posframe-buffer
+          (goto-char (point-min))
+          (delete-region (point) (save-excursion (line-move 1 'noerror) 
(point)))
+          (insert prompt "  \n")
+          (add-text-properties point (1+ point) '(face 
ivy-posframe-cursor)))))))
+
 ;;;###autoload
 (defun ivy-posframe-enable ()
   "Enable ivy-posframe."



reply via email to

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