diff options
| author | Karl Heuer | 1995-05-20 05:36:11 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-20 05:36:11 +0000 |
| commit | eb9780b030287af9625e516affdea18f77ee7a29 (patch) | |
| tree | cd5f32505adaa3a986efb7eea9f1788634f2722b | |
| parent | d111e5ab1214e78c6cc8501254eafc13c91cbbbe (diff) | |
| download | emacs-eb9780b030287af9625e516affdea18f77ee7a29.tar.gz emacs-eb9780b030287af9625e516affdea18f77ee7a29.zip | |
(mouse-save-then-kill): Fix previous change.
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 562d139a64c..d589ae48fc1 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -716,7 +716,7 @@ If you do this twice in the same position, the selection is killed." | |||
| 716 | (if before-scroll | 716 | (if before-scroll |
| 717 | (goto-char before-scroll)) | 717 | (goto-char before-scroll)) |
| 718 | (exchange-point-and-mark) | 718 | (exchange-point-and-mark) |
| 719 | (kill-new (buffer-substring (point) (mark t)) t)) | 719 | (kill-new (buffer-substring (point) (mark t)))) |
| 720 | (mouse-set-region-1) | 720 | (mouse-set-region-1) |
| 721 | (setq mouse-save-then-kill-posn | 721 | (setq mouse-save-then-kill-posn |
| 722 | (list (car kill-ring) (point) click-posn))))))) | 722 | (list (car kill-ring) (point) click-posn))))))) |