Commit c9cb3a26 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-arch-state): Fix parsing for `names' method.

parent 5ee5cd10
2004-09-08 Stefan <monnier@iro.umontreal.ca>
* vc-arch.el (vc-arch-state): Fix parsing for `names' method.
2004-09-08 Kim F. Storm <storm@cua.dk>
* emulation/cua-rect.el (cua--highlight-rectangle): Fix last
......@@ -66,6 +70,9 @@
2004-09-07 Stefan <monnier@iro.umontreal.ca>
* term/xterm.el (function-key-map): Add bindings for C- and S- cursor
motion as seen on my Mac OS X xterms.
* newcomment.el (uncomment-region-default, comment-region-default):
New functions extracted from uncomment-region and comment-region.
(comment-region, comment-region-function, uncomment-region)
......
......@@ -254,9 +254,13 @@ Return non-nil if FILE is unchanged."
(with-current-buffer (find-file-noselect sigfile)
(goto-char (point-min))
(while (and (search-forward id nil 'move)
(progn (goto-char (- (match-beginning 0) 2))
;; Ignore E_ entries used for foo.id files.
(or (not (bolp)) (looking-at "E_")))))
(save-excursion
(goto-char (- (match-beginning 0) 2))
;; For `names', the lines start with `?./foo/bar'.
;; For others there's 2 chars before the ./foo/bar.
(or (not (or (bolp) (looking-at "\n?")))
;; Ignore E_ entries used for foo.id files.
(looking-at "E_")))))
(if (eobp)
;; ID not found.
(if (equal (file-name-nondirectory sigfile)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment