diff options
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 5df91d9cbef..12ddb3a7462 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -953,14 +953,12 @@ This does not delete the region; it acts like \\[kill-ring-save]." | |||
| 953 | ;; Delete, but make the undo-list entry share with the kill ring. | 953 | ;; Delete, but make the undo-list entry share with the kill ring. |
| 954 | ;; First, delete just one char, so in case buffer is being modified | 954 | ;; First, delete just one char, so in case buffer is being modified |
| 955 | ;; for the first time, the undo list records that fact. | 955 | ;; for the first time, the undo list records that fact. |
| 956 | (let (before-change-function after-change-function | 956 | (let (before-change-functions after-change-functions) |
| 957 | before-change-functions after-change-functions) | ||
| 958 | (delete-region beg | 957 | (delete-region beg |
| 959 | (+ beg (if (> end beg) 1 -1)))) | 958 | (+ beg (if (> end beg) 1 -1)))) |
| 960 | (let ((buffer-undo-list buffer-undo-list)) | 959 | (let ((buffer-undo-list buffer-undo-list)) |
| 961 | ;; Undo that deletion--but don't change the undo list! | 960 | ;; Undo that deletion--but don't change the undo list! |
| 962 | (let (before-change-function after-change-function | 961 | (let (before-change-functions after-change-functions) |
| 963 | before-change-functions after-change-functions) | ||
| 964 | (primitive-undo 1 buffer-undo-list)) | 962 | (primitive-undo 1 buffer-undo-list)) |
| 965 | ;; Now delete the rest of the specified region, | 963 | ;; Now delete the rest of the specified region, |
| 966 | ;; but don't record it. | 964 | ;; but don't record it. |