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
5e688290
Commit
5e688290
authored
Dec 22, 2005
by
Romain Francoise
Browse files
(lisp-complete-symbol): Don't print progress messages if in the
minibuffer.
parent
9c841316
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
32 additions
and
22 deletions
+32
-22
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/emacs-lisp/lisp.el
lisp/emacs-lisp/lisp.el
+27
-22
No files found.
lisp/ChangeLog
View file @
5e688290
2005-12-22 Katsumi Yamaoka <yamaoka@jpl.org>
* emacs-lisp/lisp.el (lisp-complete-symbol): Don't print progress
messages if in the minibuffer.
2005-12-21 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/flyspell.el (flyspell-check-word-p): Don't quote - in a RE.
...
...
lisp/emacs-lisp/lisp.el
View file @
5e688290
...
...
@@ -572,29 +572,34 @@ considered."
((
not
(
string=
pattern
completion
))
(
delete-region
beg
end
)
(
insert
completion
)
;; Don't leave around a completions buffer that's outofdate.
(
let
((
win
(
get-buffer-window
"*Completions*"
0
)))
(
if
win
(
with-selected-window
win
(
bury-buffer
)))))
;; Don't leave around a completions buffer that's out
of
date.
(
let
((
win
(
get-buffer-window
"*Completions*"
0
)))
(
if
win
(
with-selected-window
win
(
bury-buffer
)))))
(
t
(
message
"Making completion list..."
)
(
let
((
list
(
all-completions
pattern
obarray
predicate
)))
(
setq
list
(
sort
list
'string<
))
(
or
(
eq
predicate
'fboundp
)
(
let
(
new
)
(
while
list
(
setq
new
(
cons
(
if
(
fboundp
(
intern
(
car
list
)))
(
list
(
car
list
)
" <f>"
)
(
car
list
))
new
))
(
setq
list
(
cdr
list
)))
(
setq
list
(
nreverse
new
))))
(
if
(
>
(
length
list
)
1
)
(
with-output-to-temp-buffer
"*Completions*"
(
display-completion-list
list
pattern
))
;; Don't leave around a completions buffer that's outofdate.
(
let
((
win
(
get-buffer-window
"*Completions*"
0
)))
(
if
win
(
with-selected-window
win
(
bury-buffer
))))))
(
message
"Making completion list...%s"
"done"
)))))))
(
let
((
minibuf-is-in-use
(
eq
(
minibuffer-window
)
(
selected-window
))))
(
unless
minibuf-is-in-use
(
message
"Making completion list..."
))
(
let
((
list
(
all-completions
pattern
obarray
predicate
)))
(
setq
list
(
sort
list
'string<
))
(
or
(
eq
predicate
'fboundp
)
(
let
(
new
)
(
while
list
(
setq
new
(
cons
(
if
(
fboundp
(
intern
(
car
list
)))
(
list
(
car
list
)
" <f>"
)
(
car
list
))
new
))
(
setq
list
(
cdr
list
)))
(
setq
list
(
nreverse
new
))))
(
if
(
>
(
length
list
)
1
)
(
with-output-to-temp-buffer
"*Completions*"
(
display-completion-list
list
pattern
))
;; Don't leave around a completions buffer that's
;; out of date.
(
let
((
win
(
get-buffer-window
"*Completions*"
0
)))
(
if
win
(
with-selected-window
win
(
bury-buffer
))))))
(
unless
minibuf-is-in-use
(
message
"Making completion list...%s"
"done"
)))))))))
;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
;;; lisp.el ends here
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