Commit b07ea410 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(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'.
parent b581dd19
1999-10-12 Dave Pearson <davep@hagbard.demon.co.uk>
* quickurl.el (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'.
1999-10-11 Stefan Monnier <monnier@cs.yale.edu>
* diff-mode.el (vc-backend-diff): get rid of the autoloaded advice.
......
......@@ -506,7 +506,10 @@ 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 (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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment