sergiodj/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-09-02 17:55:34 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix a kill-append regression

Browse source 
* lisp/simple.el (kill-append): Fix a regression when
kill-ring-max is zero (bug#54842).
This commit is contained in:
Lars Ingebrigtsen 2022-04-11 12:40:50 +02:00
parent 33828e4818
commit cccaa9c31d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

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