Mercurial > hg > xemacs-beta
comparison lisp/mouse.el @ 243:f220cc83d72e r20-5b20
Import from CVS: tag r20-5b20
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:17:07 +0200 |
| parents | 0e522484dd2a |
| children | 83b3d10dcba9 |
comparison
equal
deleted
inserted
replaced
| 242:fc816b73a05f | 243:f220cc83d72e |
|---|---|
| 242 (let ((buf (generate-new-buffer "DndRawData"))) | 242 (let ((buf (generate-new-buffer "DndRawData"))) |
| 243 (set-buffer buf) | 243 (set-buffer buf) |
| 244 (pop-to-buffer buf nil frame) | 244 (pop-to-buffer buf nil frame) |
| 245 (insert data) | 245 (insert data) |
| 246 (hexlify-buffer) | 246 (hexlify-buffer) |
| 247 (make-frame-visible frame)))))) | 247 (make-frame-visible frame)))) |
| 248 (undo-boundary))) | |
| 248 | 249 |
| 249 (defun mouse-eval-sexp (click force-window) | 250 (defun mouse-eval-sexp (click force-window) |
| 250 "Evaluate the sexp under the mouse. Usually, this is the last sexp before | 251 "Evaluate the sexp under the mouse. Usually, this is the last sexp before |
| 251 the click, but if you click on a left paren, then it is the sexp beginning | 252 the click, but if you click on a left paren, then it is the sexp beginning |
| 252 with the paren that is evaluated. Also, since strings evaluate to themselves, | 253 with the paren that is evaluated. Also, since strings evaluate to themselves, |