Mercurial > emacs
changeset 107800:877d1f644a5f
wid-edit.el (widget-choose): Put cursor on second line of the buffer (Bug#5695).
| author | Jan D. <jan.h.d@swipnet.se> |
|---|---|
| date | Wed, 07 Apr 2010 14:57:04 +0200 |
| parents | 44bc63178420 |
| children | bffc7a768bbd |
| files | lisp/ChangeLog lisp/wid-edit.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 07 13:45:08 2010 +0200 +++ b/lisp/ChangeLog Wed Apr 07 14:57:04 2010 +0200 @@ -1,3 +1,8 @@ +2010-04-07 Jan Djärv <jan.h.d@swipnet.se> + + * wid-edit.el (widget-choose): Move cursor to the second line of + the buffer (Bug#5695). + 2010-04-07 Dan Nicolaescu <dann@ics.uci.edu> Add new VC methods: vc-log-incoming and vc-log-outgoing.
--- a/lisp/wid-edit.el Wed Apr 07 13:45:08 2010 +0200 +++ b/lisp/wid-edit.el Wed Apr 07 14:57:04 2010 +0200 @@ -253,7 +253,9 @@ ;; Allocate digits to disabled alternatives ;; so that the digit of a given alternative never varies. (setq next-digit (1+ next-digit))) - (insert "\nC-g = Quit")) + (insert "\nC-g = Quit") + (goto-char (point-min)) + (forward-line)) (or some-choice-enabled (error "None of the choices is currently meaningful")) (define-key map [?\C-g] 'keyboard-quit)