aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2006-11-06 02:43:53 +0000
committerJuanma Barranquero2006-11-06 02:43:53 +0000
commit624c972dcf2b46134c92f6bcaf94ad27000e9820 (patch)
treee98deae5b9614be9bda6190b3122a6f7ba95e6f5
parent99d9cc0594ee33eed25385ac05ea6b72bfd39ee6 (diff)
downloademacs-624c972dcf2b46134c92f6bcaf94ad27000e9820.tar.gz
emacs-624c972dcf2b46134c92f6bcaf94ad27000e9820.zip
(mouse-set-font): Fix typo in docstring.
-rw-r--r--lisp/mouse.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0b6cccd86c6..a5f208baf11 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -846,7 +846,7 @@ at the same position."
846 ;; Should we instead decide that `action' takes a `posn'? 846 ;; Should we instead decide that `action' takes a `posn'?
847 (if (consp pos) 847 (if (consp pos)
848 (with-current-buffer (window-buffer (posn-window pos)) 848 (with-current-buffer (window-buffer (posn-window pos))
849 (funcall action (posn-point pos))) 849 (funcall action (posn-point pos)))
850 (funcall action pos))) 850 (funcall action pos)))
851 (t action)))) 851 (t action))))
852 852
@@ -889,7 +889,7 @@ at the same position."
889 (let ((range (mouse-start-end start end mode))) 889 (let ((range (mouse-start-end start end mode)))
890 (move-overlay ol (car range) (nth 1 range)))) 890 (move-overlay ol (car range) (nth 1 range))))
891 891
892(defun mouse-drag-track (start-event &optional 892(defun mouse-drag-track (start-event &optional
893 do-mouse-drag-region-post-process) 893 do-mouse-drag-region-post-process)
894 "Track mouse drags by highlighting area between point and cursor. 894 "Track mouse drags by highlighting area between point and cursor.
895The region will be defined with mark and point, and the overlay 895The region will be defined with mark and point, and the overlay
@@ -983,8 +983,8 @@ should only be used by mouse-drag-region."
983 (let* ((fun (key-binding (vector (car event)))) 983 (let* ((fun (key-binding (vector (car event))))
984 (do-multi-click (and (> (event-click-count event) 0) 984 (do-multi-click (and (> (event-click-count event) 0)
985 (functionp fun) 985 (functionp fun)
986 (not (memq fun 986 (not (memq fun
987 '(mouse-set-point 987 '(mouse-set-point
988 mouse-set-region)))))) 988 mouse-set-region))))))
989 ;; Run the binding of the terminating up-event, if possible. 989 ;; Run the binding of the terminating up-event, if possible.
990 (if (and (not (= (overlay-start mouse-drag-overlay) 990 (if (and (not (= (overlay-start mouse-drag-overlay)
@@ -2377,7 +2377,7 @@ and selects that window."
2377 "X fonts suitable for use in Emacs.") 2377 "X fonts suitable for use in Emacs.")
2378 2378
2379(defun mouse-set-font (&rest fonts) 2379(defun mouse-set-font (&rest fonts)
2380 "Select an emacs font from a list of known good fonts and fontsets." 2380 "Select an Emacs font from a list of known good fonts and fontsets."
2381 (interactive 2381 (interactive
2382 (progn (unless (display-multi-font-p) 2382 (progn (unless (display-multi-font-p)
2383 (error "Cannot change fonts on this display")) 2383 (error "Cannot change fonts on this display"))