From cbe7fe1cbc0f0bad76be40227f38bdffbd659642 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Thu, 12 Feb 2004 11:08:47 +0000 Subject: chess-ics-sought-mode-map: new variable --- chess-ics.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/chess-ics.el b/chess-ics.el index 4d41285..f81c5ed 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -667,6 +667,16 @@ descending order.") :group 'chess-ics :type 'sexp) +(defvar chess-ics-sought-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\r" 'chess-ics-sought-accept) + (define-key map [mouse-2] 'chess-ics-sought-accept) + (define-key map [??] 'describe-mode) + (define-key map [?s] 'chess-ics-sought-toggle-sort-state) + (define-key map [? ] 'chess-ics-sought-toggle-sort-direction) + map) + "Keymap for `chess-ics-sought-mode'.") + (define-derived-mode chess-ics-sought-mode fundamental-mode "Seek Ads" "A mode for displaying ICS game seek advertisments." (let ((map (current-local-map))) -- cgit v1.2.3