X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fbytecomp-runtime.el;h=adbc4e1e5cf431c8d6289ce7112f9ed4a97a264e;hp=95d8c311daf12168949b6faa81558376c630ca77;hb=5378ab6d2bb24fd8d39025be1574d406cf91f141;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921 diff --git a/lisp/bytecomp-runtime.el b/lisp/bytecomp-runtime.el index 95d8c31..adbc4e1 100644 --- a/lisp/bytecomp-runtime.el +++ b/lisp/bytecomp-runtime.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1992, 1997 Free Software Foundation, Inc. -;; Author: Jamie Zawinski +;; Author: Jamie Zawinski ;; Author: Hallvard Furuseth ;; Maintainer: XEmacs Development Team ;; Keywords: internal, dumped @@ -92,7 +92,7 @@ They will only be compiled open-coded when `byte-optimize' is true." ; ''byte-optimizer ''byte-compile-inline-expand)))) (defun make-obsolete (fn new) - "Make the byte-compiler warn that FUNCTION is obsolete. + "Make the byte-compiler warn that function FN is obsolete. The warning will say that NEW should be used instead. If NEW is a string, that is the `use instead' message." (interactive "aMake function obsolete: \nxObsoletion replacement: ") @@ -104,7 +104,7 @@ If NEW is a string, that is the `use instead' message." fn) (defun make-obsolete-variable (var new) - "Make the byte-compiler warn that VARIABLE is obsolete, + "Make the byte-compiler warn that variable VAR is obsolete, and NEW should be used instead. If NEW is a string, then that is the `use instead' message." (interactive @@ -119,7 +119,7 @@ and NEW should be used instead. If NEW is a string, then that is the ;; By overwhelming demand, we separate out truly obsolete symbols from ;; those that are present for GNU Emacs compatibility. (defun make-compatible (fn new) - "Make the byte-compiler know that FUNCTION is provided for compatibility. + "Make the byte-compiler know that function FN is provided for compatibility. The warning will say that NEW should be used instead. If NEW is a string, that is the `use instead' message." (interactive "aMake function compatible: \nxCompatible replacement: ") @@ -131,7 +131,7 @@ If NEW is a string, that is the `use instead' message." fn) (defun make-compatible-variable (var new) - "Make the byte-compiler know that VARIABLE is provided for compatibility. + "Make the byte-compiler know that variable VAR is provided for compatibility, and NEW should be used instead. If NEW is a string, then that is the `use instead' message." (interactive