diff options
| author | Richard M. Stallman | 1994-07-29 21:42:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-29 21:42:41 +0000 |
| commit | 2f5ed2e8b3d75043cf246e41ed8a000864ae6012 (patch) | |
| tree | 5388b0f4993e7c7d10f45b6de8912b09b2db4058 | |
| parent | 88dd3c24e898d5f281513b5d31d53e87f46c8278 (diff) | |
| download | emacs-2f5ed2e8b3d75043cf246e41ed8a000864ae6012.tar.gz emacs-2f5ed2e8b3d75043cf246e41ed8a000864ae6012.zip | |
(mouse-choose-completion): Check for next-single-property-change
returning nil.
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 21264adf6ad..1e9b664c36e 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -1204,7 +1204,8 @@ and selects that window." | |||
| 1204 | (if (null beg) | 1204 | (if (null beg) |
| 1205 | (error "No completion here")) | 1205 | (error "No completion here")) |
| 1206 | (setq beg (previous-single-property-change beg 'mouse-face)) | 1206 | (setq beg (previous-single-property-change beg 'mouse-face)) |
| 1207 | (setq end (next-single-property-change end 'mouse-face)) | 1207 | (setq end (or (next-single-property-change end 'mouse-face) |
| 1208 | (point-max))) | ||
| 1208 | (setq choice (buffer-substring beg end))))) | 1209 | (setq choice (buffer-substring beg end))))) |
| 1209 | (let ((owindow (selected-window))) | 1210 | (let ((owindow (selected-window))) |
| 1210 | (select-window (posn-window (event-start event))) | 1211 | (select-window (posn-window (event-start event))) |