Mercurial > hg > xemacs-beta
diff lisp/select.el @ 4222:38ef5a6da799
[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 |
line wrap: on
line diff
--- a/lisp/select.el Fri Oct 12 21:51:07 2007 +0000 +++ b/lisp/select.el Sat Oct 13 14:08:30 2007 +0000 @@ -276,7 +276,9 @@ ;; application asserts the selection. This is probably not a big deal. (defun activate-region-as-selection () - (cond (mouse-track-rectangle-p (mouse-track-activate-rectangular-selection)) + (cond ((and-fboundp #'mouse-track-rectangle-p + (mouse-track-rectangle-p + (mouse-track-activate-rectangular-selection)))) ((marker-buffer (mark-marker t)) (own-selection (cons (point-marker t) (mark-marker t)))))) @@ -346,10 +348,11 @@ (set-extent-property previous-extent 'end-open nil) (cond - (mouse-track-rectangle-p - (setq previous-extent (list previous-extent)) - (default-mouse-track-next-move-rect start end previous-extent) - )) + ((and-fboundp #'mouse-track-rectangle-p + (mouse-track-rectangle-p + (setq previous-extent (list previous-extent)) + (default-mouse-track-next-move-rect start end previous-extent) + )))) previous-extent)))) (defun valid-simple-selection-p (data)