Mercurial > hg > xemacs-beta

diff lisp/simple.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 94ecba3ecd77
children bea04dade8af
line wrap: on
line diff
--- a/lisp/simple.el	Fri Oct 12 21:51:07 2007 +0000
+++ b/lisp/simple.el	Sat Oct 13 14:08:30 2007 +0000
@@ -3969,7 +3969,8 @@
       (cond
        (zmacs-region-rectangular-p
 	(setq zmacs-region-extent (list zmacs-region-extent))
-	(default-mouse-track-next-move-rect start end zmacs-region-extent)
+        (when-fboundp #'default-mouse-track-next-move-rect
+          (default-mouse-track-next-move-rect start end zmacs-region-extent))
 	))
 
       zmacs-region-extent)))
@@ -3995,8 +3996,8 @@
       nil
     (setq zmacs-region-active-p t
 	  zmacs-region-stays t
-	  zmacs-region-rectangular-p (and (boundp 'mouse-track-rectangle-p)
-					  mouse-track-rectangle-p))
+	  zmacs-region-rectangular-p (and-boundp 'mouse-track-rectangle-p
+                                       mouse-track-rectangle-p))
     (if (marker-buffer (mark-marker t))
 	(zmacs-make-extent-for-region (cons (point-marker t) (mark-marker t))))
     (run-hooks 'zmacs-activate-region-hook)