Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
95c0d3a7
Commit
95c0d3a7
authored
Jul 30, 1996
by
Richard M. Stallman
Browse files
(PC-complete): When command is repeated,
scroll the completion buffer.
parent
6fec5601
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
1 deletion
+15
-1
lisp/complete.el
lisp/complete.el
+15
-1
No files found.
lisp/complete.el
View file @
95c0d3a7
...
...
@@ -178,7 +178,21 @@ Word-delimiters for the purposes of Partial Completion are \"-\", \"_\",
(
interactive
)
(
if
(
PC-was-meta-key
)
(
minibuffer-complete
)
(
PC-do-completion
nil
)))
;; If the previous command was not this one,
;; never scroll, always retry completion.
(
or
(
eq
last-command
this-command
)
(
setq
minibuffer-scroll-window
nil
))
(
let
((
window
minibuffer-scroll-window
))
;; If there's a fresh completion window with a live buffer,
;; and this command is repeated, scroll that window.
(
if
(
and
window
(
window-buffer
window
)
(
buffer-name
(
window-buffer
window
)))
(
save-excursion
(
set-buffer
(
window-buffer
window
))
(
if
(
pos-visible-in-window-p
(
point-max
)
window
)
(
set-window-start
window
(
point-min
)
nil
)
(
scroll-other-window
)))
(
PC-do-completion
nil
)))))
(
defun
PC-complete-word
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment