diff options
| author | João Távora | 2020-09-06 18:17:13 +0100 |
|---|---|---|
| committer | João Távora | 2020-09-08 09:47:34 +0100 |
| commit | 627e9c191ea57fa7ba69f30a98207c782b84bcdd (patch) | |
| tree | 1b3b3876f99d2d23357009271a41c60d73d775b1 | |
| parent | 6ce08a165cb11b8d62738c85fc2c7af8c022f6d5 (diff) | |
| download | emacs-627e9c191ea57fa7ba69f30a98207c782b84bcdd.tar.gz emacs-627e9c191ea57fa7ba69f30a98207c782b84bcdd.zip | |
Revert two commits for bug#19032
This reverts:
- commit 585fe00557489e49188b6a301f001ef01ff15dcb, which is titled
"Fix up previous icomplete-show-matches-on-no-input change"
- commit 1b8d369c381b5a63e40529d0d95dfa75d94b8e09, which is titled
"Change icomplete-show-matches-on-no-input behavior".
A simpler, less intrusive fix follows shortly after this commit.
| -rw-r--r-- | lisp/icomplete.el | 11 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 10 |
2 files changed, 4 insertions, 17 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 38115ab2c86..eea5580408b 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el | |||
| @@ -75,11 +75,7 @@ everything preceding the ~/ is discarded so the interactive | |||
| 75 | selection process starts again from the user's $HOME.") | 75 | selection process starts again from the user's $HOME.") |
| 76 | 76 | ||
| 77 | (defcustom icomplete-show-matches-on-no-input nil | 77 | (defcustom icomplete-show-matches-on-no-input nil |
| 78 | "When non-nil, show completions when first prompting for input. | 78 | "When non-nil, show completions when first prompting for input." |
| 79 | This also means that if you traverse the list of completions with | ||
| 80 | commands like `C-.' and just hit `C-j' (enter) without typing any | ||
| 81 | characters, the match under point will be chosen instead of the | ||
| 82 | default." | ||
| 83 | :type 'boolean | 79 | :type 'boolean |
| 84 | :version "24.4") | 80 | :version "24.4") |
| 85 | 81 | ||
| @@ -755,10 +751,7 @@ matches exist." | |||
| 755 | (push comp prospects) | 751 | (push comp prospects) |
| 756 | (setq limit t)))) | 752 | (setq limit t)))) |
| 757 | (setq prospects (nreverse prospects)) | 753 | (setq prospects (nreverse prospects)) |
| 758 | ;; Return the first match if the user hits enter. | 754 | ;; Decorate first of the prospects. |
| 759 | (when icomplete-show-matches-on-no-input | ||
| 760 | (setq-local completion-content-when-empty (car prospects))) | ||
| 761 | ;; Decorate first of the prospects. | ||
| 762 | (when prospects | 755 | (when prospects |
| 763 | (let ((first (copy-sequence (pop prospects)))) | 756 | (let ((first (copy-sequence (pop prospects)))) |
| 764 | (put-text-property 0 (length first) | 757 | (put-text-property 0 (length first) |
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 864726e3cc0..6deb1eb0778 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -1119,7 +1119,6 @@ completion candidates than this number." | |||
| 1119 | (defvar-local completion-all-sorted-completions nil) | 1119 | (defvar-local completion-all-sorted-completions nil) |
| 1120 | (defvar-local completion--all-sorted-completions-location nil) | 1120 | (defvar-local completion--all-sorted-completions-location nil) |
| 1121 | (defvar completion-cycling nil) ;Function that takes down the cycling map. | 1121 | (defvar completion-cycling nil) ;Function that takes down the cycling map. |
| 1122 | (defvar completion-content-when-empty nil) | ||
| 1123 | 1122 | ||
| 1124 | (defvar completion-fail-discreetly nil | 1123 | (defvar completion-fail-discreetly nil |
| 1125 | "If non-nil, stay quiet when there is no match.") | 1124 | "If non-nil, stay quiet when there is no match.") |
| @@ -1504,13 +1503,8 @@ If `minibuffer-completion-confirm' is `confirm-after-completion', | |||
| 1504 | COMPLETION-FUNCTION is called if the current buffer's content does not | 1503 | COMPLETION-FUNCTION is called if the current buffer's content does not |
| 1505 | appear to be a match." | 1504 | appear to be a match." |
| 1506 | (cond | 1505 | (cond |
| 1507 | ;; Allow user to specify null string. In the case that | 1506 | ;; Allow user to specify null string |
| 1508 | ;; `completion-content-when-empty' is set, use that instead. | 1507 | ((= beg end) (funcall exit-function)) |
| 1509 | ((= beg end) | ||
| 1510 | (when completion-content-when-empty | ||
| 1511 | (completion--replace beg end completion-content-when-empty)) | ||
| 1512 | (funcall exit-function)) | ||
| 1513 | |||
| 1514 | ((test-completion (buffer-substring beg end) | 1508 | ((test-completion (buffer-substring beg end) |
| 1515 | minibuffer-completion-table | 1509 | minibuffer-completion-table |
| 1516 | minibuffer-completion-predicate) | 1510 | minibuffer-completion-predicate) |