/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.235 by cyd, Mon Oct 17 23:46:28 2005 UTC revision 1.236 by cyd, Tue Oct 18 00:28:56 2005 UTC
# Line 4245  The format is suitable for use with `eas Line 4245  The format is suitable for use with `eas
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."

Legend:
Removed from v.1.235  
changed lines
  Added in v.1.236

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26