From 44a651f0f2e1668bdbbacca3bf5d405c34e67ff2 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 3 Aug 2014 23:27:14 -0700 Subject: [PATCH] * rect.el (rectangle--default-line-number-format): Rename from misspelled rectange--default-line-number-format (Bug#18045). All uses changed. --- lisp/ChangeLog | 6 ++++++ lisp/rect.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28fa5d1a5e6..9039e43b009 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-08-04 Paul Eggert + + * 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 Don't mishandle year-9999 dates (Bug#18176). diff --git a/lisp/rect.el b/lisp/rect.el index e536e3e372c..0350ed6b22b 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -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))) -- 2.39.5