[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.