From 877873196957b89fba4daa1e3ec1ab310b0e4e5d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 29 Oct 2007 00:22:36 +0000 Subject: Move local variables to end of file, and set byte-compile-warnings to `(not cl-functions)'. --- lisp/emacs-lisp/cl.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/cl.el') diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 8d609509f10..6174e06edb6 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -1,4 +1,4 @@ -;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*- +;;; cl.el --- Common Lisp extensions for Emacs ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007 Free Software Foundation, Inc. @@ -658,5 +658,10 @@ If ALIST is non-nil, the new pairs are prepended to it." (run-hooks 'cl-load-hook) +;; Local variables: +;; byte-compile-dynamic: t +;; byte-compile-warnings: (not cl-functions) +;; End: + ;; arch-tag: 5f07fa74-f153-4524-9303-21f5be125851 ;;; cl.el ends here -- cgit v1.2.3 From 66eed8276dc18172f6945d7bcb03607d78d6acfb Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 31 Oct 2007 12:46:47 +0000 Subject: (cl-cannot-unload): Remove function. (cl-unload-hook): Remove variable. (cl-unload-function): New-style unload function, adapted from `cl-cannot-unload'. --- lisp/emacs-lisp/cl.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp/cl.el') diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 6174e06edb6..c8a029a453a 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -109,9 +109,11 @@ printer proceeds to the next function on the list. This variable is not used at present, but it is defined in hopes that a future Emacs interpreter will be able to use it.") -(add-hook 'cl-unload-hook 'cl-cannot-unload) -(defun cl-cannot-unload () - (error "Cannot unload the feature `cl'")) +(defun cl-unload-function () + "Stop unloading of the Common Lisp extensions." + (message "Cannot unload the feature `cl'") + ;; stop standard unloading! + t) ;;; Generalized variables. ;; These macros are defined here so that they -- cgit v1.2.3