diff options
| author | Chong Yidong <[email protected]> | 2006-09-30 15:45:35 +0000 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2006-09-30 15:45:35 +0000 |
| commit | b0c4ae71dccf1969bd95f05522408299d2c67026 (patch) | |
| tree | 6a1d7f888b851daab4c9a3af01d85b2a63abf42c /lisp/cus-edit.el | |
| parent | e2247cd00d2827bbc651253b1ee1e1c52791403a (diff) | |
* wid-edit.el (widget-button-click-moves-point): New variable.
(widget-button-click): If widget-button-click-moves-point is
non-nil, set point after performing the button action
* cus-edit.el (custom-mode): Set widget-button-click-moves-point.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 2f752c5fb6..ab3f7ec2b9 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4555,6 +4555,13 @@ if that value is non-nil." (setq widget-documentation-face 'custom-documentation) (make-local-variable 'widget-button-face) (setq widget-button-face custom-button) + + ;; We need this because of the "More" button on docstrings. + ;; Otherwise clicking on "More" can push point offscreen, which + ;; causes the window to recenter on point, which pushes the + ;; newly-revealed docstring offscreen; which is annoying. -- cyd. + (set (make-local-variable 'widget-button-click-moves-point) t) + (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed) (set (make-local-variable 'widget-mouse-face) custom-button-mouse) |