diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-12 22:32:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-12 22:32:58 +0000 |
| commit | 997a3b04bc2111d04ff6e3e97487c986b8ca87bc (patch) | |
| tree | 9f29865a370629bebd45e8ee22b73a81cb462423 /lisp/mouse-sel.el | |
| parent | a6e6e718a278ac3f7a168fd448d799f102c654ca (diff) | |
| download | emacs-997a3b04bc2111d04ff6e3e97487c986b8ca87bc.tar.gz | |
Delete debugging lines from previous change.
Diffstat (limited to 'lisp/mouse-sel.el')
| -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." (setq mouse-sel-selection-type (mouse-sel-determine-selection-type (event-click-count EVENT))) (let ((object-bounds (bounds-of-thing-at-point mouse-sel-selection-type))) - (setq foo object-bounds) (if object-bounds (progn (setq mark-active t) @@ -334,7 +333,6 @@ This should be bound to a down-mouse event." (t (goto-char (posn-point end))) ) - (setq foo1 (cons (list min max (point)) foo1)) ;; Determine direction of drag (cond ((and (not direction) (not (eq min max))) |