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

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

[nongnu] elpa/hyperdrive 33881a506e 1/2: Tidy: (h/insert-button) Remove


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 33881a506e 1/2: Tidy: (h/insert-button) Remove unused function
Date: Sun, 18 Aug 2024 16:00:29 -0400 (EDT)

branch: elpa/hyperdrive
commit 33881a506eb896215d227c536eec2c71ceaba5d2
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Tidy: (h/insert-button) Remove unused function
---
 hyperdrive-lib.el | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index cdaec1da96..113dccca43 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1661,16 +1661,6 @@ according to FORMATS, by default `hyperdrive-formats', 
which see."
   (apply #'user-error
          (concat "Hyperdrive: " (substitute-command-keys format)) args))
 
-(defun h/insert-button (text &rest properties)
-  "Insert button labeled TEXT with button PROPERTIES at point.
-PROPERTIES are passed to `insert-text-button', for which this
-function is a convenience wrapper used by `describe-package-1'."
-  ;; Inspired by package.el's `package-make-button'.
-  (let ((button-text (if (display-graphic-p) text (concat "[" text "]")))
-        (button-face (if (display-graphic-p) 'hyperdrive-button 'link)))
-    (apply #'insert-text-button button-text 'face button-face 'follow-link t
-           properties)))
-
 (cl-defun h//format-path (path &key directoryp)
   "Return PATH with a leading slash if it lacks one.
 When DIRECTORYP, also add a trailing slash to PATH if it lacks one.



reply via email to

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