Moveto absolute line number (zmacs)

[RWK@FUJI.ILA.Dialnet.Symbolics.COM (Robert W. Kerns)]

    Date: Wed, 20 Jun 90 07:01:34 MDT
    From: "David R Strip [1411]" <drstrip@cs.sandia.gov>

    Anyone got a zmacs function that moves to line n?

(zwei:defcom com-line-n "Move to line N, specified by prefix arguments."
	()
  (zwei:move-point (zwei:interval-first-bp zwei:*interval*))
  (let ((n (1- zwei:*numeric-arg*)))
    (dotimes (i n)
      (let ((next (zwei:line-next (zwei:bp-line (zwei:point)))))
	(unless next
	  (zwei:barf "Can't move to line ~D; buffer is only ~D lines long."
		n (1+ i)))
	(zwei:move-point next 0))))
  zwei:dis-bps)

;;; Put it on Control-Super-N
(zwei:set-comtab zwei:*standard-comtab* '(#\c-s-N com-line-n))