(format-message "avoid `lsh'; use `ash' instead")
form '(suspicious lsh) t form)))
(side-effect-free t))
- (when (and (< value 0) (< count 0))
+ (when (and (minusp value) (minusp count))
(when (< value most-negative-fixnum)
(signal 'args-out-of-range (list value count)))
(setq value (logand (ash value -1) most-positive-fixnum))
(or n (setq n 1))
(and (< n m)
(progn
- (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil))
+ (if (plusp n) (setcdr (nthcdr (- (1- m) n) list) nil))
list))))
(defun delete-dups (list)
(or inc (setq inc 1))
(when (zerop inc) (error "The increment can not be zero"))
(let (seq (n 0) (next from))
- (if (> inc 0)
+ (if (plusp inc)
(while (<= next to)
(setq seq (cons next seq)
n (1+ n)
(when (and (listp history)
(or keep-all
(not (stringp newelt))
- (> (length newelt) 0))
+ (plusp (length newelt)))
(or keep-all
(not (equal (car history) newelt))))
(if history-delete-duplicates
(setq this (substring this 0 tem)))))
;; Trimming could make it empty; check again.
- (when (or keep-nulls (> (length this) 0))
+ (when (or keep-nulls (plusp (length this)))
(push this list)))))))
(while (and (string-match rexp string
res)
(let ((i (length string))
(newstr (if inplace string (copy-sequence string))))
- (while (> i 0)
+ (while (plusp i)
(setq i (1- i))
(if (eq (aref newstr i) fromchar)
(aset newstr i tochar)))
(interactive "^p")
(if (natnump arg)
(re-search-forward "[ \t]+\\|\n" nil 'move arg)
- (while (< arg 0)
+ (while (minusp arg)
(if (re-search-backward "[ \t]+\\|\n" nil 'move)
(or (eq (char-after (match-beginning 0)) ?\n)
(skip-chars-backward " \t")))
(interactive "^p")
(if (natnump arg)
(re-search-forward "\\(\\sw\\|\\s_\\)+" nil 'move arg)
- (while (< arg 0)
+ (while (minusp arg)
(if (re-search-backward "\\(\\sw\\|\\s_\\)+" nil 'move)
(skip-syntax-backward "w_"))
(setq arg (1+ arg)))))
backwards ARG times if negative."
(interactive "^p")
(or arg (setq arg 1))
- (while (< arg 0)
+ (while (minusp arg)
(skip-syntax-backward
(char-to-string (char-syntax (char-before))))
(setq arg (1+ arg)))
- (while (> arg 0)
+ (while (plusp arg)
(skip-syntax-forward (char-to-string (char-syntax (char-after))))
(setq arg (1- arg))))
(if suffix
(aset parameters 6 suffix)
(setq suffix (or (aref parameters 6) "")))
- (if (> percentage 0)
+ (if (plusp percentage)
(message "%s%d%% %s" text percentage suffix)
(message "%s %s" text suffix)))))
;; Pulsing indicator
;; l1 null and l2 null ==> l1 length = l2 length
((and (null l1) (null l2)) nil)
;; l1 not null and l2 null ==> l1 length > l2 length
- (l1 (< (version-list-not-zero l1) 0))
+ (l1 (minusp (version-list-not-zero l1)))
;; l1 null and l2 not null ==> l2 length > l1 length
- (t (< 0 (version-list-not-zero l2)))))
+ (t (plusp (version-list-not-zero l2)))))
(defun version-list-= (l1 l2)