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

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

[elpa] externals/dict-tree 3969702 125/154: Tidy up unnecessary macros b


From: Stefan Monnier
Subject: [elpa] externals/dict-tree 3969702 125/154: Tidy up unnecessary macros by making them into defsubst or defun.
Date: Mon, 14 Dec 2020 12:21:59 -0500 (EST)

branch: externals/dict-tree
commit 3969702b6817dfe74eed04eaa7f2492eb1fd2f25
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@dr-qubit.org>

    Tidy up unnecessary macros by making them into defsubst or defun.
---
 dict-tree.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index b6ea63b..1230627 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -121,13 +121,12 @@ If START or END is negative, it counts from the end."
 
 
 ;; `goto-line' without messing around with mark and messages
-(defmacro dictree--goto-line (line)
+(defun dictree--goto-line (line)
   "Goto line LINE, counting from line 1 at beginning of buffer."
-  `(progn
-     (goto-char 1)
-     (if (eq selective-display t)
-        (re-search-forward "[\n\C-m]" nil 'no-error (1- ,line))
-       (forward-line (1- ,line)))))
+  (goto-char 1)
+  (if (eq selective-display t)
+      (re-search-forward "[\n\C-m]" nil 'no-error (1- line))
+    (forward-line (1- line))))
 
 
 



reply via email to

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