diff options
| author | Samer Masterson | 2015-01-16 05:35:51 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2015-01-16 05:43:39 +0300 |
| commit | 7b8cba98bfa8fff6536b5f868d2adf2b31c75544 (patch) | |
| tree | 7c264974ad9eccd65b62e18e2b8f1634f9d762fa | |
| parent | a3505cb3ef00ad3c9f886e2eb7f245845eb4c1ee (diff) | |
| download | emacs-7b8cba98bfa8fff6536b5f868d2adf2b31c75544.tar.gz emacs-7b8cba98bfa8fff6536b5f868d2adf2b31c75544.zip | |
Backport: Parse pcomplete arguments regardless of pcomplete-cycle-completions
* pcomplete.el (pcomplete-parse-arguments): Parse arguments regardless
of pcomplete-cycle-completions's value.
Fixes: debbugs:18950
(cherry picked from commit dfa8729c1086d6461de846aad47f2a0aba732176)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/pcomplete.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ce3b202466..8a3d6570c84 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2015-01-16 Samer Masterson <samer@samertm.com> (tiny change) | ||
| 2 | |||
| 3 | * pcomplete.el (pcomplete-parse-arguments): Parse arguments | ||
| 4 | regardless of pcomplete-cycle-completions's value. (Bug#18950) | ||
| 5 | |||
| 1 | 2015-01-13 Michael Albinus <michael.albinus@gmx.de> | 6 | 2015-01-13 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 7 | ||
| 3 | * filenotify.el (file-notify-descriptors, file-notify-handle-event): | 8 | * filenotify.el (file-notify-descriptors, file-notify-handle-event): |
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 17327ea5c95..7bcf2c1759e 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el | |||
| @@ -755,8 +755,7 @@ this is `comint-dynamic-complete-functions'." | |||
| 755 | pcomplete-index 0 | 755 | pcomplete-index 0 |
| 756 | pcomplete-stub (pcomplete-arg 'last)) | 756 | pcomplete-stub (pcomplete-arg 'last)) |
| 757 | (let ((begin (pcomplete-begin 'last))) | 757 | (let ((begin (pcomplete-begin 'last))) |
| 758 | (if (and pcomplete-cycle-completions | 758 | (if (and (listp pcomplete-stub) ;?? |
| 759 | (listp pcomplete-stub) ;?? | ||
| 760 | (not pcomplete-expand-only-p)) | 759 | (not pcomplete-expand-only-p)) |
| 761 | (let* ((completions pcomplete-stub) ;?? | 760 | (let* ((completions pcomplete-stub) ;?? |
| 762 | (common-stub (car completions)) | 761 | (common-stub (car completions)) |