[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vundo 38f3471653 2/2: Cleanup: avoid unnecessary concat
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/vundo 38f3471653 2/2: Cleanup: avoid unnecessary concat, use eobp |
|
Date: |
Mon, 1 Jan 2024 18:58:49 -0500 (EST) |
branch: externals/vundo
commit 38f34716538e9508a45a9704501988e4f1be74a8
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>
Cleanup: avoid unnecessary concat, use eobp
* vundo-diff.el (vundo-diff--cleanup-diff-buffer): Avoid concat.
* vundo.el (vundo--next-line-at-column): Use eobp.
---
vundo-diff.el | 8 ++++----
vundo.el | 2 +-
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/vundo-diff.el b/vundo-diff.el
index 61d0c3227c..e6ebb9a80d 100644
--- a/vundo-diff.el
+++ b/vundo-diff.el
@@ -64,10 +64,10 @@ CURRENT node."
(with-current-buffer buf
(vundo-diff-mode)
(goto-char (point-min))
- (insert (concat (propertize "vundo-diff: " 'font-lock-face 'diff-header)
- (propertize orig-name 'font-lock-face
- '(diff-file-header diff-header))
- "\n"))
+ (insert (propertize "vundo-diff: " 'font-lock-face 'diff-header)
+ (propertize orig-name 'font-lock-face
+ '(diff-file-header diff-header))
+ "\n")
(let* ((change-files
(cl-loop for (name fullname ts) in info
for pat in '("---" "+++")
diff --git a/vundo.el b/vundo.el
index 8d04440180..6248c7aecd 100644
--- a/vundo.el
+++ b/vundo.el
@@ -562,7 +562,7 @@ current buffer (if unmodified)."
(defun vundo--next-line-at-column (col)
"Move point to next line column COL."
(unless (and (eq 0 (forward-line))
- (not (eq (point) (point-max))))
+ (not (eobp)))
(goto-char (point-max))
(insert "\n"))
(move-to-column col)