emacs-elpa-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]