[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101768: Avoid using plusp; cl may no
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101768: Avoid using plusp; cl may not be loaded. |
Date: |
Sun, 03 Oct 2010 15:54:31 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101768
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-03 15:54:31 -0400
message:
Avoid using plusp; cl may not be loaded.
* lisp/gnus/shr.el (shr-insert):
* lisp/gnus/pop3.el (pop3-movemail):
* lisp/gnus/gnus-html.el (gnus-html-wash-tags): Don't use plusp.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-html.el
lisp/gnus/pop3.el
lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-03 02:12:55 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-03 19:54:31 +0000
@@ -1,3 +1,10 @@
+2010-10-03 Chong Yidong <address@hidden>
+
+ * shr.el (shr-insert):
+ * pop3.el (pop3-movemail):
+ * gnus-html.el (gnus-html-wash-tags): Don't use plusp, as cl may not be
+ loaded.
+
2010-10-03 Glenn Morris <address@hidden>
* nnmairix.el (nnmairix-replace-illegal-chars): Drop Emacs 20 code.
=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el 2010-10-03 00:33:27 +0000
+++ b/lisp/gnus/gnus-html.el 2010-10-03 19:54:31 +0000
@@ -271,7 +271,7 @@
(setq tag (match-string 1)
parameters (match-string 2)
start (match-beginning 0))
- (when (plusp (length parameters))
+ (when (> (length parameters) 0)
(set-text-properties 0 (1- (length parameters)) nil parameters))
(delete-region start (point))
(when (search-forward (concat "</" tag ">") nil t)
=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-30 08:39:23 +0000
+++ b/lisp/gnus/pop3.el 2010-10-03 19:54:31 +0000
@@ -149,7 +149,7 @@
(let ((size (pop3-stat process)))
(setq message-count (car size)
message-total-size (cadr size)))
- (when (plusp message-count)
+ (when (> message-count 0)
(pop3-send-streaming-command
process "RETR" message-count message-total-size)
(pop3-write-to-file file)
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2010-10-03 00:33:27 +0000
+++ b/lisp/gnus/shr.el 2010-10-03 19:54:31 +0000
@@ -220,7 +220,7 @@
(let (column)
(dolist (elem (split-string text))
(setq column (current-column))
- (when (plusp column)
+ (when (> column 0)
(if (> (+ column (length elem) 1) shr-width)
(insert "\n")
(insert " ")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101768: Avoid using plusp; cl may not be loaded.,
Chong Yidong <=