diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-29 02:14:58 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-29 02:14:58 +0000 |
| commit | bd3073920fe7bf841a155480e3a77a1030bacfa8 (patch) | |
| tree | 820401de51455f41a5e7eb36b14cf46682738e79 /lisp/mouse.el | |
| parent | 5d305367662fbdf5f127794027673b8e1e65adf6 (diff) | |
| download | emacs-bd3073920fe7bf841a155480e3a77a1030bacfa8.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index fd26ab44fb9..ac93d577daf 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -63,7 +63,8 @@ This command must be bound to a mouse click." This must be bound to a mouse click." (interactive "K") (select-window (event-window click)) - (goto-char (event-point click))) + (if (numberp (event-point click)) + (goto-char (event-point click)))) (defun mouse-set-mark (click) "Set mark at the position clicked on with the mouse. @@ -82,8 +83,9 @@ This must be bound to a mouse click." The text is saved in the kill ring, as with \\[kill-region]." (interactive "K") (let ((click-posn (event-point click))) - (kill-region (min (point) click-posn) - (max (point) click-posn)))) + (if (numberp click-posn) + (kill-region (min (point) click-posn) + (max (point) click-posn))))) (defun mouse-yank-at-click (click arg) "Insert the last stretch of killed text at the position clicked on. |