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."
(save-excursion
(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
(last-match-end (point-min)))
(goto-char last-match-end)