Mercurial > emacs

changeset 3561:1c1a6e2961c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-union-first-preferred): Renamed from mouse-union-first-prefered.
author Richard M. Stallman <rms@gnu.org>
date Tue, 08 Jun 1993 01:11:53 +0000
parents 95021dcb923b
children ec0c98304624
files lisp/term/sun-mouse.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))
      )))