[bongo-patches] Verify that `x-selection-exists-p' is defined before calling it

[Daniel Brockman]

Tue Feb  6 15:59:30 CET 2007  Daniel Brockman <address@hidden>

 * Verify that `x-selection-exists-p' is defined before
   calling it.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-02-06 22:40:08.000000000 +0100
+++ new-bongo/bongo.el  2007-02-06 22:40:08.000000000 +0100
@@ -6410,12 +6410,13 @@
 Optional argument TITLE specifies a custom title for the URI."
   (interactive
    (let* ((default-uri
-            (or (and (x-selection-exists-p)
-                     (let ((primary (x-get-selection)))
-                       (and (bongo-uri-p primary) primary)))
-                (and (x-selection-exists-p 'CLIPBOARD)
-                     (let ((clipboard (x-get-selection 'CLIPBOARD)))
-                       (and (bongo-uri-p clipboard) clipboard)))))
+            (and (fboundp 'x-selection-exists-p)
+                 (or (and (x-selection-exists-p)
+                          (let ((primary (x-get-selection)))
+                            (and (bongo-uri-p primary) primary)))
+                     (and (x-selection-exists-p 'CLIPBOARD)
+                          (let ((clipboard (x-get-selection 'CLIPBOARD)))
+                            (and (bongo-uri-p clipboard) clipboard))))))
           (uri
            (read-string (concat "Insert URI"
                                 (when default-uri

-- 
Daniel Brockman <address@hidden>