Skip to content

Commit

Permalink
use forward-line instead of next-line (as advised by docs)
Browse files Browse the repository at this point in the history
  • Loading branch information
countvajhula committed Mar 22, 2023
1 parent 89d191f commit 824be59
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions symex-transformations-lisp.el
Original file line number Diff line number Diff line change
Expand Up @@ -89,7 +89,7 @@
(cond ((symex--current-line-empty-p) ; ^<>$
;; only join up to the next symex if the context suggests
;; that a line break is not desired
(if (or (save-excursion (next-line)
(if (or (save-excursion (forward-line)
(not (symex--current-line-empty-p)))
(save-excursion (previous-line)
(symex--current-line-empty-p)))
Expand All @@ -100,7 +100,7 @@
(symex-left-p)))
(symex--join-to-next))
((looking-at-p "\n") ; (abc <>
(if (save-excursion (next-line)
(if (save-excursion (forward-line)
(not (symex--current-line-empty-p)))
;; only join up to the next symex if the context suggests
;; that a line break is not desired
Expand Down Expand Up @@ -224,7 +224,7 @@ text, on the respective side."
(eobp)))
(previous-line)
(progn (forward-sexp)
(next-line)))
(forward-line)))
(symex--current-line-empty-p))
;; and if the text to be pasted contains newlines,
;; then we typically want an extra newline separator
Expand Down

0 comments on commit 824be59

Please sign in to comment.