(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 --git a/lisp/quickurl.el b/lisp/quickurl.el
index e87e12409ffbd820292fc05b70a1e1849a7c2158..3089e44754dd693274b765eef50c20271f250fb4 100644 (file)
--- a/lisp/quickurl.el
+++ b/lisp/quickurl.el
@@ -498,14 +498,6 @@ The key bindings for `quickurl-list-mode' are:
   (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 @@ TYPE dictates what will be inserted, options are:
   `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