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 | |
| parent | 5d305367662fbdf5f127794027673b8e1e65adf6 (diff) | |
| download | emacs-bd3073920fe7bf841a155480e3a77a1030bacfa8.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 8 | ||||
| -rw-r--r-- | lisp/simple.el | 3 |
2 files changed, 7 insertions, 4 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. diff --git a/lisp/simple.el b/lisp/simple.el index a70a7c5b246..69414a3cb11 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -691,7 +691,8 @@ Repeating \\[universal-argument] without digits or minus sign (setq sign (- sign) factor nil) ;; (describe-arg value sign) (setq key (read-key-sequence nil t))) - (while (and (= (length key) 1) + (while (and (stringp key) + (= (length key) 1) (not (string< key "0")) (not (string< "9" key))) (setq value (+ (* (if (numberp value) value 0) 10) |