diff options
| -rw-r--r-- | chess-ics.el | 10 |
1 files changed, 10 insertions, 0 deletions
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))) |