-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-
-;; emacs-18 compatibility.
-
-(if (fboundp 'make-byte-code)
- nil
- ;;
- ;; To avoid compiler bootstrapping problems, this temporary uncompiled
- ;; make-byte-code is needed to load the compiled one. Ignore the warnings.
- (fset 'make-byte-code
- '(lambda (arglist bytestring constants stackdepth doc)
- (list 'lambda arglist doc
- (list 'byte-code bytestring constants stackdepth))))
- ;;
- ;; Now get a compiled version.
- (defun make-byte-code (arglist bytestring constants stackdepth
- &optional doc &rest interactive)
- "For compatibility with Emacs19 ``.elc'' files."
- (nconc (list 'lambda arglist)
- ;; #### Removed the (stringp doc) for speed. Because the V19
- ;; make-byte-code depends on the args being correct, it won't
- ;; help to make a smarter version for V18 alone.
- ;; Btw, it should have been (or (stringp doc) (natnump doc)).
- (if doc (list doc))
- (if interactive
- (list (cons 'interactive (if (car interactive) interactive))))
- (list (list 'byte-code bytestring constants stackdepth)))))
-
-
-;;; interface to selectively inlining functions.
-;;; This only happens when source-code optimization is turned on.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; interface to selectively inlining functions.
+;; This only happens when source-code optimization is turned on.
+
+;;; Code: