From c54055b1c7cb72731eb9be836544445d7ff1863f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 Sep 1999 21:52:01 +0000 Subject: [PATCH] (quickurl-list-focused-line): Removed. (quickurl-list-insert): Now works out the focused line using `count-lines' instead of using `quickurl-list-focused-line'. --- lisp/quickurl.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/lisp/quickurl.el b/lisp/quickurl.el index e87e12409ff..3089e44754d 100644 --- 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 \" `with-desc' - Insert \"description \" `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 -- 2.39.5