comparison lisp/cus-edit.el @ 66169:cd540036e3a8

* cus-edit.el (Custom-move-and-invoke): Delete function. (custom-mode-map): Remove Custom-move-and-invoke binding. * wid-edit.el (widget-move-and-invoke): New function. (widget-keymap): Bind mouse-1 to it.

66168:28718fa5d988

    (define-key map "\C-x\C-s" 'Custom-save)
    (define-key map "q" 'Custom-buffer-done)
    (define-key map "u" 'Custom-goto-parent)
    (define-key map "n" 'widget-forward)
    (define-key map "p" 'widget-backward)
    (define-key map [mouse-1] 'Custom-move-and-invoke)
    map)
  "Keymap for `custom-mode'.")

(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)))))

(easy-menu-define Custom-mode-menu
    custom-mode-map
  "Menu used in customization buffers."
  `("Custom"

66169:cd540036e3a8

    (define-key map "\C-x\C-s" 'Custom-save)
    (define-key map "q" 'Custom-buffer-done)
    (define-key map "u" 'Custom-goto-parent)
    (define-key map "n" 'widget-forward)
    (define-key map "p" 'widget-backward)
    map)
  "Keymap for `custom-mode'.")

(easy-menu-define Custom-mode-menu
    custom-mode-map
  "Menu used in customization buffers."
  `("Custom"