ys:move-end-of-lineかなり前に書いた 「\M-m 押すのが面倒くさい」と対になるもの。
(defun ys:move-end-of-line (&optional arg)
(interactive "p")
(if (and (eq last-command 'ys:move-end-of-line)
(looking-at "$"))
(while (and (not (looking-at "^"))
(looking-back "[ \t]"))
(backward-char))
(move-end-of-line arg)))
(define-key global-map "\C-e" 'ys:move-end-of-line)
とりあえず書いただけ。