Fix some comments.

rejeep · Apr 3, 2012 · e2102bb · e2102bb
1 parent 4dae90c
commit e2102bb
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/drag-stuff.el b/drag-stuff.el
@@ -79,6 +79,7 @@
 
 
 (defun drag-stuff--kbd (key)
+  "Key binding helper."
   (let ((mod (if (listp drag-stuff-modifier)
                  drag-stuff-modifier
                (list drag-stuff-modifier))))
@@ -140,15 +141,15 @@
     (funcall fn beg end column)))
 
 (defun drag-stuff-lines-up (arg)
-  "Moves all lines in the selected region ARG lines up."
+  "Move all lines in the selected region ARG lines up."
   (if (> (line-number-at-pos (min (point) (mark))) (abs arg))
       (drag-stuff-lines-vertically
        (lambda (beg end)
          (drag-stuff-drag-region-up beg end arg)))
     (message "Can not move lines further up")))
 
 (defun drag-stuff-lines-down (arg)
-  "Moves all lines in the selected region ARG lines up."
+  "Move all lines in the selected region ARG lines up."
   (if (<= (+ (line-number-at-pos (max (point) (mark))) arg) (count-lines (point-min) (point-max)))
       (drag-stuff-lines-vertically
        (lambda (beg end)
@@ -272,14 +273,14 @@
 
 ;;;###autoload
 (defun turn-on-drag-stuff-mode ()
-  "Turn on `drag-stuff-mode'"
+  "Turn on `drag-stuff-mode'."
   (interactive)
   (unless (member major-mode drag-stuff-except-modes)
     (drag-stuff-mode +1)))
 
 ;;;###autoload
 (defun turn-off-drag-stuff-mode ()
-  "Turn off `drag-stuff-mode'"
+  "Turn off `drag-stuff-mode'."
   (interactive)
   (drag-stuff-mode -1))