mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(mouse-union-first-preferred): Renamed from mouse-union-first-prefered.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-08 01:11:53 +00:00
parent 3ec46acdf0
commit d177495be7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/term/sun-mouse.el
View File

@ -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))
)))