[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
specially."
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))