Mercurial > emacs
comparison lisp/mouse.el @ 4472:951f354907d8
(mouse-save-then-kill): Fix paren error in last change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 06 Aug 1993 22:11:20 +0000 |
| parents | 2a1f8e922ec8 |
| children | 8362b57424dc |
comparison
equal
deleted
inserted
replaced
| 4471:31c5586e9d36 | 4472:951f354907d8 |
|---|---|
| 361 ;; that came from the first delete-region. | 361 ;; that came from the first delete-region. |
| 362 (while (and tail (not (stringp (car (car tail))))) | 362 (while (and tail (not (stringp (car (car tail))))) |
| 363 (setq tail (cdr tail))) | 363 (setq tail (cdr tail))) |
| 364 ;; Replace it with an entry for the entire deleted text. | 364 ;; Replace it with an entry for the entire deleted text. |
| 365 (and tail | 365 (and tail |
| 366 (setcar tail (cons (car kill-ring) (point)))))))) | 366 (setcar tail (cons (car kill-ring) (point))))))) |
| 367 ;; Otherwise, save this region. | 367 ;; Otherwise, save this region. |
| 368 (mouse-set-mark-fast click) | 368 (mouse-set-mark-fast click) |
| 369 (kill-ring-save (point) (mark t)) | 369 (kill-ring-save (point) (mark t)) |
| 370 (mouse-show-mark) | 370 (mouse-show-mark) |
| 371 (setq mouse-save-then-kill-posn | 371 (setq mouse-save-then-kill-posn |