Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.174
emacs/lisp/emacs-lisp/bytecomp.el:2.175
*** emacs/lisp/emacs-lisp/bytecomp.el:2.174 Sat Jul 16 18:39:14 2005
--- emacs/lisp/emacs-lisp/bytecomp.el Sat Jul 16 19:04:35 2005
***************
*** 3353,3364 ****
"Execute forms in BODY, potentially guarded by CONDITION.
CONDITION is a variable whose value is a test in an `if' or `cond'.
BODY is the code to compile first arm of the if or the body of the
! cond clause. If CONDITION's value is of the form `(foundp 'foo)'
! or `(boundp 'foo)', the relevant warnings from BODY about foo
being undefined will be suppressed.
! If CONDITION's value is `(featurep 'xemacs)', that suppresses all
! warnings during execution of BODY."
(declare (indent 1) (debug t))
`(let* ((fbound
(if (eq 'fboundp (car-safe ,condition))
--- 3353,3364 ----
"Execute forms in BODY, potentially guarded by CONDITION.
CONDITION is a variable whose value is a test in an `if' or `cond'.
BODY is the code to compile first arm of the if or the body of the
! cond clause. If CONDITION's value is of the form (foundp 'foo)
! or (boundp 'foo), the relevant warnings from BODY about foo's
being undefined will be suppressed.
! If CONDITION's value is (not (featurep emacs)) or (featurep 'xemacs),
! that suppresses all warnings during execution of BODY."
(declare (indent 1) (debug t))
`(let* ((fbound
(if (eq 'fboundp (car-safe ,condition))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
