From 25ca95c050c42865a6039f028786d7feb15e841a Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Thu, 23 Aug 2007 18:41:59 +0000 Subject: [PATCH] (locate-get-file-positions): Use `line-beginning-position' and `line-end-position'. --- lisp/ChangeLog | 5 +++++ lisp/locate.el | 12 ++++-------- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ed0159ce82..947682cdc17 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-23 Thien-Thi Nguyen + + * locate.el (locate-get-file-positions): Use + line-beginning-position and line-end-position. + 2007-08-23 John Wiegley * calendar/cal-bahai.el: Added in the diacriticals that were diff --git a/lisp/locate.el b/lisp/locate.el index 95060d36197..bc2dce954da 100644 --- a/lisp/locate.el +++ b/lisp/locate.el @@ -406,14 +406,10 @@ there is no file name on the current line, the return value is meaningless. You can check whether the current line contains a file listed by the locate program, using the function `locate-main-listing-line-p'." - (save-excursion - (end-of-line) - (let ((eol (point))) - (beginning-of-line) - - ;; Assumes names end at the end of the line - (forward-char locate-filename-indentation) - (list (point) eol)))) + (list (+ locate-filename-indentation + (line-beginning-position)) + ;; Assume names end at the end of the line. + (line-end-position))) ;; From SQL-mode (defun locate-current-line-number () -- 2.11.4.GIT