[sawfish: 1/2] Deleted functions `some' and `program-available'. They should be in librep.

[Christopher Bratusek <chrisb src gnome org>]

commit 7ef2fef383c24388edd3733bf7468819dd0bbc04
Author: Teika kazura <teika lavabit com>
Date:   Fri Oct 9 18:18:35 2009 +0900

    Deleted functions `some' and `program-available'. They should be in librep.
    They are adopted in commit e1f68c.
    Took care of corresponding news item.

 ChangeLog                        |    4 ++++
 lisp/sawfish/wm/commands/user.jl |   16 ----------------
 man/news.texi                    |    2 +-
 3 files changed, 5 insertions(+), 17 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 373f5b4..ba8c1a9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-09  Teika kazura <teika lavabit com>
+	* lisp/sawfish/wm/commands/user.jl
+	* man/news.texi:  Deleted functions `some' and `program-available'. They should be in librep.  They are adopted in commit e1f68c.
+
 2009-10-08  Christopher Bratusek <zanghar freenet de>
 	* ChangeLog
 	* man/sawfish.texi
diff --git a/lisp/sawfish/wm/commands/user.jl b/lisp/sawfish/wm/commands/user.jl
index 94bc583..d1e298c 100644
--- a/lisp/sawfish/wm/commands/user.jl
+++ b/lisp/sawfish/wm/commands/user.jl
@@ -22,9 +22,7 @@
 
     (export xterm
 	    browser
-	    some
 	    display-message-with-timeout
-	    program-available
 	    view-clipboard)
 
     (open rep
@@ -66,13 +64,6 @@
       (system (format nil "%s %s >/dev/null 2>&1 </dev/null &"
                       browser-program website))))
 
-  ;; some
-  ;; XXX description
-  (define (some pred lst)
-    (cond ((null lst) nil)
-          ((pred (car lst)) t)
-          (t (some pred (cdr lst)))))
-
   ;; display-message-with-timeout
   ;; like display-message, but it dissapears
   ;; after `timemout' seconds, displayed endlessly
@@ -81,13 +72,6 @@
     (display-message message)
     (make-timer (lambda () (display-message nil)) timeout))
 
-  ;; program-available
-  ;; return true, if program `cmd' is in PATH
-  (define (program-available cmd)
-    (some (lambda (dir)
-            (file-exists-p (concat dir "/" cmd)))
-          (string-split ":" (getenv "PATH"))))
-
   (defcustom clipboard-preview-clip-length 60
     "Maximum length of Clipboard Preview"
     :type number
diff --git a/man/news.texi b/man/news.texi
index 2045ccc..8b9dc79 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -110,7 +110,7 @@ Shrink-yank functions and @code{send-to-workspace}. [Christopher Bratusek]
 
 @item Added @code{keymap-trans} window-matcher [Scott Scriven]
 
- item Added @code{some} @code{program-available} @code{view-clipboard} functions [Mark Triggs]
+ item Added @code{view-clipboard} function [Mark Triggs]
 
 @item Added @code{display-message-with-timeout} @code{browser} commands [Christopher Bratusek]