Re: Absolutely naïve question about line numbering and lisp code

[Teemu Likonen]

On 2009-03-03 09:16 (-0600), B. T. Raven wrote:

> If you just want to add line numbers permanently you could run this,
> of unknown provenance:
>
> (defun insert-line-numbers ()
>     "Insert a line number on all lines of the current buffer."
>   (interactive)
>   (save-excursion
>     (save-restriction
>       (widen)
>       (let ((fmt (format "%%0%dd "
>                          (1+ (truncate
>                               (log (count-lines (point-min) (point-max))
>                                    10)))))
>             (i 0))
>         (goto-char (point-min))
>         (while (< (point) (point-max))
>           (setq i (1+ i))
>           (insert (format fmt i))
>           (forward-line)))))
>   );;insert-line-numbers

That is quite clever. Usually something like this is enough:

    M-<
    M-x replace-regexp RET ^ RET \,(format "%4s. " (1+ \#)) RET