diff options
| author | Richard M. Stallman | 1994-07-12 22:32:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-12 22:32:58 +0000 |
| commit | 997a3b04bc2111d04ff6e3e97487c986b8ca87bc (patch) | |
| tree | 9f29865a370629bebd45e8ee22b73a81cb462423 | |
| parent | a6e6e718a278ac3f7a168fd448d799f102c654ca (diff) | |
| download | emacs-997a3b04bc2111d04ff6e3e97487c986b8ca87bc.tar.gz emacs-997a3b04bc2111d04ff6e3e97487c986b8ca87bc.zip | |
Delete debugging lines from previous change.
| -rw-r--r-- | lisp/mouse-sel.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 112f7285663..092e1cae6b8 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el | |||
| @@ -248,7 +248,6 @@ This should be bound to a down-mouse event." | |||
| 248 | (setq mouse-sel-selection-type | 248 | (setq mouse-sel-selection-type |
| 249 | (mouse-sel-determine-selection-type (event-click-count EVENT))) | 249 | (mouse-sel-determine-selection-type (event-click-count EVENT))) |
| 250 | (let ((object-bounds (bounds-of-thing-at-point mouse-sel-selection-type))) | 250 | (let ((object-bounds (bounds-of-thing-at-point mouse-sel-selection-type))) |
| 251 | (setq foo object-bounds) | ||
| 252 | (if object-bounds | 251 | (if object-bounds |
| 253 | (progn | 252 | (progn |
| 254 | (setq mark-active t) | 253 | (setq mark-active t) |
| @@ -334,7 +333,6 @@ This should be bound to a down-mouse event." | |||
| 334 | (t (goto-char (posn-point end))) | 333 | (t (goto-char (posn-point end))) |
| 335 | 334 | ||
| 336 | ) | 335 | ) |
| 337 | (setq foo1 (cons (list min max (point)) foo1)) | ||
| 338 | ;; Determine direction of drag | 336 | ;; Determine direction of drag |
| 339 | (cond | 337 | (cond |
| 340 | ((and (not direction) (not (eq min max))) | 338 | ((and (not direction) (not (eq min max))) |