[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 cccaa9c31d: Fix a kill-append regression
From: |
Lars Ingebrigtsen |
Subject: |
emacs-28 cccaa9c31d: Fix a kill-append regression |
Date: |
Mon, 11 Apr 2022 06:41:03 -0400 (EDT) |
branch: emacs-28
commit cccaa9c31de363bba5920031ecdb9db4ad3207ee
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix a kill-append regression
* lisp/simple.el (kill-append): Fix a regression when
kill-ring-max is zero (bug#54842).
---
lisp/simple.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/simple.el b/lisp/simple.el
index a8ca9600af..b9cb957064 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 cccaa9c31d: Fix a kill-append regression,
Lars Ingebrigtsen <=