478 |
|
|
479 |
(defvar describe-text-mode-map |
(defvar describe-text-mode-map |
480 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
481 |
(if (boundp 'widget-keymap) |
(set-keymap-parent map widget-keymap) |
|
(set-keymap-parent map widget-keymap) |
|
|
;; Copy from wid-edit.el if widget-keymap isn't in loaddefs.el |
|
|
;; Needed for bootstrap purposes, can hopefully be removed when |
|
|
;; loaddefs.el is updated. |
|
|
;; -- Per Abrahamsen <abraham@dina.kvl.dk>, 2002-02-14. |
|
|
(define-key map "\t" 'widget-forward) |
|
|
(define-key map [(shift tab)] 'widget-backward) |
|
|
(define-key map [backtab] 'widget-backward) |
|
|
(define-key map [down-mouse-2] 'widget-button-click) |
|
|
(define-key map "\C-m" 'widget-button-press)) |
|
|
(define-key map "q" 'describe-text-done) |
|
482 |
map) |
map) |
483 |
"Keymap for `describe-text-mode'.") |
"Keymap for `describe-text-mode'.") |
484 |
|
|