diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-09-27 14:09:43 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-09-27 14:09:43 -0400 |
| commit | 8b457e28320da995d51714e40af65ab52d637eb8 (patch) | |
| tree | ddd3a723cac1b4755955db687963170369e87c21 /lisp/pcmpl-cvs.el | |
| parent | 85a162088f56ec197b7ccc6d2f9ad23a691a362d (diff) | |
| download | emacs-8b457e28320da995d51714e40af65ab52d637eb8.tar.gz | |
pcmpl-cvs.el fix for bug#9606
* lisp/pcmpl-cvs.el (pcmpl-cvs-entries): Update for Emacs 22.1 changes
to split-string.
Diffstat (limited to 'lisp/pcmpl-cvs.el')
| -rw-r--r-- | lisp/pcmpl-cvs.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/pcmpl-cvs.el b/lisp/pcmpl-cvs.el index b6c5eb62b17..3ff07bca20e 100644 --- a/lisp/pcmpl-cvs.el +++ b/lisp/pcmpl-cvs.el @@ -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))) |