Merge remote-tracking branch 'upstream/hydra/main' into externals/hydraexternals/hydra

1 files changed, 1 insertions, 26 deletions

diff --git a/hydra.el b/hydra.el
index 5d5623c..6d0f29b 100644
--- a/hydra.el
+++ b/hydra.el
@@ -1,6 +1,6 @@
 ;;; hydra.el --- Make bindings that stick around. -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2022  Free Software Foundation, Inc.
+;; Copyright (C) 2015-2025  Free Software Foundation, Inc.
 
 ;; Author: Oleh Krehel <ohwoeowho@gmail.com>
 ;; Maintainer: Oleh Krehel <ohwoeowho@gmail.com>
@@ -322,31 +322,6 @@ Exitable only through a blue head.")
      "^.*(\\(defhydra\\) \\([[:alpha:]-]+\\)"
      2)))
 
-;;* Find Function
-
-;; FIXME: Maybe we can dispense with this advice if `defhydra' adds appropriate
-;; `definition-name' properties to the functions it defines?
-(advice-add 'find-function-search-for-symbol :around
-            #'hydra--around-find-function-search-for-symbol-advice)
-
-(defun hydra--around-find-function-search-for-symbol-advice
-    (orig-fun symbol type library)
-  "Navigate to hydras with `find-function-search-for-symbol'."
-  (let ((res (apply orig-fun symbol type library)))
-    (when (symbolp symbol)
-        ;; The original function returns (cons (current-buffer) (point))
-        ;; if it found the point.
-        (unless (cdr res)
-          (with-current-buffer (find-file-noselect library)
-            (let ((sn (symbol-name symbol)))
-              (when (and (null type)
-                         (string-match "\\`\\(hydra-[[:alnum:]-]+\\)/\\(.*\\)\\'" sn)
-                         (re-search-forward (concat "(defhydra " (match-string 1 sn))
-                                            nil t))
-                (goto-char (match-beginning 0)))
-              (cons (current-buffer) (point))))))
-    res))
-
 ;;* Universal Argument
 (defvar hydra-base-map
   (let ((map (make-sparse-keymap)))