# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 936654721 0
# Node ID e99b1ef55f92a9687da682fc0ec3734f1d24a989
# Parent  88e06b93347b7304c3d1b5080bfa28f92c607a8b
(quickurl-list-focused-line): Removed.
(quickurl-list-insert): Now works out the focused line using
`count-lines' instead of using `quickurl-list-focused-line'.

diff -r 88e06b93347b -r e99b1ef55f92 lisp/quickurl.el
--- a/lisp/quickurl.el	Mon Sep 06 21:48:43 1999 +0000
+++ b/lisp/quickurl.el	Mon Sep 06 21:52:01 1999 +0000
@@ -498,14 +498,6 @@
   (setf (point) (posn-point (event-end event)))
   (quickurl-list-insert-url))
 
-(defun quickurl-list-focused-line ()
-  "Work out the line containing point."
-  (save-excursion
-    (beginning-of-line)
-    (let ((point (point)))
-      (setf (point) (point-min))
-      (loop while (< (point) point) sum 1 do (next-line 1)))))
-
 (defun quickurl-list-insert (type)
   "Insert the URL under cursor into `quickurl-list-last-buffer'.
 TYPE dictates what will be inserted, options are:
@@ -514,7 +506,7 @@
   `with-lookup' - Insert \"lookup <URL:url>\"
   `with-desc'   - Insert \"description <URL:url>\"
   `lookup'      - Insert the lookup for that URL"
-  (let ((url (nth (quickurl-list-focused-line) quickurl-urls)))
+  (let ((url (nth (count-lines (point-min) (point)) quickurl-urls)))
     (if url
         (with-current-buffer quickurl-list-last-buffer
           (insert