diff options
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 49a07a2f6d1..830a3e8d1ff 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el | |||
| @@ -93,8 +93,6 @@ | |||
| 93 | 93 | ||
| 94 | ;;; Code: | 94 | ;;; Code: |
| 95 | 95 | ||
| 96 | (or (fboundp 'defalias) (fset 'defalias 'fset)) | ||
| 97 | |||
| 98 | (defvar cl-optimize-speed 1) | 96 | (defvar cl-optimize-speed 1) |
| 99 | (defvar cl-optimize-safety 1) | 97 | (defvar cl-optimize-safety 1) |
| 100 | 98 | ||
| @@ -670,12 +668,7 @@ Keywords supported: :test :test-not :key" | |||
| 670 | (cl-hack-byte-compiler) | 668 | (cl-hack-byte-compiler) |
| 671 | 669 | ||
| 672 | ;;; Also make a hook in case compiler is loaded after this file. | 670 | ;;; Also make a hook in case compiler is loaded after this file. |
| 673 | ;;; The compiler doesn't call any hooks when it loads or runs, but | 671 | (add-hook 'bytecomp-load-hook 'cl-hack-byte-compiler) |
| 674 | ;;; we can take advantage of the fact that emacs-lisp-mode will be | ||
| 675 | ;;; called when the compiler reads in the file to be compiled. | ||
| 676 | ;;; BUG: If the first compilation is `byte-compile' rather than | ||
| 677 | ;;; `byte-compile-file', we lose. Oh, well. | ||
| 678 | (add-hook 'emacs-lisp-mode-hook 'cl-hack-byte-compiler) | ||
| 679 | 672 | ||
| 680 | 673 | ||
| 681 | ;;; The following ensures that packages which expect the old-style cl.el | 674 | ;;; The following ensures that packages which expect the old-style cl.el |