Programming in Emacs Lisp
beginning-of-buffer with an Argument
beginning-of-buffer is called with an argument, an
expression is evaluated which calculates what value to pass to
goto-char. This expression is rather complicated at first sight.
It includes an inner
if expression and much arithmetic. It looks
(if (> (buffer-size) 10000)
;; Avoid overflow for large buffer sizes!
(* (prefix-numeric-value arg) (/ (buffer-size) 10))
(buffer-size) (prefix-numeric-value arg))) 10))