;;; lcomp-keys.el --- useful completion window key bindings

;; Copyright (C) 2004  Free Software Foundation, Inc.

;; Author: Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp>
;; Keywords: tool

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

;;; key bindings.
(define-key completion-list-mode-map "\C-i" 'next-completion)
(define-key completion-list-mode-map "\M-\C-i" 'previous-completion)
(define-key completion-list-mode-map "f" 'next-completion)
(define-key completion-list-mode-map "b" 'previous-completion)
(define-key completion-list-mode-map "n" 'next-line)
(define-key completion-list-mode-map "p" 'previous-line)
(define-key completion-list-mode-map " " 'scroll-up)
(define-key completion-list-mode-map [del] 'scroll-down)
(define-key completion-list-mode-map [backspace] 'scroll-down)
(define-key completion-list-mode-map "q" 'delete-completion-window)

(provide 'lcomp-keys)
;;; lcomp-keys.el ends here