More conventient move beginning/end of line

[Lennart Borgman (gmail)]

Some editor I used long ago had some behaviour similar to the functions 
below. One press on HOME moved to the beginning of line, next to the 
start of the text on that line. It would be nice to have this in Emacs 
(maybe the ARG part should be skipped):

(defun my-move-beginning-of-line(arg)
  (interactive "p")
  (or arg (setq arg 1))
  (let ((pos (point)))
    (move-beginning-of-line arg)
    (when (= pos (point)) (skip-chars-forward " \t"))))
(put 'my-move-beginning-of-line 'CUA 'move)
(global-set-key [home] 'my-move-beginning-of-line)

(defun my-move-end-of-line(arg)
  (interactive "p")
  (or arg (setq arg 1))
  (let ((pos (point)))
    (move-end-of-line arg)
    (when (= pos (point)) (skip-chars-backward " \t"))))
(put 'my-move-end-of-line 'CUA 'move)
(global-set-key [end] 'my-move-end-of-line)