Mercurial > emacs

changeset 25574:e99b1ef55f92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quickurl-list-focused-line): Removed. (quickurl-list-insert): Now works out the focused line using `count-lines' instead of using `quickurl-list-focused-line'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 Sep 1999 21:52:01 +0000
parents 88e06b93347b
children d8c646ec07fa
files lisp/quickurl.el
diffstat 1 files changed, 1 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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