Update copyright year to 2015

[gnu-emacs] / lisp / rect.el

diff --git a/lisp/rect.el b/lisp/rect.el
index e536e3e372c156e66ce7b460f53061010f4845cd..c5a548647f302c3053f01ad3525422db9dbb81ea 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -1,6 +1,6 @@
 ;;; rect.el --- rectangle functions for GNU Emacs  -*- lexical-binding:t -*-
 
-;; Copyright (C) 1985, 1999-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1999-2015 Free Software Foundation, Inc.
 
 ;; Maintainer: Didier Verna <didier@xemacs.org>
 ;; Keywords: internal
@@ -35,7 +35,7 @@
 
 (defgroup rectangle nil
   "Operations on rectangles."
-  :version "24.5"
+  :version "25.1"
   :group 'editing)
 
 ;; FIXME: this function should be replaced by `apply-on-rectangle'
@@ -113,7 +113,7 @@ Point is at the end of the segment of this line within the rectangle."
             (if (window-parameter nil 'rectangle--point-crutches)
                 (setf (window-parameter nil 'rectangle--point-crutches) nil))
           (if rectangle--mark-crutches (setq rectangle--mark-crutches nil)))
-      ;; If move-to-column over-shooted, move back one char so we're
+      ;; If move-to-column overshot, move back one char so we're
       ;; at the position where rectangle--highlight-for-redisplay
       ;; will add the overlay (so that the cursor can be drawn at the
       ;; right place).
@@ -520,7 +520,7 @@ rectangle which were empty."
   (setq rectangle-number-line-counter
        (1+ rectangle-number-line-counter)))
 
-(defun rectange--default-line-number-format (start end start-at)
+(defun rectangle--default-line-number-format (start end start-at)
   (concat "%"
          (int-to-string (length (int-to-string (+ (count-lines start end)
                                                   start-at))))
@@ -541,11 +541,11 @@ with a prefix argument, prompt for START-AT and FORMAT."
              (start-at (read-number "Number to count from: " 1)))
         (list start end start-at
               (read-string "Format string: "
-                           (rectange--default-line-number-format
+                           (rectangle--default-line-number-format
                             start end start-at))))
      (list (region-beginning) (region-end) 1 nil)))
   (unless format
-    (setq format (rectange--default-line-number-format start end start-at)))
+    (setq format (rectangle--default-line-number-format start end start-at)))
   (let ((rectangle-number-line-counter start-at))
     (apply-on-rectangle 'rectangle-number-line-callback
                        start end format)))