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

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

[elpa] externals/corfu 712f2617b0 2/2: Revert "popupinfo: Remap beg/end-


From: ELPA Syncer
Subject: [elpa] externals/corfu 712f2617b0 2/2: Revert "popupinfo: Remap beg/end-other-window (#270)"
Date: Sun, 4 Dec 2022 14:57:25 -0500 (EST)

branch: externals/corfu
commit 712f2617b06665efde477d664422d4392929b86b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Revert "popupinfo: Remap beg/end-other-window (#270)"
    
    This reverts commit 218315a12ad3e01545a52784785457140af54934.
---
 extensions/corfu-popupinfo.el | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 264d5bb122..c55ea1f700 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -119,8 +119,6 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
     (define-key map "\M-t" #'corfu-popupinfo-toggle)
     (define-key map [remap scroll-other-window] #'corfu-popupinfo-scroll-up)
     (define-key map [remap scroll-other-window-down] 
#'corfu-popupinfo-scroll-down)
-    (define-key map [remap end-of-buffer-other-window] 
#'corfu-popupinfo-end-of-buffer)
-    (define-key map [remap beginning-of-buffer-other-window] 
#'corfu-popupinfo-beginning-of-buffer)
     map)
   "Additional keymap activated in popupinfo mode.")
 
@@ -380,31 +378,11 @@ form (X Y WIDTH HEIGHT DIR)."
   "Clear the info popup buffer content and hide it."
   (corfu--hide-frame corfu-popupinfo--frame))
 
-(defun corfu-popupinfo-end-of-buffer (&optional n)
-  "Scroll text of info popup window to its end.
-
-If arg N is omitted or nil, scroll to end.  If a numerical value,
-put point N/10 of the way from the end.  If the info popup is not
-visible, the other window is moved to beginning or end."
-  (interactive "P")
-  (if (corfu-popupinfo--visible-p)
-      (with-selected-frame corfu-popupinfo--frame
-        (with-current-buffer " *corfu-popupinfo*"
-          (end-of-buffer n)))
-    (end-of-buffer-other-window n)))
-
-(defun corfu-popupinfo-beginning-of-buffer (&optional n)
-  "Scroll text of info popup window to beginning of buffer.
-
-See `corfu-popupinfo-end-of-buffer' for more details."
-  (interactive "P")
-  (corfu-popupinfo-end-of-buffer (- 10 (if (numberp n) n 0))))
-
 (defun corfu-popupinfo-scroll-up (&optional n)
   "Scroll text of info popup window upward N lines.
 
 If ARG is omitted or nil, scroll upward by a near full screen.
-See `scroll-up' for details.  If the info popup is not visible,
+See `scroll-up' for details. If the info popup is not visible,
 the other window is scrolled."
   (interactive "p")
   (if (corfu-popupinfo--visible-p)



reply via email to

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