diff options
author | Richard M. Stallman <[email protected]> | 1999-09-06 21:52:01 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1999-09-06 21:52:01 +0000 |
commit | c54055b1c7cb72731eb9be836544445d7ff1863f (patch) | |
tree | 5c61eeed67e0b31b03f3da00ccec5eee463de2be /lisp | |
parent | 2b3c5a687900ddb6a147d647937bc0f16ec3ccd3 (diff) |
(quickurl-list-focused-line): Removed.
(quickurl-list-insert): Now works out the focused line using
`count-lines' instead of using `quickurl-list-focused-line'.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/quickurl.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/quickurl.el b/lisp/quickurl.el index e87e12409f..3089e44754 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 <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 |