[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Another try: zmacs function for absolute line

zwei:
(defcom com-goto-line 
	"Goto a certain line number.
The line is given as argument. If no argument is given,
the program prompts for a line number."
  (KM R)
  (unless *NUMERIC-ARG-P*
    (setq  *NUMERIC-ARG*
	   (scl:accept '((scl:number) :description "A line number"))))     
  (MOVE-POINT (INTERVAL-FIRST-BP *INTERVAL*))
  (down-real-line *NUMERIC-ARG*)
  DIS-BPS)



; binds the key command-: to goto line
zwei:
(set-comtab *zmacs-comtab*
	    '(#\c-: com-goto-line))