[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/taxy 8251faf 1/4: Example: (deffy) Rename command to de
From: |
ELPA Syncer |
Subject: |
[elpa] externals/taxy 8251faf 1/4: Example: (deffy) Rename command to deffy-jump |
Date: |
Fri, 17 Sep 2021 13:57:20 -0400 (EDT) |
branch: externals/taxy
commit 8251fafbffdbca5fc9624a669b8d5c229473d8a9
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Example: (deffy) Rename command to deffy-jump
---
examples/deffy.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/examples/deffy.el b/examples/deffy.el
index 286e80e..76cfb65 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -246,8 +246,8 @@ Interactively, with prefix, display in dedicated side
window."
(deffy :display-buffer-action (or deffy-display-buffer-action
'((display-buffer-same-window)))))
-(defun deffy-goto-def (def)
- "Go to definition DEF.
+(defun deffy-jump (def)
+ "Jump to definition DEF.
Interactively, read DEF from visible Deffy window with
completion; with prefix, from all Deffy buffers."
(interactive
@@ -279,7 +279,7 @@ completion; with prefix, from all Deffy buffers."
"Go to form at point, or expand section at point."
(interactive)
(cl-etypecase (oref (magit-current-section) value)
- (deffy-def (deffy-goto-def (oref (magit-current-section) value)))
+ (deffy-def (deffy-jump (oref (magit-current-section) value)))
(taxy-magit-section (call-interactively #'magit-section-cycle))
(null nil)))
@@ -350,7 +350,7 @@ completion; with prefix, from all Deffy buffers."
(completion-extra-properties (list :annotation-function #'annotate
:affixation-function
affixation-fn))
(selected (completing-read "Definition: " dynamic-fn nil t)))
- (deffy-goto-def (alist-get selected alist nil nil #'equal)))))
+ (deffy-jump (alist-get selected alist nil nil #'equal)))))
(cl-defun deffy--file-forms (file)
"Return forms defined in FILE."