From 3fdfb09c1c320351dcf3fc3d93cbf08181e714b6 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Sat, 12 Mar 2005 17:24:29 +0000 Subject: [PATCH] Replace lisp-indent-hook with lisp-indent-function throughout. (with-no-warnings): Set lisp-indent-function property. --- lisp/ChangeLog | 6 ++++++ lisp/emacs-lisp/byte-run.el | 13 +++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0c9762078b..8d82e2476bf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-03-12 Lute Kamstra + + * emacs-lisp/byte-run.el: Replace lisp-indent-hook with + lisp-indent-function throughout. + (with-no-warnings): Set lisp-indent-function property. + 2005-03-12 Thien-Thi Nguyen * progmodes/dcl-mode.el (dcl-mode-syntax-table): diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 2cd0896c835..ef426494b68 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -1,6 +1,6 @@ ;;; byte-run.el --- byte-compiler support for inlining -;; Copyright (C) 1992, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jamie Zawinski ;; Hallvard Furuseth @@ -34,7 +34,7 @@ ;; 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) +(put 'inline 'lisp-indent-function 0) ;;; Interface to inline functions. @@ -105,7 +105,7 @@ was first made obsolete, for example a date or a release number." (put variable 'byte-obsolete-variable (cons new when)) variable) -(put 'dont-compile 'lisp-indent-hook 0) +(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,7 +118,7 @@ If you think you need this, you're probably making a mistake somewhere." ;;; definition in the file overrides the magic definitions on the ;;; byte-compile-macro-environment. -(put 'eval-when-compile 'lisp-indent-hook 0) +(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,13 +127,14 @@ The result of the body appears to the compiler as a quoted constant." ;; (list 'quote (eval (cons 'progn body))) (cons 'progn body)) -(put 'eval-and-compile 'lisp-indent-hook 0) +(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,7 +148,7 @@ The result of the body appears to the compiler as a quoted constant." ;;; There is hardly any reason to change these parameters, anyway. ;;; --rms. -;; (put 'byte-compiler-options 'lisp-indent-hook 0) +;; (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 -- 2.39.2