(vc-svn-admin-directory): New var.

[bpt/emacs.git] / lisp / ruler-mode.el

diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 4763072..10d05da 100644 (file)
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -1,6 +1,7 @@
 ;;; ruler-mode.el --- display a ruler in the header line
 
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005,
+;;   2006 Free Software Foundation, Inc.
 
 ;; Author: David Ponce <david@dponce.com>
 ;; Maintainer: David Ponce <david@dponce.com>
@@ -526,6 +527,16 @@ START-EVENT is the mouse click event."
       #'ruler-mode-mouse-del-tab-stop)
     (define-key km [header-line (control down-mouse-2)]
       #'ruler-mode-toggle-show-tab-stops)
+    (define-key km [header-line (shift mouse-1)]
+      'ignore)
+    (define-key km [header-line (shift mouse-3)]
+      'ignore)
+    (define-key km [header-line (control mouse-1)]
+      'ignore)
+    (define-key km [header-line (control mouse-3)]
+      'ignore)
+    (define-key km [header-line (control mouse-2)]
+      'ignore)
     km)
   "Keymap for ruler minor mode.")