Remove stuff for dotimes, dolist, push, pop.

Don't use lisp-indent-hook property.
(cl-abs): Remove.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 166a47a3eb5ef0b4b5868ba099fc2744ac807767..c67a0613bf188ab2a9e321018062f2788eb6790e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2000-01-28  Dave Love  <fx@gnu.org>
+
+       * emacs-lisp/cl.el: Remove stuff for dotimes, dolist, push, pop.
+       Don't use lisp-indent-hook property.
+       (cl-abs): Remove.
+
+       * subr.el: Move out indent and edebug specs for when and unless.
+
+       * emacs-lisp/lisp-mode.el: Add indent specs for dolist, dotimes,
+       when, unless.
+
+       * emacs-lisp/edebug.el: Add specs for push, pop, dotimes, dolist,
+       unless, when.
+
 2000-01-28  Gerd Moellmann  <gerd@gnu.org>
 
        * emacs-lisp/cl-macs.el (cl-parse-loop-clause): Recognize

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index d8cb1a99464b37bccf4eed08896865552b46dba1..0c970a5791402459fe51cef210d8b1afd1a3f3bd 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -291,11 +291,6 @@ always returns nil."
   "T if INTEGER is even."
   (eq (logand x 1) 0))
 
-(defun cl-abs (x)
-  "Return the absolute value of ARG."
-  (if (>= x 0) x (- x)))
-(or (fboundp 'abs) (defalias 'abs 'cl-abs))   ; This is built-in to Emacs 19
-
 (defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time)))
 
 ;;; We use `eval' in case VALBITS differs from compile-time to load-time.
@@ -609,7 +604,7 @@ Keywords supported:  :test :test-not :key"
          ("cl-macs" t
           defun* defmacro* function* destructuring-bind eval-when
           load-time-value case ecase typecase etypecase
-          block return return-from loop do do* dolist dotimes do-symbols
+          block return return-from loop do do* do-symbols
           do-all-symbols psetq progv flet labels macrolet symbol-macrolet
           lexical-let lexical-let* multiple-value-bind multiple-value-setq
           locally the declare define-setf-method defsetf define-modify-macro
@@ -638,7 +633,6 @@ Keywords supported:  :test :test-not :key"
          ((do do*) 2 ((&rest &or symbolp (symbolp &optional form form))
                       (form &rest form)
                       &rest form))
-         ((dolist dotimes) 1 ((symbolp form &rest form) &rest form))
          ((do-symbols) 1 ((symbolp form &optional form form) &rest form))
          ((do-all-symbols) 1 ((symbolp form &optional form) &rest form))
          ((psetq setf psetf) nil edebug-setq-form)
@@ -649,7 +643,7 @@ Keywords supported:  :test :test-not :key"
           ((&rest &or symbolp (symbolp form)) &rest form))
          ((multiple-value-bind) 2 ((&rest symbolp) &rest form))
          ((multiple-value-setq) 1 ((&rest symbolp) &rest form))
-         ((incf decf remf pop push pushnew shiftf rotatef) nil (&rest form))
+         ((incf decf remf pushnew shiftf rotatef) nil (&rest form))
          ((letf letf*) 1 ((&rest (&rest form)) &rest form))
          ((callf destructuring-bind) 2 (sexp form &rest form))
          ((callf2) 3 (sexp form form &rest form))