mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* rect.el (rectangle--default-line-number-format): Rename

Browse source 
from misspelled rectange--default-line-number-format (Bug#18045).
All uses changed.
This commit is contained in:
Paul Eggert 2014-08-03 23:27:14 -07:00
parent f045dbe6a0
commit 44a651f0f2
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-08-04 Paul Eggert <eggert@cs.ucla.edu>
* 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 <eggert@cs.ucla.edu>
Don't mishandle year-9999 dates (Bug#18176).

6
lisp/rect.el
View file

@ -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)))