ryuslash/vc-p4
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* p4-lowlevel.el (p4-lowlevel-buffer-to-alist): Strip CR from end

Browse source 
of line.

[git-p4: depot-paths = "//guest/Ben_Key/vc-p4/,//guest/jonathan_kamens/vc-p4/,//guest/magnus_henoch/vc-p4/": change = 7331]
This commit is contained in:
Magnus Henoch 2009-07-20 15:37:50 -08:00
parent 876b3ef83c
commit 5051f6e818
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
p4-lowlevel.el
View file

@ -142,6 +142,10 @@ block of untagged text (including newlines other than the last one).
The alist is in the same order as the contents of the buffer." The alist is in the same order as the contents of the buffer."
(save-excursion (save-excursion
(if buffer (set-buffer buffer)) (if buffer (set-buffer buffer))
;; Strip CR from end of line
(goto-char (point-min))
(while (search-forward "\r" nil t)
(delete-char -1))
(let (alist tag value (let (alist tag value
(last-match-end (point-min))) (last-match-end (point-min)))
(goto-char last-match-end) (goto-char last-match-end)