            (coerce (cdr (coerce address 'list)) 'string))
        address))
 
-(defun tn-goto-line ()
-    (interactive)
-    (let ((address (read-from-minibuffer "line: ")))
-        (let ((line
-                (address-to-lineno (handle-changewindow address))))
-            (if line
-                (goto-line line)
-                (error-message "invalid line address")))))
+(defun tn-goto-line (address)
+    (interactive)
+    (let ((line (address-to-lineno (handle-changewindow address))))
+        (if line
+            (goto-line line)
+            (error-message "invalid line address"))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        (error-message
            (concat "weight " (number-to-string s) " is outside of range (0, 1]"))))

(defun tn-set-default-weight ()
    (interactive)
    (let ((r (read-character-as-number)))
        (set-default-weight (/ r 4.0))))

(defun set-min-weight (s)
    (if (and (in-view) (>= s 0) (<= s 1))

        (error-message
            (concat "priority " (number-to-string v) " is outside of range [0, 1]"))))

(defun tn-set-target-priority (expr)
    (interactive)
    (let ((n (number-shorthand-to-number expr)))
        (if n (set-target-priority (/ n 4.0)))))

(defun set-target-sharability (v)
    (if (and (> v 0) (<= v 1))
