diff options
| author | Dan Nicolaescu <[email protected]> | 2008-01-24 15:14:52 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <[email protected]> | 2008-01-24 15:14:52 +0000 |
| commit | a445370f16f05f2b546894908921a5c345c55f94 (patch) | |
| tree | 63fce8b4674c88448e746d23cab926c8c770aa82 /lisp/emulation | |
| parent | 845ec007da2bc3b649ca9ecf113fda697e9314cb (diff) | |
* 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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/crisp.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 4 |
2 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index b5fd7ee602..7c254da869 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)) diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index ff0e6ad25e..e9de0409aa 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el @@ -751,9 +751,7 @@ version of Emacs." Sets the mark at POS and activates the region according to the current version of Emacs." (set-mark pos) - ;; We use a separate `if' for the fboundp so the byte-compiler notices it - ;; and doesn't complain about the subsequent call. - (if (fboundp 'zmacs-activate-region) (if pos (zmacs-activate-region)))) + (when (featurep 'xemacs) (when pos (zmacs-activate-region)))) (defun tpu-string-prompt (prompt history-symbol) "Read a string with PROMPT." |