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

[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)



reply via email to

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