Mercurial > emacs
diff lisp/quickurl.el @ 25982:6a0ca60a951f
(quickurl-list-insert): `count-lines' was returning
a value one line to high if the cursor wasn't at the start of a
line. A `beginning-of-line' is now performed before making the
call to `count-lines'.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 12 Oct 1999 11:46:19 +0000 |
parents | e99b1ef55f92 |
children | 002bf6a98f1d |
line wrap: on
line diff
--- a/lisp/quickurl.el Tue Oct 12 11:39:28 1999 +0000 +++ b/lisp/quickurl.el Tue Oct 12 11:46:19 1999 +0000 @@ -506,7 +506,10 @@ `with-lookup' - Insert \"lookup <URL:url>\" `with-desc' - Insert \"description <URL:url>\" `lookup' - Insert the lookup for that URL" - (let ((url (nth (count-lines (point-min) (point)) quickurl-urls))) + (let ((url (nth (save-excursion + (beginning-of-line) + (count-lines (point-min) (point))) + quickurl-urls))) (if url (with-current-buffer quickurl-list-last-buffer (insert