update packages

This commit is contained in:
2025-06-22 17:08:08 +02:00
parent 54e5633369
commit 16a0a6db93
558 changed files with 68349 additions and 26568 deletions

View File

@@ -1,15 +1,11 @@
(define-package "hydra" "20220910.1206" "Make bindings that stick around."
;; -*- no-byte-compile: t; lexical-binding: nil -*-
(define-package "hydra" "20250316.1254"
"Make bindings that stick around."
'((cl-lib "0.5")
(lv "0"))
:commit "317e1de33086637579a7aeb60f77ed0405bf359b" :authors
'(("Oleh Krehel" . "ohwoeowho@gmail.com"))
:maintainers
'(("Oleh Krehel" . "ohwoeowho@gmail.com"))
:maintainer
'("Oleh Krehel" . "ohwoeowho@gmail.com")
:keywords
'("bindings")
:url "https://github.com/abo-abo/hydra")
;; Local Variables:
;; no-byte-compile: t
;; End:
(lv "0"))
:url "https://github.com/abo-abo/hydra"
:commit "59a2a45a35027948476d1d7751b0f0215b1e61aa"
:revdesc "59a2a45a3502"
:keywords '("bindings")
:authors '(("Oleh Krehel" . "ohwoeowho@gmail.com"))
:maintainers '(("Oleh Krehel" . "ohwoeowho@gmail.com")))

View File

@@ -5,7 +5,8 @@
;; Author: Oleh Krehel <ohwoeowho@gmail.com>
;; Maintainer: Oleh Krehel <ohwoeowho@gmail.com>
;; URL: https://github.com/abo-abo/hydra
;; Version: 0.15.0
;; Package-Version: 20250316.1254
;; Package-Revision: 59a2a45a3502
;; Keywords: bindings
;; Package-Requires: ((cl-lib "0.5") (lv "0"))
@@ -330,26 +331,6 @@ Exitable only through a blue head.")
"^.*(\\(defhydra\\) \\([a-zA-Z-]+\\)"
2)))
;;* Find Function
(eval-after-load 'find-func
'(defadvice find-function-search-for-symbol
(around hydra-around-find-function-search-for-symbol-advice
(symbol type library) activate)
"Navigate to hydras with `find-function-search-for-symbol'."
(prog1 ad-do-it
(when (symbolp symbol)
;; The original function returns (cons (current-buffer) (point))
;; if it found the point.
(unless (cdr ad-return-value)
(with-current-buffer (find-file-noselect library)
(let ((sn (symbol-name symbol)))
(when (and (null type)
(string-match "\\`\\(hydra-[a-z-A-Z0-9]+\\)/\\(.*\\)\\'" sn)
(re-search-forward (concat "(defhydra " (match-string 1 sn))
nil t))
(goto-char (match-beginning 0)))
(cons (current-buffer) (point)))))))))
;;* Universal Argument
(defvar hydra-base-map
(let ((map (make-sparse-keymap)))