[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master babe0d4: ; Rearrange definition of zerop in subr.el
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master babe0d4: ; Rearrange definition of zerop in subr.el |
Date: |
Wed, 11 Jul 2018 02:09:03 -0400 (EDT) |
branch: master
commit babe0d4508273c5fe0a3228b3d2b4d3dcb72cd58
Author: Basil L. Contovounesios <address@hidden>
Commit: Paul Eggert <address@hidden>
; Rearrange definition of zerop in subr.el
* lisp/subr.el (zerop): Move from under 'List functions' heading to
under 'Basic Lisp functions' heading.
---
lisp/subr.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index c1d90e3..10343e6 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -359,6 +359,13 @@ was called."
(lambda (&rest args2)
(apply fun (append args args2))))
+(defun zerop (number)
+ "Return t if NUMBER is zero."
+ ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because
+ ;; = has a byte-code.
+ (declare (compiler-macro (lambda (_) `(= 0 ,number))))
+ (= 0 number))
+
;;;; List functions.
@@ -548,13 +555,6 @@ If N is omitted or nil, remove the last element."
(if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil))
list))))
-(defun zerop (number)
- "Return t if NUMBER is zero."
- ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because
- ;; = has a byte-code.
- (declare (compiler-macro (lambda (_) `(= 0 ,number))))
- (= 0 number))
-
(defun proper-list-p (object)
"Return OBJECT's length if it is a proper list, nil otherwise.
A proper list is neither circular nor dotted (i.e., its last cdr
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master babe0d4: ; Rearrange definition of zerop in subr.el,
Paul Eggert <=