X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fx-init.el;h=0d642ccdf485aaf579a40f40a35327ed11608ea4;hb=738cf54a89d8fed32bc96c64e9de5495c7b46d48;hp=cfeaf46ca2e271985f40273ab6147efc9461ba75;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/x-init.el b/lisp/x-init.el
index cfeaf46..0d642cc 100644
--- a/lisp/x-init.el
+++ b/lisp/x-init.el
@@ -55,7 +55,7 @@
 
 (defun x-activate-region-as-selection ()
   (if (marker-buffer (mark-marker t))
-      (x-own-selection (cons (point-marker t) (mark-marker t)))))
+      (own-selection (cons (point-marker t) (mark-marker t)))))
 
 ;; OpenWindows-like "find" processing.  These functions are really Sunisms,
 ;; but we put them here instead of in x-win-sun.el in case someone wants
@@ -68,8 +68,8 @@
 (defun ow-find (&optional backward-p)
   "Search forward the next occurrence of the text of the selection."
   (interactive)
-  (let ((sel (condition-case () (x-get-selection) (error nil)))
-	(clip (condition-case () (x-get-clipboard) (error nil)))
+  (let ((sel  (ignore-errors (get-selection)))
+	(clip (ignore-errors (get-clipboard)))
 	text)
     (setq text (cond
 		(sel)
@@ -311,7 +311,7 @@
     (add-hook 'zmacs-deactivate-region-hook
 	      (lambda ()
 		(when (console-on-window-system-p)
-		  (x-disown-selection))))
+		  (disown-selection))))
     (add-hook 'zmacs-activate-region-hook
 	      (lambda ()
 		(when (console-on-window-system-p)