Mercurial > hg > xemacs-beta

diff lisp/x-win-sun.el @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents 697ef44129c6
children
line wrap: on
line diff
--- a/lisp/x-win-sun.el	Mon Aug 13 11:23:14 2007 +0200
+++ b/lisp/x-win-sun.el	Mon Aug 13 11:24:09 2007 +0200
@@ -246,8 +246,10 @@
 ;;; 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))
 
   )