Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4221:807c86a7612a 4222:38ef5a6da799
3967 ;; default-mouse-track-next-move-rect out of mouse.el so that we 3967 ;; default-mouse-track-next-move-rect out of mouse.el so that we
3968 ;; can use its logic here. 3968 ;; can use its logic here.
3969 (cond 3969 (cond
3970 (zmacs-region-rectangular-p 3970 (zmacs-region-rectangular-p
3971 (setq zmacs-region-extent (list zmacs-region-extent)) 3971 (setq zmacs-region-extent (list zmacs-region-extent))
3972 (default-mouse-track-next-move-rect start end zmacs-region-extent) 3972 (when-fboundp #'default-mouse-track-next-move-rect
3973 (default-mouse-track-next-move-rect start end zmacs-region-extent))
3973 )) 3974 ))
3974 3975
3975 zmacs-region-extent))) 3976 zmacs-region-extent)))
3976 3977
3977 (defun zmacs-region-buffer () 3978 (defun zmacs-region-buffer ()
3993 Returns t if the region was activated (i.e. if `zmacs-regions' if t)." 3994 Returns t if the region was activated (i.e. if `zmacs-regions' if t)."
3994 (if (not zmacs-regions) 3995 (if (not zmacs-regions)
3995 nil 3996 nil
3996 (setq zmacs-region-active-p t 3997 (setq zmacs-region-active-p t
3997 zmacs-region-stays t 3998 zmacs-region-stays t
3998 zmacs-region-rectangular-p (and (boundp 'mouse-track-rectangle-p) 3999 zmacs-region-rectangular-p (and-boundp 'mouse-track-rectangle-p
3999 mouse-track-rectangle-p)) 4000 mouse-track-rectangle-p))
4000 (if (marker-buffer (mark-marker t)) 4001 (if (marker-buffer (mark-marker t))
4001 (zmacs-make-extent-for-region (cons (point-marker t) (mark-marker t)))) 4002 (zmacs-make-extent-for-region (cons (point-marker t) (mark-marker t))))
4002 (run-hooks 'zmacs-activate-region-hook) 4003 (run-hooks 'zmacs-activate-region-hook)
4003 t)) 4004 t))
4004 4005