X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fx-init.el;h=0d642ccdf485aaf579a40f40a35327ed11608ea4;hb=ea6bff0429fa9def5d23bb99b936916a8ca47deb;hp=5df11b2488ecaa3309d67afe091888c87ad65ef2;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/x-init.el b/lisp/x-init.el
index 5df11b2..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)
@@ -305,13 +305,13 @@
         (init-x-toolbar))
     (if (and (featurep 'infodock) (featurep 'toolbar))
 	(require 'id-x-toolbar))
-    (if (featurep 'mule)
-        (init-mule-x-win))
+    (if (featurep 'gutter) (init-gutter))
+    (if (featurep 'mule) (init-mule-x-win))
     ;; these are only ever called if zmacs-regions is true.
     (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)