Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(quickurl-list-insert): `count-lines' was returning

Browse source 
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'.
This commit is contained in:
Gerd Moellmann 1999-10-12 11:48:43 +00:00
parent b581dd19c0
commit b07ea410a3
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
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.

5
lisp/quickurl.el
View file

@ -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