diff options
| author | Stefan Monnier | 2011-03-21 12:42:16 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-03-21 12:42:16 -0400 |
| commit | cafdcef32d55cbb44389d7e322e7f973cbb72dfd (patch) | |
| tree | 7ee0c41ea8a589650ce6f4311fb10e61a63807b9 /lisp/cus-edit.el | |
| parent | a08a25d7aaf251aa18f2ef747be53734bc55cae9 (diff) | |
| parent | 4e05e67e4cd0bc1b0a4ef3176a4d0d91c6b3738e (diff) | |
| download | emacs-cafdcef32d55cbb44389d7e322e7f973cbb72dfd.tar.gz emacs-cafdcef32d55cbb44389d7e322e7f973cbb72dfd.zip | |
Merge from trunk
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 88821652784..203043ebd97 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -4756,6 +4756,12 @@ The format is suitable for use with `easy-menu-define'." | |||
| 4756 | "Invoke button at POS, or refuse to allow editing of Custom buffer." | 4756 | "Invoke button at POS, or refuse to allow editing of Custom buffer." |
| 4757 | (interactive "@d") | 4757 | (interactive "@d") |
| 4758 | (let ((button (get-char-property pos 'button))) | 4758 | (let ((button (get-char-property pos 'button))) |
| 4759 | ;; If there is no button at point, then use the one at the start | ||
| 4760 | ;; of the line, if it is a custom-group-link (bug#2298). | ||
| 4761 | (or button | ||
| 4762 | (if (setq button (get-char-property (line-beginning-position) 'button)) | ||
| 4763 | (or (eq (widget-type button) 'custom-group-link) | ||
| 4764 | (setq button nil)))) | ||
| 4759 | (if button | 4765 | (if button |
| 4760 | (widget-apply-action button event) | 4766 | (widget-apply-action button event) |
| 4761 | (error "You can't edit this part of the Custom buffer")))) | 4767 | (error "You can't edit this part of the Custom buffer")))) |