diff options
| author | Juri Linkov <juri@linkov.net> | 2022-03-24 19:54:14 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-03-24 19:54:14 +0200 |
| commit | 71aec1d0444ab351a4f20ae1ed10dee7bc12af88 (patch) | |
| tree | 23ad2fba1f9c9d87b7dad7b3779e7f604953e330 /lisp/minibuffer.el | |
| parent | 45978f97be89ae989ecf9e7129b88592e70a1f24 (diff) | |
| download | emacs-71aec1d0444ab351a4f20ae1ed10dee7bc12af88.tar.gz | |
Small fixes for the new feature 'second-tab' of 'completion-auto-select'
* lisp/simple.el (completion-auto-select): Extend the docstring.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 742d39f2d29..d8df1799c93 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1413,20 +1413,20 @@ scroll the window of possible completions." (let ((window minibuffer-scroll-window)) (with-current-buffer (window-buffer window) (cond - ;; here this is possible only when second-tab, so jump now. + ;; Here this is possible only when second-tab, so jump now. (completion-auto-select (switch-to-completions)) - ;; reverse tab + ;; Reverse tab ((equal (this-command-keys) [backtab]) (if (pos-visible-in-window-p (point-min) window) - ;; If beginning is in view, scroll up to the end + ;; If beginning is in view, scroll up to the end. (set-window-point window (point-max)) ;; Else scroll down one screen. (with-selected-window window (scroll-down)))) - ;; normal tab + ;; Normal tab (t (if (pos-visible-in-window-p (point-max) window) - ;; If end is in view, scroll up to the end + ;; If end is in view, scroll up to the end. (set-window-start window (point-min) nil) ;; Else scroll down one screen. (with-selected-window window (scroll-up))))) |