diff options
| author | Glenn Morris | 2008-11-19 04:33:52 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-11-19 04:33:52 +0000 |
| commit | ec3025937116b3d07572954fa6ec4fe6bb9d412b (patch) | |
| tree | a295a76ecea13fd5337792bac02378d458c122e2 | |
| parent | a70f4c6f5591d5b1ae3772330770b1d7fe827bed (diff) | |
| download | emacs-ec3025937116b3d07572954fa6ec4fe6bb9d412b.tar.gz emacs-ec3025937116b3d07572954fa6ec4fe6bb9d412b.zip | |
(floor*, ceiling*, truncate*, round*, mod*): Declare.
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 8 |
2 files changed, 18 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b4cbf0e11c..71db241df6f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,13 @@ | |||
| 1 | 2008-11-19 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * autoinsert.el (auto-insert-alist): Update template to FDL 1.3+. | ||
| 4 | |||
| 5 | * emacs-lisp/cl.el (floor*, ceiling*, truncate*, round*, mod*): | ||
| 6 | * term/w32-win.el (x-select-font): Declare. | ||
| 7 | |||
| 8 | * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Fix a/an typo. | ||
| 9 | Use the imperative for all help strings. | ||
| 10 | |||
| 1 | 2008-11-18 Stefan Monnier <monnier@iro.umontreal.ca> | 11 | 2008-11-18 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 12 | ||
| 3 | * textmodes/ispell.el (ispell-dictionary-base-alist): Adjust to the | 13 | * textmodes/ispell.el (ispell-dictionary-base-alist): Adjust to the |
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index d757d60b3da..18eaf8b94dc 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el | |||
| @@ -541,6 +541,14 @@ The elements of LIST are not copied, just the list structure itself." | |||
| 541 | list) | 541 | list) |
| 542 | 542 | ||
| 543 | (defalias 'cl-member 'memq) ; for compatibility with old CL package | 543 | (defalias 'cl-member 'memq) ; for compatibility with old CL package |
| 544 | |||
| 545 | ;; Autoloaded, but we have not loaded cl-loaddefs yet. | ||
| 546 | (declare-function floor* "cl-extra" (x &optional y)) | ||
| 547 | (declare-function ceiling* "cl-extra" (x &optional y)) | ||
| 548 | (declare-function truncate* "cl-extra" (x &optional y)) | ||
| 549 | (declare-function round* "cl-extra" (x &optional y)) | ||
| 550 | (declare-function mod* "cl-extra" (x y)) | ||
| 551 | |||
| 544 | (defalias 'cl-floor 'floor*) | 552 | (defalias 'cl-floor 'floor*) |
| 545 | (defalias 'cl-ceiling 'ceiling*) | 553 | (defalias 'cl-ceiling 'ceiling*) |
| 546 | (defalias 'cl-truncate 'truncate*) | 554 | (defalias 'cl-truncate 'truncate*) |