X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmouse.el;h=0c76138ff82605ee8e05b9e7d8f1b4126569a44c;hb=c62fbf831d31717fb71a04dd0c8041195940f93b;hp=3fdc75a454006a7eea77da3d9ed144af02c28325;hpb=d8bd7eee3147c839d3c74d1823c139cd54867a75;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 3fdc75a..0c76138 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -119,7 +119,7 @@ between point and mark."
   (interactive "P")
   ;; we fallback to the clipboard if the current selection is not existent
   (let ((text (if check-cutbuffer-p
-		  (or (get-selection-no-error) 
+		  (or (get-selection-no-error)
 		      (get-cutbuffer)
 		      (get-selection-no-error 'CLIPBOARD)
 		      (error "No selection, clipboard or cut buffer available"))
@@ -222,7 +222,7 @@ Returns whether a drag was begun."
   ;; #### barely implemented.
   (when (click-inside-selection-p event)
     (cond ((featurep 'offix)
-	   (offix-start-drag-region 
+	   (offix-start-drag-region
 	    event
 	    (extent-start-position zmacs-region-extent)
 	    (extent-end-position zmacs-region-extent))
@@ -238,7 +238,7 @@ Returns whether a drag was begun."
   "Evaluate the sexp under the mouse.  Usually, this is the last sexp before
 the click, but if you click on a left paren, then it is the sexp beginning
 with the paren that is evaluated.  Also, since strings evaluate to themselves,
-they're fed to re-search-forward and the matched region is highlighted until
+they're fed to `re-search-forward' and the matched region is highlighted until
 the mouse button is released.
 
 Perhaps the most useful thing about this function is that the evaluation of
@@ -343,7 +343,7 @@ Display cursor at that position for a second."
       (switch-to-buffer val))))
 
 (defun narrow-window-to-region (m n)
-  "Narrow window to region between point and last mark"
+  "Narrow window to region between point and last mark."
   (interactive "r")
   (save-excursion
     (save-restriction
@@ -748,7 +748,7 @@ at the initial click position."
       (let* ((edges (window-pixel-edges window))
 	     (row (event-y-pixel event))
 	     (text-start (nth 1 edges))
-	     (text-end (+ (nth 3 edges))))
+	     (text-end (nth 3 edges)))
 	(if (or (< row text-start)
 		(> row text-end))
 	    nil ;; Scroll