diff options
| author | Noam Postavsky | 2016-07-03 21:40:26 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2016-07-16 21:16:43 -0400 |
| commit | 219b39f5215200fa8128fd3b595017e0a380eb8f (patch) | |
| tree | 1bbf89be6e79adb29cce8ab5a1a6ebfbb3cda795 | |
| parent | 59fa4c39f4141a0f2cb3c41e180ed812be577b27 (diff) | |
| download | emacs-219b39f5215200fa8128fd3b595017e0a380eb8f.tar.gz emacs-219b39f5215200fa8128fd3b595017e0a380eb8f.zip | |
kill-rectangle should mention killed-rectangle
* lisp/rect.el (kill-rectangle): Mention `killed-rectangle' in docstring
and warning message, rather than kill ring (Bug#19773).
| -rw-r--r-- | lisp/rect.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 43621d970d2..dd066caeac6 100644 --- a/lisp/rect.el +++ b/lisp/rect.el | |||
| @@ -284,7 +284,7 @@ With a prefix (or a FILL) argument, also fill lines where nothing has to be | |||
| 284 | deleted. | 284 | deleted. |
| 285 | 285 | ||
| 286 | If the buffer is read-only, Emacs will beep and refrain from deleting | 286 | If the buffer is read-only, Emacs will beep and refrain from deleting |
| 287 | the rectangle, but put it in the kill ring anyway. This means that | 287 | the rectangle, but put it in `killed-rectangle' anyway. This means that |
| 288 | you can use this command to copy text from a read-only buffer. | 288 | you can use this command to copy text from a read-only buffer. |
| 289 | \(If the variable `kill-read-only-ok' is non-nil, then this won't | 289 | \(If the variable `kill-read-only-ok' is non-nil, then this won't |
| 290 | even beep.)" | 290 | even beep.)" |
| @@ -295,7 +295,7 @@ even beep.)" | |||
| 295 | (setq deactivate-mark t) | 295 | (setq deactivate-mark t) |
| 296 | (setq killed-rectangle (extract-rectangle start end)) | 296 | (setq killed-rectangle (extract-rectangle start end)) |
| 297 | (if kill-read-only-ok | 297 | (if kill-read-only-ok |
| 298 | (progn (message "Read only text copied to kill ring") nil) | 298 | (progn (message "Read only text copied to `killed-rectangle'") nil) |
| 299 | (barf-if-buffer-read-only) | 299 | (barf-if-buffer-read-only) |
| 300 | (signal 'text-read-only (list (current-buffer))))))) | 300 | (signal 'text-read-only (list (current-buffer))))))) |
| 301 | 301 | ||