[elpa] 07/11: [gnugo] Presume "modern" GNU Emacs.

[Thien-Thi Nguyen]

ttn pushed a commit to branch ttn-gnugo
in repository elpa.

commit 178ebf723896572587b7eb54222810650d5af145
Author: Thien-Thi Nguyen <address@hidden>
Date:   Thu Jan 30 15:35:34 2014 +0100

    [gnugo] Presume "modern" GNU Emacs.
    
    * packages/gnugo/gnugo.el (delete-dups, window-edges):
    Delete these conditionally-‘defun’ed funcs.
---
 packages/gnugo/ChangeLog |    7 +++++++
 packages/gnugo/gnugo.el  |   25 -------------------------
 2 files changed, 7 insertions(+), 25 deletions(-)

diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
index 2d32a8b..7c3cb3a 100644
--- a/packages/gnugo/ChangeLog
+++ b/packages/gnugo/ChangeLog
@@ -1,5 +1,12 @@
 2014-01-30  Thien-Thi Nguyen  <address@hidden>
 
+       [gnugo] Presume "modern" GNU Emacs.
+
+       * gnugo.el (delete-dups, window-edges):
+       Delete these conditionally-‘defun’ed funcs.
+
+2014-01-30  Thien-Thi Nguyen  <address@hidden>
+
        [gnugo] Presume working time-date.el.
 
        * gnugo.el: Require ‘time-date’ w/o ignoring errors.
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 5a8af78..613e370 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -209,31 +209,6 @@ For ~t, the value is a snapshot, use `gnugo-refresh' to 
update it.")
   (defvar gnugo-xpms nil))
 
 ;;;---------------------------------------------------------------------------
-;;; In case Emacs is lacking
-
-(unless (fboundp 'delete-dups)
-  (defun delete-dups (list)             ; from repo 2004-10-29
-    "Destructively remove `equal' duplicates from LIST.
-Store the result in LIST and return it.  LIST must be a proper list.
-Of several `equal' occurrences of an element in LIST, the first
-one is kept."
-    (let ((tail list))
-      (while tail
-        (setcdr tail (delete (car tail) (cdr tail)))
-        (setq tail (cdr tail))))
-    list))
-
-(unless (fboundp 'window-edges)
-  (defun window-edges (&optional window)
-    (let ((cw (/ (frame-pixel-width) (frame-width)))
-          (ch (/ (frame-pixel-height) (frame-height)))
-          (pix-edges (window-pixel-edges window)))
-      (list (/ (nth 0 pix-edges) cw)
-            (/ (nth 1 pix-edges) ch)
-            (/ (nth 2 pix-edges) cw)
-            (/ (nth 3 pix-edges) ch)))))
-
-;;;---------------------------------------------------------------------------
 ;;; Support functions
 
 (put  'gnugo-put 'lisp-indent-function 1)