[mew-dist 29258] 補完での completions-first-dif ference の活用
Hideyuki SHIRAI (白井秀行) <[email protected]>
| Newsgroups | gmane.mail.mew.general.japanese |
|---|---|
| Organization | Resident at Meadowy farm. |
| Message-ID | <[email protected]> |
Emacs22
()bold(*1) Mew
face
Emacs
(defun mew-complete-window-show (all)
(unless (mew-ainfo-get-win-cfg)
(mew-ainfo-set-win-cfg (current-window-configuration)))
(if (and (get-buffer-window mew-buffer-completions)
(equal mew-complete-candidates all))
(let ((win (get-buffer-window mew-buffer-completions)))
(with-current-buffer mew-buffer-completions
(if (pos-visible-in-window-p (point-max) win)
(set-window-start win 1)
(scroll-other-window))))
(setq mew-complete-candidates all)
(with-output-to-temp-buffer mew-buffer-completions
(when mew-inherit-complete-folder
(make-local-variable 'choose-completion-string-functions)
(add-hook 'choose-completion-string-functions
'mew-complete-insert-folder-function))
(display-completion-list all (try-completion "" all)))))
Emacs21
display-completion-list()
(condition-case nil
(display-completion-list all (try-completion "" all))
(error
(display-completion-list all)))
(*1) completions-first-difference face
--
(mailto:[email protected])