[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Richard M . Stallman]

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))