[elpa] 32/56: * sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at): * message.el (message-beginning-of-line): Use featurep instead of bound tests in order to resolve conditionals at compile time.

[Luke Lee]

lukelee pushed a commit to branch master
in repository elpa.

commit 60c1896a073c9caad394b8b7abba37943da297e9
Author: Dan Nicolaescu <address@hidden>
Date:   Thu Jan 24 15:14:52 2008 +0000

    * sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at): * 
message.el (message-beginning-of-line): Use featurep instead of bound tests in 
order to resolve conditionals at compile time.
    
    * textmodes/reftex-toc.el (reftex-toc-next, reftex-toc-previous)
    (reftex-toc-restore-region):
    * textmodes/reftex-index.el (reftex-index-initialize-phrases-buffer)
    (reftex-index-phrases-apply-to-region):
    * textmodes/ispell.el (ispell-word):
    * progmodes/vhdl-mode.el (vhdl-keep-region-active):
    * progmodes/pascal.el (pascal-mark-defun):
    * progmodes/f90.el (f90-mark-subprogram, f90-indent-region)
    (f90-fill-region):
    * emulation/tpu-edt.el (tpu-set-mark):
    * emulation/crisp.el (crisp-region-active):
    * winner.el (winner-active-region):
    * ansi-color.el (ansi-color-set-extent-face): Use featurep instead
    of bound tests in order to resolve conditionals at compile time.
---
 lisp/emulation/crisp.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index b5fd7ee..7c254da 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -148,7 +148,7 @@ does not load the scroll-all package."
 
 (defun crisp-region-active ()
   "Compatibility function to test for an active region."
-  (if (boundp 'zmacs-region-active-p)
+  (if (featurep 'xemacs)
       zmacs-region-active-p
     mark-active))