aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorBill Wohler2009-06-13 17:08:22 +0000
committerBill Wohler2009-06-13 17:08:22 +0000
commit86e1c36a8f5f74bd706f9672ece3e6b701b9c549 (patch)
treecbbe6f809e420a753934c091c7246bf76dc5a932 /lisp
parent2a1cf2b9aad0bc5685d1ea3c3e85afd212c659d3 (diff)
downloademacs-86e1c36a8f5f74bd706f9672ece3e6b701b9c549.tar.gz
emacs-86e1c36a8f5f74bd706f9672ece3e6b701b9c549.zip
Remove trailing space.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mh-e/mh-seq.el2
-rw-r--r--lisp/mh-e/mh-speed.el2
-rw-r--r--lisp/mh-e/mh-xface.el2
3 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index dc7154adf2a..bc0ec94e817 100644
--- a/lisp/mh-e/mh-seq.el
+++ b/lisp/mh-e/mh-seq.el
@@ -746,7 +746,7 @@ completion is over."
746 "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq)) 746 "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq))
747 (goto-char (point-min)) 747 (goto-char (point-min))
748 (multiple-value-bind (folder unseen total) 748 (multiple-value-bind (folder unseen total)
749 (values-list 749 (values-list
750 (mh-parse-flist-output-line 750 (mh-parse-flist-output-line
751 (buffer-substring (point) (mh-line-end-position)))) 751 (buffer-substring (point) (mh-line-end-position))))
752 (list total unseen folder)))) 752 (list total unseen folder))))
diff --git a/lisp/mh-e/mh-speed.el b/lisp/mh-e/mh-speed.el
index f806fb43e72..6cf831315a2 100644
--- a/lisp/mh-e/mh-speed.el
+++ b/lisp/mh-e/mh-speed.el
@@ -455,7 +455,7 @@ be handled next."
455 (substring output position line-end)) 455 (substring output position line-end))
456 mh-speed-partial-line "") 456 mh-speed-partial-line "")
457 (multiple-value-setq (folder unseen total) 457 (multiple-value-setq (folder unseen total)
458 (values-list 458 (values-list
459 (mh-parse-flist-output-line line mh-speed-current-folder))) 459 (mh-parse-flist-output-line line mh-speed-current-folder)))
460 (when (and folder unseen total 460 (when (and folder unseen total
461 (let ((old-pair (gethash folder mh-speed-flists-cache))) 461 (let ((old-pair (gethash folder mh-speed-flists-cache)))
diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el
index b63a1966266..9e83175ac60 100644
--- a/lisp/mh-e/mh-xface.el
+++ b/lisp/mh-e/mh-xface.el
@@ -76,7 +76,7 @@ in this order is used."
76 (x-face (setq raw (mh-uncompface x-face) 76 (x-face (setq raw (mh-uncompface x-face)
77 type 'pbm)) 77 type 'pbm))
78 (url (setq type 'url)) 78 (url (setq type 'url))
79 (t (multiple-value-setq (type raw) 79 (t (multiple-value-setq (type raw)
80 (values-list (mh-picon-get-image))))) 80 (values-list (mh-picon-get-image)))))
81 (when type 81 (when type
82 (goto-char (point-min)) 82 (goto-char (point-min))