Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 4222:38ef5a6da799

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-10-13 14:08:26 by aidan] Fix the nomule package build; eliminate some non-X compile time warnings.
author aidan
date Sat, 13 Oct 2007 14:08:30 +0000
parents cef5f57bb9e2
children e29fcfd8df5f
comparison
equal deleted inserted replaced
4221:807c86a7612a 4222:38ef5a6da799
274 ;; Note that it is possible for the region to be in the "active" state 274 ;; Note that it is possible for the region to be in the "active" state
275 ;; and not be hilighted, if it is in the active state and then some other 275 ;; and not be hilighted, if it is in the active state and then some other
276 ;; application asserts the selection. This is probably not a big deal. 276 ;; application asserts the selection. This is probably not a big deal.
277 277
278 (defun activate-region-as-selection () 278 (defun activate-region-as-selection ()
279 (cond (mouse-track-rectangle-p (mouse-track-activate-rectangular-selection)) 279 (cond ((and-fboundp #'mouse-track-rectangle-p
280 (mouse-track-rectangle-p
281 (mouse-track-activate-rectangular-selection))))
280 ((marker-buffer (mark-marker t)) 282 ((marker-buffer (mark-marker t))
281 (own-selection (cons (point-marker t) (mark-marker t)))))) 283 (own-selection (cons (point-marker t) (mark-marker t))))))
282 284
283 (defvar primary-selection-extent nil 285 (defvar primary-selection-extent nil
284 "The extent of the primary selection; don't use this.") 286 "The extent of the primary selection; don't use this.")
344 ;; the extent (the visual indication), and the region between point 346 ;; the extent (the visual indication), and the region between point
345 ;; and mark (the actual selection value) become different! 347 ;; and mark (the actual selection value) become different!
346 (set-extent-property previous-extent 'end-open nil) 348 (set-extent-property previous-extent 'end-open nil)
347 349
348 (cond 350 (cond
349 (mouse-track-rectangle-p 351 ((and-fboundp #'mouse-track-rectangle-p
350 (setq previous-extent (list previous-extent)) 352 (mouse-track-rectangle-p
351 (default-mouse-track-next-move-rect start end previous-extent) 353 (setq previous-extent (list previous-extent))
352 )) 354 (default-mouse-track-next-move-rect start end previous-extent)
355 ))))
353 previous-extent)))) 356 previous-extent))))
354 357
355 (defun valid-simple-selection-p (data) 358 (defun valid-simple-selection-p (data)
356 "An obsolete function that tests whether something was a valid simple 359 "An obsolete function that tests whether something was a valid simple
357 selection using the old XEmacs selection support. You shouldn't use this 360 selection using the old XEmacs selection support. You shouldn't use this