Mercurial > emacs

diff lisp/mh-e/mh-xface.el @ 102537:6837adfb2772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
m-v: use lists to pass things around rather than values.
author Deepak Goel <deego@gnufans.org>
date Fri, 13 Mar 2009 20:28:15 +0000
parents b18f7ae38a1a
children f5e25950595d
line wrap: on
line diff
--- a/lisp/mh-e/mh-xface.el	Fri Mar 13 20:04:11 2009 +0000
+++ b/lisp/mh-e/mh-xface.el	Fri Mar 13 20:28:15 2009 +0000
@@ -76,7 +76,8 @@
             (x-face (setq raw (mh-uncompface x-face)
                           type 'pbm))
             (url (setq type 'url))
-            (t (multiple-value-setq (type raw) (mh-picon-get-image))))
+            (t (multiple-value-setq (type raw) 
+                 (values-list (mh-picon-get-image)))))
       (when type
         (goto-char (point-min))
         (when (re-search-forward "^from:" (point-max) t)
@@ -275,8 +276,8 @@
         (let ((type (and (string-match ".*\\.\\(...\\)$" file)
                          (intern (match-string 1 file)))))
           (insert-file-contents-literally file)
-          (values type (buffer-string))))
-    (values nil nil)))
+          (list type (buffer-string))))
+    (list nil nil)))