emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r117641: * rect.el (rectangle--default-line-number-f


From: Paul Eggert
Subject: [Emacs-diffs] trunk r117641: * rect.el (rectangle--default-line-number-format): Rename
Date: Mon, 04 Aug 2014 06:27:36 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117641
revision-id: address@hidden
parent: address@hidden
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Sun 2014-08-03 23:27:14 -0700
message:
  * rect.el (rectangle--default-line-number-format): Rename
  
  from misspelled rectange--default-line-number-format (Bug#18045).
  All uses changed.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/rect.el                   rect.el-20091113204419-o5vbwnq5f7feedwu-83
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-03 15:38:52 +0000
+++ b/lisp/ChangeLog    2014-08-04 06:27:14 +0000
@@ -1,3 +1,9 @@
+2014-08-04  Paul Eggert  <address@hidden>
+
+       * rect.el (rectangle--default-line-number-format): Rename
+       from misspelled rectange--default-line-number-format (Bug#18045).
+       All uses changed.
+
 2014-08-03  Paul Eggert  <address@hidden>
 
        Don't mishandle year-9999 dates (Bug#18176).

=== modified file 'lisp/rect.el'
--- a/lisp/rect.el      2014-07-19 01:43:29 +0000
+++ b/lisp/rect.el      2014-08-04 06:27:14 +0000
@@ -520,7 +520,7 @@
   (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 @@
              (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)))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]