mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

message.el (message-display-completion-list): Abolish

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-09-17 09:24:02 +00:00
parent baed360360
commit 4a8bb694aa
2 changed files with 6 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/message.el
View file

@ -7947,17 +7947,6 @@ those headers."
;; falling back to message-tab-body-function.
(lambda () (funcall fun) 'completion-attempted)))))
(eval-and-compile
(condition-case nil
(with-temp-buffer
(let ((standard-output (current-buffer)))
(eval '(display-completion-list nil "")))
(defalias 'message-display-completion-list 'display-completion-list))
(error ;; Don't use `wrong-number-of-arguments' here because of XEmacs.
(defun message-display-completion-list (completions &optional ignore)
"Display the list of completions, COMPLETIONS, using `standard-output'."
(display-completion-list completions)))))
(defun message-expand-group ()
"Expand the group name under point."
(let ((b (save-excursion
@ -8012,8 +8001,7 @@ those headers."
(let ((buffer-read-only nil))
(erase-buffer)
(let ((standard-output (current-buffer)))
(message-display-completion-list (sort completions 'string<)
string))
(display-completion-list (sort completions 'string<)))
(setq buffer-read-only nil)
(goto-char (point-min))
(delete-region (point)