branch: externals/tmr
commit 81aa6ce65cbc3f47a5a69c280f45088c9dd79730
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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 ()
