Commit fd5285f3 authored by Richard M. Stallman's avatar Richard M. Stallman

*** empty log message ***

parent 8215ebe6
;;; -*- Mode: Emacs-Lisp -*-
;;; Compilation of Lisp code into byte code.
;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;;; bytecomp.el --- compilation of Lisp code into byte code.
;; Author: Jamie Zawinski <jwz@lucid.com>
;; Hallvard Furuseth <hbf@ulrik.uio.no>
;; Last-Modified: 15 Jul 1992
;; Keywords: internal
;; By Jamie Zawinski <jwz@lucid.com> and Hallvard Furuseth <hbf@ulrik.uio.no>.
;; Subsequently modified by RMS.
(defconst byte-compile-version "FSF 2.1")
;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
......@@ -23,6 +27,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;; ========================================================================
;;; Entry points:
;;; byte-recompile-directory, byte-compile-file, batch-byte-compile,
......@@ -757,8 +763,11 @@ otherwise pop it")
(if byte-compile-error-on-warn
(error "%s" format) ; byte-compile-file catches and logs it
(byte-compile-log-1 (concat "** " format))
(or noninteractive ; already written on stdout.
(message "Warning: %s" format))))
;;; It is useless to flash warnings too fast to be read.
;;; Besides, they will all be shown at the end.
;;; (or noninteractive ; already written on stdout.
;;; (message "Warning: %s" format))
))
;;; Used by make-obsolete.
(defun byte-compile-obsolete (form)
......@@ -1043,6 +1052,7 @@ otherwise pop it")
(recenter 1))))))))
;;;###autoload
(defun byte-recompile-directory (directory &optional arg)
"Recompile every `.el' file in DIRECTORY that needs recompilation.
This is if a `.elc' file exists but is older than the `.el' file.
......@@ -1070,6 +1080,7 @@ for each such `.el' file, whether to compile it."
(message "Done (Total of %d file%s compiled)"
count (if (= count 1) "" "s"))))
;;;###autoload
(defun byte-compile-file (filename &optional load)
"Compile a file of Lisp code named FILENAME into a file of byte code.
The output file's name is made by appending `c' to the end of FILENAME.
......@@ -1087,8 +1098,8 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling."
(list (read-file-name (if current-prefix-arg
"Byte compile and load file: "
"Byte compile file: ")
file-dir file-name nil))
current-prefix-arg))
file-dir file-name nil)
current-prefix-arg)))
;; Expand now so we get the current buffer's defaults
(setq filename (expand-file-name filename))
......@@ -1142,7 +1153,7 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling."
(or (eq t byte-compile-generate-call-tree)
(y-or-n-p (format "Report call tree for %s? " filename))))
(save-excursion
(byte-compile-report-call-tree filename)))
(display-call-tree filename)))
(if load
(load target-file)))
t)
......@@ -1170,6 +1181,7 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling."
;; t)
;;; compiling a single function
;;;###autoload
(defun compile-defun (&optional arg)
"Compile and evaluate the current top-level form.
Print the result in the minibuffer.
......@@ -1180,7 +1192,8 @@ With argument, insert value in current buffer after the form."
(beginning-of-defun)
(let* ((byte-compile-current-file nil)
(byte-compile-last-warned-form 'nothing)
(value (eval (byte-compile-sexp (read (current-buffer))))))
(value (eval (displaying-byte-compile-warnings
(byte-compile-sexp (read (current-buffer)))))))
(cond (arg
(message "Compiling from buffer... done.")
(prin1 value (current-buffer))
......@@ -1525,6 +1538,7 @@ With argument, insert value in current buffer after the form."
nil)))))
;;;###autoload
(defun byte-compile (form)
"If FORM is a symbol, byte-compile its function definition.
If FORM is a lambda or a macro, byte-compile it as a function."
......@@ -2725,6 +2739,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
;; Renamed from byte-compile-report-call-tree
;; to avoid interfering with completion of byte-compile-file.
;;;###autoload
(defun display-call-tree (&optional filename)
"Display a call graph of a specified file.
This lists which functions have been called, what functions called
......@@ -2853,6 +2868,7 @@ invoked interactively."
;;; by crl@newton.purdue.edu
;;; Only works noninteractively.
;;;###autoload
(defun batch-byte-compile ()
"Run `byte-compile-file' on the files remaining on the command line.
Use this from the command line, with `-batch';
......@@ -2959,3 +2975,5 @@ For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\""
byte-compile-constant
byte-compile-variable-ref))))
nil)
;;; bytecomp.el ends here
......@@ -512,6 +512,7 @@ run `normal-mode' explicitly."
("\\.article\\'" . text-mode)
("\\.letter\\'" . text-mode)
("\\.texinfo\\'" . texinfo-mode)
("\\.texi\\'" . texinfo-mode)
("\\.lsp\\'" . lisp-mode)
("\\.awk\\'" . awk-mode)
("\\.prolog\\'" . prolog-mode)
......
......@@ -1214,17 +1214,12 @@ and reverse search is specified by a negative numeric arg."
(defun rmail-delete-forward (&optional backward)
"Delete this message and move to next nondeleted one.
Deleted messages stay in the file until the \\[rmail-expunge] command is given.
With prefix argument, delete and move backward. If there is no nondeleted
message to move to in the preferred or specified direction, move in the
other direction."
With prefix argument, delete and move backward."
(interactive "P")
(rmail-set-attribute "deleted" t)
(condition-case ()
(rmail-next-undeleted-message (if backward -1 1))
(error
(condition-case ()
(rmail-previous-undeleted-message (if backward -1 1))
(error nil)))))
(error nil)))
(defun rmail-delete-backward ()
"Delete this message and move to previous nondeleted one.
......
......@@ -521,7 +521,7 @@ Its numeric meaning is what you would get from `(interactive \"p\")'.")
if (NILP (raw))
XFASTINT (val) = 1;
else if (EQ (val, Qminus))
else if (EQ (raw, Qminus))
XSETINT (val, -1);
else if (CONSP (raw))
XSETINT (val, XINT (XCONS (raw)->car));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment