From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 11 Apr 2022 10:40:50 +0000 (+0200)
Subject: Fix a kill-append regression
X-Git-Tag: emacs-28.1.90~144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cccaa9c31de363bba5920031ecdb9db4ad3207ee;p=emacs.git

Fix a kill-append regression

* lisp/simple.el (kill-append): Fix a regression when
kill-ring-max is zero (bug#54842).
---

diff --git a/lisp/simple.el b/lisp/simple.el
index a8ca9600aff..b9cb957064d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5183,7 +5183,7 @@ If `kill-append-merge-undo' is non-nil, remove the last undo
 boundary in the current buffer."
   (let ((cur (car kill-ring)))
     (kill-new (if before-p (concat string cur) (concat cur string))
-              (or (string= cur "")
+              (or (= (length cur) 0)
                   (null (get-text-property 0 'yank-handler cur)))))
   (when (and kill-append-merge-undo (not buffer-read-only))
     (let ((prev buffer-undo-list)