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

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

[elpa] externals/tmr 81aa6ce65c 6/7: Use forward-line instead of {next,


From: ELPA Syncer
Subject: [elpa] externals/tmr 81aa6ce65c 6/7: Use forward-line instead of {next, previous}-line
Date: Wed, 11 May 2022 04:57:56 -0400 (EDT)

branch: externals/tmr
commit 81aa6ce65cbc3f47a5a69c280f45088c9dd79730
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Use forward-line instead of {next,previous}-line
    
    This is done to placate the compiler.  The other functions are meant for
    interactive use.
---
 tmr-tabulated.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tmr-tabulated.el b/tmr-tabulated.el
index ca1f8e4066..51f6da2c89 100644
--- a/tmr-tabulated.el
+++ b/tmr-tabulated.el
@@ -82,16 +82,16 @@ Interactively, use the timer at point."
   "Move the point to the next entry if there is one or to the previous one.
 Point isn't moved if point is on the only entry."
   (if (tmr-tabulated--next-entry)
-      (next-line)
+      (forward-line 1)
     (when (tmr-tabulated--previous-entry)
-      (previous-line))))
+      (forward-line -1))))
 
 (defun tmr-tabulated--previous-entry ()
   "Return the entry on the line before point, nil if none."
   (save-excursion
     (setf (point) (line-beginning-position))
     (unless (bobp)
-      (previous-line)
+      (forward-line -1)
       (tabulated-list-get-id))))
 
 (defun tmr-tabulated--next-entry ()
@@ -99,7 +99,7 @@ Point isn't moved if point is on the only entry."
   (save-excursion
     (setf (point) (line-end-position))
     (unless (eobp)
-      (next-line)
+      (forward-line 1)
       (tabulated-list-get-id))))
 
 (defun tmr-tabulated--get-timer-at-point ()



reply via email to

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