Mercurial > emacs
comparison lisp/files.el @ 18317:435e940cf31e
(ctl-x-map): Delete the C-x C-q binding for toggle-read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Jun 1997 20:19:32 +0000 |
| parents | 1058f8684eca |
| children | f984a38eda06 |
comparison
equal
deleted
inserted
replaced
| 18316:1058f8684eca | 18317:435e940cf31e |
|---|---|
| 2998 (if (eq file-arg-indices 'identity) | 2998 (if (eq file-arg-indices 'identity) |
| 2999 (car arguments) | 2999 (car arguments) |
| 3000 (apply operation arguments)))) | 3000 (apply operation arguments)))) |
| 3001 | 3001 |
| 3002 (define-key ctl-x-map "\C-f" 'find-file) | 3002 (define-key ctl-x-map "\C-f" 'find-file) |
| 3003 (define-key ctl-x-map "\C-q" 'toggle-read-only) | |
| 3004 (define-key ctl-x-map "\C-r" 'find-file-read-only) | 3003 (define-key ctl-x-map "\C-r" 'find-file-read-only) |
| 3005 (define-key ctl-x-map "\C-v" 'find-alternate-file) | 3004 (define-key ctl-x-map "\C-v" 'find-alternate-file) |
| 3006 (define-key ctl-x-map "\C-s" 'save-buffer) | 3005 (define-key ctl-x-map "\C-s" 'save-buffer) |
| 3007 (define-key ctl-x-map "s" 'save-some-buffers) | 3006 (define-key ctl-x-map "s" 'save-some-buffers) |
| 3008 (define-key ctl-x-map "\C-w" 'write-file) | 3007 (define-key ctl-x-map "\C-w" 'write-file) |