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 | 6dca871ad4de99e0da4658888613c5a1a55d1bd0 (patch) | |
| tree | eb261eaab87b47d785a0090fa62e77cc43a6fef8 /lisp/mouse-sel.el | |
| parent | 2b2101a189baaf97a5a1fe6c9ffdd7ab6a4180d1 (diff) | |
| download | emacs-6dca871ad4de99e0da4658888613c5a1a55d1bd0.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))) |