4245 |
(define-key map "u" 'Custom-goto-parent) |
(define-key map "u" 'Custom-goto-parent) |
4246 |
(define-key map "n" 'widget-forward) |
(define-key map "n" 'widget-forward) |
4247 |
(define-key map "p" 'widget-backward) |
(define-key map "p" 'widget-backward) |
4248 |
(define-key map [mouse-1] 'Custom-move-and-invoke) |
(define-key map [mouse-1] 'widget-move-and-invoke) |
4249 |
map) |
map) |
4250 |
"Keymap for `custom-mode'.") |
"Keymap for `custom-mode'.") |
4251 |
|
|
|
(defun Custom-move-and-invoke (event) |
|
|
"Move to where you click, and if it is an active field, invoke it." |
|
|
(interactive "e") |
|
|
(mouse-set-point event) |
|
|
(if (widget-event-point event) |
|
|
(let* ((pos (widget-event-point event)) |
|
|
(button (get-char-property pos 'button))) |
|
|
(if button |
|
|
(widget-button-click event))))) |
|
|
|
|
4252 |
(easy-menu-define Custom-mode-menu |
(easy-menu-define Custom-mode-menu |
4253 |
custom-mode-map |
custom-mode-map |
4254 |
"Menu used in customization buffers." |
"Menu used in customization buffers." |