x-get-selection is obsolete for xemacs, made a macro

hole-get-selection defined as get-selection for xemacs, and
x-get-selection for emacs.

1 files changed, 9 insertions, 5 deletions

diff --git a/generic/holes.el b/generic/holes.el
index 8250cb02..3481ad04 100644
--- a/generic/holes.el
+++ b/generic/holes.el
@@ -127,13 +127,17 @@ is), which is annoying.
   (defmacro hole-region-exists-p nil
 	 "Returns t if the mark is active, nil otherwise."
 	 `(not (eq mark-active nil))
-	 )))
+	 )
+  (defmacro hole-get-selection nil "see x-get-selection"
+	 '(x-get-selection))))
 
 (cond
  ((string-match "XEmacs" (emacs-version))
   (defmacro hole-region-exists-p nil "see region-exists-p"
 	 '(region-exists-p)
-	 )))
+	 )
+  (defmacro hole-get-selection nil "see get-selection"
+	 '(get-selection))))
 
 ;intialization;;;;;;;;;;;;;;;;;;;;;;;;;
 (setq default-hole (make-detached-span))
@@ -532,7 +536,7 @@ is), which is annoying.
    "Replace the active hole by str, if no str is given, then put the selection instead."
   (if (not (active-hole-exist-p)) ()
     (replace-hole 
-     (or str (get-selection) (error "nothing to put in hole"))
+     (or str (hole-get-selection) (error "nothing to put in hole"))
      active-hole)
     ))
 
@@ -552,7 +556,7 @@ is), which is annoying.
       (replace-active-hole 
        (or str 
 			  (and (hole-region-exists-p) (copy-active-region))
-			  (get-selection) (error "nothing to put in hole")))
+			  (hole-get-selection) (error "nothing to put in hole")))
       (if nxthole (set-active-hole nxthole)
 		  (setq active-hole default-hole))
       )
@@ -626,7 +630,7 @@ is), which is annoying.
 		  ()
       (if (not (hole-region-exists-p)) 
 			 (error "nothing to put in hole")
-		  (replace-update-active-hole (get-selection))
+		  (replace-update-active-hole (hole-get-selection))
 		  (message "hole replaced")
 		  )
       )