mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source 
C-q.  If it's bound call that binding, otherwise call
toggle-read-only.
This commit is contained in:
Gerd Moellmann 1999-08-17 22:44:35 +00:00
parent 83d5c7724f
commit f8e5fb70fa
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/bindings.el
View File

@ -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"