branch: externals/hydra
commit 59a2a45a35027948476d1d7751b0f0215b1e61aa
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
hydra.el: Remove the no longer necessary defadvice for
find-function-search-for-symbol
---
hydra.el | 20 --------------------
1 file changed, 20 deletions(-)
diff --git a/hydra.el b/hydra.el
index 4aafab8a22..905cc7d5e5 100644
--- a/hydra.el
+++ b/hydra.el
@@ -330,26 +330,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)))
