Mercurial > hg > xemacs-beta

diff lisp/prim/modeline.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/prim/modeline.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/prim/modeline.el	Mon Aug 13 09:13:56 2007 +0200
@@ -394,7 +394,7 @@
 (defvar modeline-modified-map (make-sparse-keymap 'modeline-modified-map)
   "Keymap consulted for mouse-clicks on the modeline-modified string.")
 (define-key modeline-modified-map 'button2
-  (make-modeline-command-wrapper 'toggle-read-only))
+  (make-modeline-command-wrapper 'vc-toggle-read-only))
 
 (defvar modeline-modified-extent (make-extent nil nil)
   "Extent covering the modeline-modified string.")