comparison lisp/simple.el @ 99799:3a08b596c63b

(goto-line): Rename argument.

99798:0a0d1d91c5f8

  (goto-char (point-min)))


;; Counting lines, one way or another.

(defun goto-line (arg &optional buffer)
  "Goto line ARG, counting from line 1 at beginning of buffer.
Normally, move point in the current buffer, and leave mark at previous
position.  With just \\[universal-argument] as argument, move point
in the most recently displayed other buffer, and switch to it.
When called from Lisp code, the optional argument BUFFER specifies
a buffer to switch to.

If there's a number in the buffer at point, it is the default for ARG."
  (interactive
   (if (and current-prefix-arg (not (consp current-prefix-arg)))
       (list (prefix-numeric-value current-prefix-arg))
     ;; Look for a default, a number in the buffer at point.
     (let* ((default

  ;; Move to the specified line number in that buffer.
  (save-restriction
    (widen)
    (goto-char 1)
    (if (eq selective-display t)
	(re-search-forward "[\n\C-m]" nil 'end (1- arg))
      (forward-line (1- arg)))))

(defun count-lines-region (start end)
  "Print number of lines and characters in the region."
  (interactive "r")
  (message "Region has %d lines, %d characters"

99799:3a08b596c63b

  (goto-char (point-min)))


;; Counting lines, one way or another.

(defun goto-line (line &optional buffer)
  "Goto LINE, counting from line 1 at beginning of buffer.
Normally, move point in the current buffer, and leave mark at the
previous position.  With just \\[universal-argument] as argument,
move point in the most recently selected other buffer, and switch
to it.  When called from Lisp code, the optional argument BUFFER
specifies a buffer to switch to.

If there's a number in the buffer at point, it is the default for
LINE."
  (interactive
   (if (and current-prefix-arg (not (consp current-prefix-arg)))
       (list (prefix-numeric-value current-prefix-arg))
     ;; Look for a default, a number in the buffer at point.
     (let* ((default

  ;; Move to the specified line number in that buffer.
  (save-restriction
    (widen)
    (goto-char 1)
    (if (eq selective-display t)
	(re-search-forward "[\n\C-m]" nil 'end (1- line))
      (forward-line (1- line)))))

(defun count-lines-region (start end)
  "Print number of lines and characters in the region."
  (interactive "r")
  (message "Region has %d lines, %d characters"