Mercurial > emacs

comparison lisp/term.el @ 53761:422169b36462

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(term-mouse-paste): Call mouse-set-point.
author Richard M. Stallman <rms@gnu.org>
date Fri, 30 Jan 2004 16:53:11 +0000
parents c4a65e59063d
children 0b482d5702c7
comparison
equal deleted inserted replaced
53760:1430b8f0f2fe 53761:422169b36462
1170 (error "No selection or cut buffer available")))) 1170 (error "No selection or cut buffer available"))))
1171 (term-ifnot-xemacs 1171 (term-ifnot-xemacs
1172 ;; Give temporary modes such as isearch a chance to turn off. 1172 ;; Give temporary modes such as isearch a chance to turn off.
1173 (run-hooks 'mouse-leave-buffer-hook) 1173 (run-hooks 'mouse-leave-buffer-hook)
1174 (setq this-command 'yank) 1174 (setq this-command 'yank)
1175 (mouse-set-point click)
1175 (term-send-raw-string (current-kill (cond 1176 (term-send-raw-string (current-kill (cond
1176 ((listp arg) 0) 1177 ((listp arg) 0)
1177 ((eq arg '-) -1) 1178 ((eq arg '-) -1)
1178 (t (1- arg))))))) 1179 (t (1- arg)))))))
1179 1180