6652 |
(lookup-key global-map "\t") |
(lookup-key global-map "\t") |
6653 |
'indent-relative)))) |
'indent-relative)))) |
6654 |
|
|
6655 |
|
(eval-and-compile |
6656 |
|
(condition-case nil |
6657 |
|
(with-temp-buffer |
6658 |
|
(let ((standard-output (current-buffer))) |
6659 |
|
(eval '(display-completion-list nil ""))) |
6660 |
|
(defalias 'message-display-completion-list 'display-completion-list)) |
6661 |
|
(error ;; Don't use `wrong-number-of-arguments' here because of XEmacs. |
6662 |
|
(defun message-display-completion-list (completions &optional ignore) |
6663 |
|
"Display the list of completions, COMPLETIONS, using `standard-output'." |
6664 |
|
(display-completion-list completions))))) |
6665 |
|
|
6666 |
(defun message-expand-group () |
(defun message-expand-group () |
6667 |
"Expand the group name under point." |
"Expand the group name under point." |
6668 |
(let* ((b (save-excursion |
(let* ((b (save-excursion |
6701 |
(let ((buffer-read-only nil)) |
(let ((buffer-read-only nil)) |
6702 |
(erase-buffer) |
(erase-buffer) |
6703 |
(let ((standard-output (current-buffer))) |
(let ((standard-output (current-buffer))) |
6704 |
(display-completion-list (sort completions 'string<) string)) |
(message-display-completion-list (sort completions 'string<) |
6705 |
|
string)) |
6706 |
|
(setq buffer-read-only nil) |
6707 |
(goto-char (point-min)) |
(goto-char (point-min)) |
6708 |
(delete-region (point) (progn (forward-line 3) (point)))))))))) |
(delete-region (point) (progn (forward-line 3) (point)))))))))) |
6709 |
|
|