/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.253 by monnier, Thu Oct 28 23:33:23 2004 UTC revision 1.254 by sds, Fri Oct 29 14:31:34 2004 UTC
# Line 1029  If MODE is 2 then do the same for lines. Line 1029  If MODE is 2 then do the same for lines.
1029          (echo-keystrokes 0)          (echo-keystrokes 0)
1030          event events key ignore          event events key ignore
1031          (x-lost-selection-functions          (x-lost-selection-functions
1032           (if (boundp 'x-lost-selection-functions)           (when (boundp 'x-lost-selection-functions)
1033               (copy-sequence x-lost-selection-functions))))             (copy-sequence x-lost-selection-functions))))
1034      (add-hook 'x-lost-selection-hook      (add-hook 'x-lost-selection-functions
1035                (lambda (seltype)                (lambda (seltype)
1036                  (if (eq seltype 'PRIMARY)                  (when (eq seltype 'PRIMARY)
1037                      (progn (setq ignore t)                    (setq ignore t)
1038                             (throw 'mouse-show-mark t)))))                    (throw 'mouse-show-mark t))))
1039      (if transient-mark-mode      (if transient-mark-mode
1040          (delete-overlay mouse-drag-overlay)          (delete-overlay mouse-drag-overlay)
1041        (move-overlay mouse-drag-overlay (point) (mark t)))        (move-overlay mouse-drag-overlay (point) (mark t)))
# Line 1065  If MODE is 2 then do the same for lines. Line 1065  If MODE is 2 then do the same for lines.
1065                                            nil keys)                                            nil keys)
1066                        (setq events nil)))))))                        (setq events nil)))))))
1067      ;; If we lost the selection, just turn off the highlighting.      ;; If we lost the selection, just turn off the highlighting.
1068      (if ignore      (unless ignore
         nil  
1069        ;; For certain special keys, delete the region.        ;; For certain special keys, delete the region.
1070        (if (member key mouse-region-delete-keys)        (if (member key mouse-region-delete-keys)
1071            (delete-region (overlay-start mouse-drag-overlay)            (delete-region (overlay-start mouse-drag-overlay)

Legend:
Removed from v.1.253  
changed lines
  Added in v.1.254

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26