--- a/lisp/paragraphs.el	Mon Aug 13 10:05:01 2007 +0200
+++ b/lisp/paragraphs.el	Mon Aug 13 10:05:51 2007 +0200
@@ -346,6 +346,12 @@
 ;   nil t))
   (mark-something 'mark-end-of-sentence 'forward-sentence arg))
 
+(defun mark-end-of-line (arg)
+  "Put mark at end of line.  Arg works as in `end-of-line'."
+  (interactive "p")
+  (mark-something 'mark-end-of-line 'end-of-line arg))
+
+
 (defun transpose-sentences (arg)
   "Interchange this (next) and previous sentence."
   (interactive "*p")