Commit 6ae5bdf5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(when, unless): Definitions moved to subr.el.

parent debff3c3
......@@ -218,14 +218,6 @@ Keywords supported: :test :test-not :key"
;;; These macros are so simple and so often-used that it's better to have
;;; them all the time than to load them from cl-macs.el.
(defmacro when (cond &rest body)
"(when COND BODY...): if COND yields non-nil, do BODY, else return nil."
(list 'if cond (cons 'progn body)))
(defmacro unless (cond &rest body)
"(unless COND BODY...): if COND yields nil, do BODY, else return nil."
(cons 'if (cons cond (cons nil body))))
(defun cl-map-extents (&rest cl-args)
(if (fboundp 'next-overlay-at) (apply 'cl-map-overlays cl-args)
(if (fboundp 'map-extents) (apply 'map-extents cl-args))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment