Mercurial > emacs
comparison lisp/emulation/cua-base.el @ 93053:f62cf4851fe9
(cua-paste): Signal an error in read-only buf.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 19 Mar 2008 01:05:50 +0000 |
| parents | 1cefa72f56f5 |
| children | e2159923235d |
comparison
equal
deleted
inserted
replaced
| 93052:3635fdf1d314 | 93053:f62cf4851fe9 |
|---|---|
| 907 (cua--insert-at-global-mark regtxt) | 907 (cua--insert-at-global-mark regtxt) |
| 908 (when (not (eobp)) | 908 (when (not (eobp)) |
| 909 (cua--insert-at-global-mark (filter-buffer-substring (point) (+ (point) count))) | 909 (cua--insert-at-global-mark (filter-buffer-substring (point) (+ (point) count))) |
| 910 (forward-char count)))) | 910 (forward-char count)))) |
| 911 (buffer-read-only | 911 (buffer-read-only |
| 912 (message "Cannot paste into a read-only buffer")) | 912 (error "Cannot paste into a read-only buffer")) |
| 913 (t | 913 (t |
| 914 ;; Must save register here, since delete may override reg 0. | 914 ;; Must save register here, since delete may override reg 0. |
| 915 (if mark-active | 915 (if mark-active |
| 916 (if cua--rectangle | 916 (if cua--rectangle |
| 917 (progn | 917 (progn |