# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739501913 0
# Node ID 1c1a6e2961c2fe5fe325027388339fe717383d71
# Parent  95021dcb923b7b7578d810b499a22ee1105d53c5
(mouse-union-first-preferred): Renamed from mouse-union-first-prefered.

diff -r 95021dcb923b -r 1c1a6e2961c2 lisp/term/sun-mouse.el
--- a/lisp/term/sun-mouse.el	Tue Jun 08 01:09:50 1993 +0000
+++ b/lisp/term/sun-mouse.el	Tue Jun 08 01:11:53 1993 +0000
@@ -462,7 +462,7 @@
       (setq l (cdr l)))
     result))
 
-(defun mouse-union-first-prefered (l1 l2)
+(defun mouse-union-first-preferred (l1 l2)
   "Return the union of lists of mouse (code . form) pairs L1 and L2,
 based on the code's, with preference going to elements in L1."
   (mouse-union l2 (mouse-union l1 nil)))
@@ -471,7 +471,7 @@
   "Return a list of (code . function) pairs, where each code is
 currently set in the REGION."
   (let ((mask (mouse-region-to-code region)))
-    (mouse-union-first-prefered
+    (mouse-union-first-preferred
      (mouse-mask-lookup mask (cdr current-local-mousemap))
      (mouse-mask-lookup mask (cdr current-global-mousemap))
      )))