Mercurial > emacs
changeset 25312:4d817651d5b4
(mode-line-modified): Look up key binding for C-x
C-q. If it's bound call that binding, otherwise call
toggle-read-only.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 17 Aug 1999 22:44:35 +0000 |
| parents | 745ff7cc2786 |
| children | 6b4475fbef86 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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"