From: shirai <shirai>
Date: Fri, 10 May 2002 06:58:39 +0000 (+0000)
Subject: (lsdb-complete-name): Set start point on
X-Git-Tag: lsdb-0_8~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1ea10d2d42161463f76bd05cfe30f52948b35fbd;p=elisp%2Flsdb.git

(lsdb-complete-name): Set start point on
`lsdb-complete-marker'.
(comment): Change my email address.
---

diff --git a/lsdb.el b/lsdb.el
index b3db207..5bc7439 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -773,8 +773,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 		   (marker-position lsdb-complete-marker))
 	      (save-excursion
 		(re-search-backward "\\(\\`\\|[\n:,]\\)[ \t]*")
-		(goto-char (match-end 0))
-		(point))))
+		(set-marker lsdb-complete-marker (match-end 0)))))
 	 pattern
 	 (case-fold-search t)
 	 (completion-ignore-case t))
@@ -1366,7 +1365,7 @@ always hide."
 	(set-window-buffer window buffer)
 	(lsdb-fit-window-to-buffer window)))))
 
-;;;_. Interface to Mew written by Hideyuki SHIRAI <shirai@rdmg.mgcs.mei.co.jp>
+;;;_. Interface to Mew written by Hideyuki SHIRAI <shirai@meadowy.org>
 (eval-when-compile
   (autoload 'mew-sinfo-get-disp-msg "mew")
   (autoload 'mew-current-get-fld "mew")