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

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.175 
emacs/lisp/emacs-lisp/bytecomp.el:2.176
*** emacs/lisp/emacs-lisp/bytecomp.el:2.175     Sat Jul 16 19:04:35 2005
--- emacs/lisp/emacs-lisp/bytecomp.el   Sat Jul 16 21:17:10 2005
***************
*** 358,364 ****
  
  (defvar byte-compile-interactive-only-functions
    '(beginning-of-buffer end-of-buffer replace-string replace-regexp
!                       insert-file)
    "List of commands that are not meant to be called from Lisp.")
  
  (defvar byte-compile-not-obsolete-var nil
--- 358,364 ----
  
  (defvar byte-compile-interactive-only-functions
    '(beginning-of-buffer end-of-buffer replace-string replace-regexp
!     insert-file insert-buffer insert-file-literally)
    "List of commands that are not meant to be called from Lisp.")
  
  (defvar byte-compile-not-obsolete-var nil
***************
*** 3353,3363 ****
    "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
--- 3353,3363 ----
    "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 (fboundp '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