--- a/.emacs-my	Mon Dec 28 19:41:55 2009 +0200
+++ b/.emacs-my	Mon Dec 28 19:46:04 2009 +0200
@@ -342,6 +342,11 @@
 ;; ======================================================================
 ;; Convenient
 
+(defun reglen()
+  "Show region length."
+  (interactive)
+  (message "%s" (- (region-end) (region-beginning))))
+
 ;; ----------------------------------------------------------------------
 ;; Completion