Commit f8e5fb70 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(mode-line-modified): Look up key binding for C-x

C-q.  If it's bound call that binding, otherwise call
toggle-read-only.
parent 83d5c772
......@@ -88,7 +88,10 @@ Normally nil in most modes, since there is no process to display.")
(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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment