]> code.delx.au - gnu-emacs/commitdiff
(mouse-set-font): Fix typo in docstring.
authorJuanma Barranquero <lekktu@gmail.com>
Mon, 6 Nov 2006 02:43:53 +0000 (02:43 +0000)
committerJuanma Barranquero <lekktu@gmail.com>
Mon, 6 Nov 2006 02:43:53 +0000 (02:43 +0000)
lisp/mouse.el

index 0b6cccd86c648bb5f32a352b0d682882426e67c8..a5f208baf11827d5fb89a17fbf9af708b5f1a5d3 100644 (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"))