🚀 go-pugleaf

Problem: When an empty region is killed with kill-region and then
yanked, an error occurs since (car kill-ring) is nil instead of "".
(Try set-mark-command, kill-region, yank).

Current definition in simple.el:
(defun kill-region (beg end)
  (interactive "*r")
  (if (and (not (eq buffer-undo-list t))
	   (not (eq last-command 'kill-region)))
      ;; Don't let the undo list be truncated before we can even access it.
      (let ((undo-high-threshold (+ (- (max beg end) (min beg end)) 100)))
	(delete-region beg end)
	;; Take the same string recorded for undo
	;; and put it in the kill-ring.
	(SETQ KILL-RING (CONS (CAR (CAR BUFFER-UNDO-LIST)) KILL-RING))
	(if (> (length kill-ring) kill-ring-max)
	    (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))
	(setq this-command 'kill-region)
	(setq kill-ring-yank-pointer kill-ring))
    (copy-region-as-kill beg end)
    (delete-region beg end)))

Suggested fix:
	;; Take the same string recorded for undo
	;; and put it in the kill-ring.
	(if (= beg end)		;; NAPI added special case: empty region 
	    (setq kill-ring (cons "" kill-ring))
	  (setq kill-ring (cons (car (car buffer-undo-list)) kill-ring)))

With best regards,
Anders Pikas