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

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

[nongnu] elpa/corfu-popup 359e2e9849 26/26: Remove unused macro


From: ELPA Syncer
Subject: [nongnu] elpa/corfu-popup 359e2e9849 26/26: Remove unused macro
Date: Sun, 22 May 2022 12:58:17 -0400 (EDT)

branch: elpa/corfu-popup
commit 359e2e984953631f5831f7ed97b03f27b646824a
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Remove unused macro
---
 corfu-terminal.el | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/corfu-terminal.el b/corfu-terminal.el
index c55a61c300..669f7819c1 100644
--- a/corfu-terminal.el
+++ b/corfu-terminal.el
@@ -205,26 +205,6 @@ definition in Corfu."
 Same as `always' function of Emacs 28."
   t)
 
-(defmacro corfu-terminal--patch-out-display-graphic-p (fn name)
-  "Patch out `display-graphic-p' in FN and define NAME to that definition."
-  (let* ((vc-follow-symlinks t)
-         (definition (let ((position (find-function-noselect fn)))
-                       (with-current-buffer (car position)
-                         (save-excursion
-                           (goto-char (cdr position))
-                           (read (current-buffer)))))))
-    (setf (nth 1 definition) name)
-    (cl-labels ((patch-out
-                 (form)
-                 (cond
-                  ((equal form '(display-graphic-p))
-                   t)
-                  ((proper-list-p form)
-                   (mapcar #'patch-out form))
-                  (t
-                   form))))
-      (patch-out definition))))
-
 ;;;###autoload
 (define-minor-mode corfu-terminal-mode
   "Corfu popup on terminal."



reply via email to

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