Mercurial > emacs

changeset 25982:6a0ca60a951f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 05863bd53034
children d7e5cded3fd1
files lisp/quickurl.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
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