diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-08 01:11:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-08 01:11:53 +0000 |
| commit | d177495be731f25483888a16100d06149765555a (patch) | |
| tree | 022299a2beced24fe46a8388eab8bc295c29a6fe /lisp/term/sun-mouse.el | |
| parent | 3ec46acdf05992376779a76295e926f1c243991c (diff) | |
| download | emacs-d177495be731f25483888a16100d06149765555a.tar.gz | |
(mouse-union-first-preferred): Renamed from mouse-union-first-prefered.
Diffstat (limited to 'lisp/term/sun-mouse.el')
| -rw-r--r-- | lisp/term/sun-mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 0ac9e46f4ea..2356c65917a 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -462,7 +462,7 @@ where L-UNIQUE is considered to be union'ized already." (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 @@ based on the code's, with preference going to elements in L1." "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)) ))) |