mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-09-02 17:55:34 +00:00
Fix a kill-append regression
* lisp/simple.el (kill-append): Fix a regression when kill-ring-max is zero (bug#54842).
This commit is contained in:
parent
33828e4818
commit
cccaa9c31d
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue