Function: goto-char--read-natnum-interactive

goto-char--read-natnum-interactive is a byte-compiled function defined in subr.el.gz.

Signature

(goto-char--read-natnum-interactive PROMPT)

Documentation

Get a natural number argument, optionally prompting with PROMPT.

If there is a natural number at point, use it as default.

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun goto-char--read-natnum-interactive (prompt)
  "Get a natural number argument, optionally prompting with PROMPT.
If there is a natural number at point, use it as default."
  (if (and current-prefix-arg (not (consp current-prefix-arg)))
      (list (prefix-numeric-value current-prefix-arg))
    (let* ((number (number-at-point))
           (default (and (natnump number) number)))
      (list (read-number prompt (list default (point)))))))