(U-000278B8): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / x-win-sun.el

diff --git a/lisp/x-win-sun.el b/lisp/x-win-sun.el
index b59dd82..273a862 100644 (file)
--- a/lisp/x-win-sun.el
+++ b/lisp/x-win-sun.el
@@ -246,8 +246,10 @@ to more mnemonic ones,like `kp-3'."
 ;;; themselves are in x-win.el in case someone wants to use them when
 ;;; not running on a Sun display.)
 
-  (define-key global-map 'find         'ow-find)
-  (define-key global-map '(shift find) 'ow-find-backward)
+  (or (lookup-key global-map 'find)
+      (define-key global-map 'find 'ow-find))
+  (or (lookup-key global-map '(shift find))
+       (define-key global-map '(shift find) 'ow-find-backward))
 
   )