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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-matchit 20270ab6b0 135/244: support one liner


From: ELPA Syncer
Subject: [nongnu] elpa/evil-matchit 20270ab6b0 135/244: support one liner
Date: Thu, 6 Jan 2022 02:58:56 -0500 (EST)

branch: elpa/evil-matchit
commit 20270ab6b0a3a398942609f7acc3d0162b954591
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    support one liner
---
 evil-matchit-elixir.el | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/evil-matchit-elixir.el b/evil-matchit-elixir.el
index 1a08144639..b089e9ddb4 100644
--- a/evil-matchit-elixir.el
+++ b/evil-matchit-elixir.el
@@ -51,12 +51,28 @@
 
 ;;;###autoload
 (defun evilmi-elixir-get-tag ()
-  (let* ((rlt (evilmi-sdk-get-tag evilmi-elixir-match-tags 
evilmi-elixir-extract-keyword-howtos)))
+  (let* ((cur-line (evilmi-sdk-curline))
+         rlt)
+    (cond
+     ((string-match-p "^[ \t]*fn.*end$" cur-line)
+      (setq rlt (if (string= (thing-at-point 'symbol) "end")
+                    (line-beginning-position)
+                  (line-end-position))))
+     (t
+      (setq  rlt (evilmi-sdk-get-tag evilmi-elixir-match-tags
+                                     evilmi-elixir-extract-keyword-howtos))))
     rlt))
 
 ;;;###autoload
 (defun evilmi-elixir-jump (rlt NUM)
-  (evilmi-sdk-jump rlt NUM evilmi-elixir-match-tags 
evilmi-elixir-extract-keyword-howtos))
+  (cond
+   ((integerp rlt)
+    (goto-char rlt))
+   (t
+    (evilmi-sdk-jump rlt
+                     NUM
+                     evilmi-elixir-match-tags
+                     evilmi-elixir-extract-keyword-howtos))))
 
 (provide 'evil-matchit-elixir)
 ;;; evil-matchit-elixir.el ends here



reply via email to

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