[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-run.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-run.el |
Date: |
Sat, 12 Mar 2005 12:22:45 -0500 |
Index: emacs/lisp/emacs-lisp/byte-run.el
diff -c emacs/lisp/emacs-lisp/byte-run.el:1.6
emacs/lisp/emacs-lisp/byte-run.el:1.7
*** emacs/lisp/emacs-lisp/byte-run.el:1.6 Fri May 7 00:58:54 2004
--- emacs/lisp/emacs-lisp/byte-run.el Sat Mar 12 17:22:45 2005
***************
*** 1,6 ****
;;; byte-run.el --- byte-compiler support for inlining
! ;; Copyright (C) 1992, 2004 Free Software Foundation, Inc.
;; Author: Jamie Zawinski <address@hidden>
;; Hallvard Furuseth <address@hidden>
--- 1,6 ----
;;; byte-run.el --- byte-compiler support for inlining
! ;; Copyright (C) 1992, 2004, 2005 Free Software Foundation, Inc.
;; Author: Jamie Zawinski <address@hidden>
;; Hallvard Furuseth <address@hidden>
***************
*** 34,40 ****
;; Redefined in byte-optimize.el.
;; This is not documented--it's not clear that we should promote it.
(fset 'inline 'progn)
! (put 'inline 'lisp-indent-hook 0)
;;; Interface to inline functions.
--- 34,40 ----
;; Redefined in byte-optimize.el.
;; This is not documented--it's not clear that we should promote it.
(fset 'inline 'progn)
! (put 'inline 'lisp-indent-function 0)
;;; Interface to inline functions.
***************
*** 105,111 ****
(put variable 'byte-obsolete-variable (cons new when))
variable)
! (put 'dont-compile 'lisp-indent-hook 0)
(defmacro dont-compile (&rest body)
"Like `progn', but the body always runs interpreted (not compiled).
If you think you need this, you're probably making a mistake somewhere."
--- 105,111 ----
(put variable 'byte-obsolete-variable (cons new when))
variable)
! (put 'dont-compile 'lisp-indent-function 0)
(defmacro dont-compile (&rest body)
"Like `progn', but the body always runs interpreted (not compiled).
If you think you need this, you're probably making a mistake somewhere."
***************
*** 118,124 ****
;;; definition in the file overrides the magic definitions on the
;;; byte-compile-macro-environment.
! (put 'eval-when-compile 'lisp-indent-hook 0)
(defmacro eval-when-compile (&rest body)
"Like `progn', but evaluates the body at compile time.
The result of the body appears to the compiler as a quoted constant."
--- 118,124 ----
;;; definition in the file overrides the magic definitions on the
;;; byte-compile-macro-environment.
! (put 'eval-when-compile 'lisp-indent-function 0)
(defmacro eval-when-compile (&rest body)
"Like `progn', but evaluates the body at compile time.
The result of the body appears to the compiler as a quoted constant."
***************
*** 127,139 ****
;; (list 'quote (eval (cons 'progn body)))
(cons 'progn body))
! (put 'eval-and-compile 'lisp-indent-hook 0)
(defmacro eval-and-compile (&rest body)
"Like `progn', but evaluates the body at compile time and at load time."
(declare (debug t))
;; Remember, it's magic.
(cons 'progn body))
(defun with-no-warnings (&rest body)
"Like `progn', but prevents compiler warnings in the body."
;; The implementation for the interpreter is basically trivial.
--- 127,140 ----
;; (list 'quote (eval (cons 'progn body)))
(cons 'progn body))
! (put 'eval-and-compile 'lisp-indent-function 0)
(defmacro eval-and-compile (&rest body)
"Like `progn', but evaluates the body at compile time and at load time."
(declare (debug t))
;; Remember, it's magic.
(cons 'progn body))
+ (put 'with-no-warnings 'lisp-indent-function 0)
(defun with-no-warnings (&rest body)
"Like `progn', but prevents compiler warnings in the body."
;; The implementation for the interpreter is basically trivial.
***************
*** 147,153 ****
;;; There is hardly any reason to change these parameters, anyway.
;;; --rms.
! ;; (put 'byte-compiler-options 'lisp-indent-hook 0)
;; (defmacro byte-compiler-options (&rest args)
;; "Set some compilation-parameters for this file. This will affect only
the
;; file in which it appears; this does nothing when evaluated, and when loaded
--- 148,154 ----
;;; There is hardly any reason to change these parameters, anyway.
;;; --rms.
! ;; (put 'byte-compiler-options 'lisp-indent-function 0)
;; (defmacro byte-compiler-options (&rest args)
;; "Set some compilation-parameters for this file. This will affect only
the
;; file in which it appears; this does nothing when evaluated, and when loaded
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-run.el,
Lute Kamstra <=