procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-set-font): Fix typo in docstring.

Browse source
This commit is contained in:
Juanma Barranquero 2006-11-06 02:43:53 +00:00
parent 99d9cc0594
commit 624c972dcf
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/mouse.el
View file

@ -846,7 +846,7 @@ at the same position."
;; Should we instead decide that `action' takes a `posn'?
(if (consp pos)
(with-current-buffer (window-buffer (posn-window pos))
(funcall action (posn-point pos)))
(funcall action (posn-point pos)))
(funcall action pos)))
(t action))))
@ -889,7 +889,7 @@ at the same position."
(let ((range (mouse-start-end start end mode)))
(move-overlay ol (car range) (nth 1 range))))
(defun mouse-drag-track (start-event &optional
(defun mouse-drag-track (start-event &optional
do-mouse-drag-region-post-process)
"Track mouse drags by highlighting area between point and cursor.
The region will be defined with mark and point, and the overlay
@ -983,8 +983,8 @@ should only be used by mouse-drag-region."
(let* ((fun (key-binding (vector (car event))))
(do-multi-click (and (> (event-click-count event) 0)
(functionp fun)
(not (memq fun
'(mouse-set-point
(not (memq fun
'(mouse-set-point
mouse-set-region))))))
;; Run the binding of the terminating up-event, if possible.
(if (and (not (= (overlay-start mouse-drag-overlay)
@ -2377,7 +2377,7 @@ and selects that window."
"X fonts suitable for use in Emacs.")
(defun mouse-set-font (&rest fonts)
"Select an emacs font from a list of known good fonts and fontsets."
"Select an Emacs font from a list of known good fonts and fontsets."
(interactive
(progn (unless (display-multi-font-p)
(error "Cannot change fonts on this display"))