# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 934929875 0
# Node ID 4d817651d5b477c7b4f5f73575bee1a0305b9283
# Parent  745ff7cc2786c63a4affab60f4154db4052d2c78
(mode-line-modified): Look up key binding for C-x
C-q.  If it's bound call that binding, otherwise call
toggle-read-only.

diff -r 745ff7cc2786 -r 4d817651d5b4 lisp/bindings.el
--- a/lisp/bindings.el	Tue Aug 17 18:51:25 1999 +0000
+++ b/lisp/bindings.el	Tue Aug 17 22:44:35 1999 +0000
@@ -88,7 +88,10 @@
 	(interactive "e")
 	(save-selected-window
 	  (select-window (posn-window (event-start event)))
-	  (toggle-read-only))))
+	  (let ((binding (key-binding "\C-x\C-q")))
+	    (if binding
+		(funcall binding)
+	      (toggle-read-only))))))
     (set-text-properties 0 (length s)
 			 (list 'help-echo
 			       "Read-only status: mouse-2 toggles it"