How do I make emacs' backward-kill-word not kill across line breaks?

code.el

(defun noah-backward-kill ()
  "Exactly like backward-kill-word, except doesn't kill across line breaks."
  (interactive)
  (let ((init-pos (point))
	(line-begin (line-beginning-position))
	(word-begin (backward-word-position)))
    (if (= (point) line-begin)
	(backward-delete-char 1)
      (if (< word-begin line-begin)
	  (kill-region line-begin init-pos)
	(backward-kill-word 1)))))

(global-set-key (kbd "C-w") 'noah-backward-kill)

summary.md

Use my version of backward-kill-word instead. Add it to your .emacs file.

tags.json

["emacs","lisp","kill","emacslisp"]