diff options
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index bec4aa4738e..4aa373d6701 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -5285,11 +5285,12 @@ Lisp programs should use this function for killing text. | |||
| 5285 | Supply two arguments, character positions BEG and END indicating the | 5285 | Supply two arguments, character positions BEG and END indicating the |
| 5286 | stretch of text to be killed. If the optional argument REGION is | 5286 | stretch of text to be killed. If the optional argument REGION is |
| 5287 | non-nil, the function ignores BEG and END, and kills the current | 5287 | non-nil, the function ignores BEG and END, and kills the current |
| 5288 | region instead." | 5288 | region instead. Interactively, REGION is always non-nil, and so |
| 5289 | this command always kills the current region." | ||
| 5289 | ;; Pass mark first, then point, because the order matters when | 5290 | ;; Pass mark first, then point, because the order matters when |
| 5290 | ;; calling `kill-append'. | 5291 | ;; calling `kill-append'. |
| 5291 | (interactive (list (mark) (point) 'region)) | 5292 | (interactive (list (mark) (point) 'region)) |
| 5292 | (unless (and beg end) | 5293 | (unless (or region (and beg end)) |
| 5293 | (user-error "The mark is not set now, so there is no region")) | 5294 | (user-error "The mark is not set now, so there is no region")) |
| 5294 | (condition-case nil | 5295 | (condition-case nil |
| 5295 | (let ((string (if region | 5296 | (let ((string (if region |