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

(locate-get-file-positions): Use

Browse source 
`line-beginning-position' and `line-end-position'.
This commit is contained in:
Thien-Thi Nguyen 2007-08-23 18:41:59 +00:00
parent 305c237ca2
commit 25ca95c050
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-08-23 Thien-Thi Nguyen <ttn@gnuvola.org>
* locate.el (locate-get-file-positions): Use
line-beginning-position and line-end-position.
2007-08-23 John Wiegley <johnw@newartisans.com>
* calendar/cal-bahai.el: Added in the diacriticals that were

12
lisp/locate.el
View file

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