Mercurial > emacs
diff lisp/mouse.el @ 90984:a1be62cbd32a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 814-815)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-232
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 18 Jul 2007 22:15:15 +0000 |
parents | 988f1edc9674 3bdde0e93c76 |
children | f55f9811f5d7 |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Jul 16 19:26:14 2007 +0000 +++ b/lisp/mouse.el Wed Jul 18 22:15:15 2007 +0000 @@ -1631,7 +1631,10 @@ ;; Give temporary modes such as isearch a chance to turn off. (run-hooks 'mouse-leave-buffer-hook) (or mouse-yank-at-point (mouse-set-point click)) - (insert (x-get-selection 'SECONDARY))) + (let ((secondary (x-get-selection 'SECONDARY))) + (if secondary + (insert (x-get-selection 'SECONDARY)) + (error "No secondary selection")))) (defun mouse-kill-secondary () "Kill the text in the secondary selection.