[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 04/04: [gnugo int] Decruft: Drop :local-xpms support.

From: Thien-Thi Nguyen
Subject: [elpa] 04/04: [gnugo int] Decruft: Drop :local-xpms support.
Date: Fri, 02 May 2014 09:27:27 +0000

ttn pushed a commit to branch master
in repository elpa.

commit 6f353745de76e9572bad1dad333938e140fcfe1d
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri May 2 11:26:13 2014 +0200

    [gnugo int] Decruft: Drop :local-xpms support.
    * packages/gnugo/gnugo.el (gnugo-describe-internal-properties): ...here.
    (gnugo-toggle-image-display): Don't consult :local-xpms.
 packages/gnugo/gnugo.el |    9 ++++-----
 1 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 61ef95f..7020241 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -321,7 +321,7 @@ Handle the big, slow-to-render, and/or uninteresting ones 
           using (hash-values val)
           do (push (cons key
                          (case key
-                           ((:xpms :local-xpms)
+                           ((:xpms)
                             (format "hash: %X (%d images)"
                                     (sxhash val)
                                     (length val)))
@@ -522,10 +522,9 @@ when you are sure the command cannot fail."
 (defun gnugo-toggle-image-display ()
   (unless (display-images-p)
     (user-error "Display does not support images, sorry"))
-  (let ((fresh (or (gnguo-get :local-xpms)
-                   (if (functionp gnugo-xpms)
-                       (funcall gnugo-xpms (gnugo-get :SZ))
-                     gnugo-xpms))))
+  (let ((fresh (if (functionp gnugo-xpms)
+                   (funcall gnugo-xpms (gnugo-get :SZ))
+                 gnugo-xpms)))
     (unless fresh
       (user-error "Sorry, `gnugo-xpms' unset"))
     (unless (eq fresh (gnugo-get :xpms))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]