Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6c203822
Commit
6c203822
authored
May 27, 2014
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/subr.el (zerop): Move later so bootstrap works.
parent
1af6db7d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
6 deletions
+7
-6
lisp/subr.el
lisp/subr.el
+7
-6
No files found.
lisp/subr.el
View file @
6c203822
...
...
@@ -335,12 +335,6 @@ configuration."
(
and
(
consp
object
)
(
eq
(
car
object
)
'frame-configuration
)))
(
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.
...
...
@@ -389,6 +383,13 @@ 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
delete-dups
(
list
)
"Destructively remove `equal' duplicates from LIST.
Store the result in LIST and return it. LIST must be a proper list.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment