procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

pcmpl-cvs.el fix for bug#9606

Browse source 
* lisp/pcmpl-cvs.el (pcmpl-cvs-entries): Update for Emacs 22.1 changes
to split-string.
This commit is contained in:
Glenn Morris 2011-09-27 14:09:43 -04:00
parent 85a162088f
commit 8b457e2832
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-09-27 Glenn Morris <rgm@gnu.org>
* pcmpl-cvs.el (pcmpl-cvs-entries): Update for Emacs 22.1 changes
to split-string. (Bug#9606)
2011-09-27 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Fix STARTTLS detection

14
lisp/pcmpl-cvs.el
View file

@ -169,13 +169,13 @@ operation character applies, as displayed by 'cvs -n update'."
(insert-file-contents (concat dir "CVS/Entries"))
(goto-char (point-min))
(while (not (eobp))
(let* ((line (buffer-substring (line-beginning-position)
(line-end-position)))
(fields (split-string line "/"))
text)
(if (eq (aref line 0) ?/)
(setq fields (cons "" fields)))
(setq text (nth 1 fields))
;; Normal file: /NAME -> "" "NAME"
;; Directory : D/NAME -> "D" "NAME"
(let* ((fields (split-string (buffer-substring
(line-beginning-position)
(line-end-position))
"/"))
(text (nth 1 fields)))
(when text
(if (string= (nth 0 fields) "D")
(setq text (file-name-as-directory text)))