diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2010-04-07 14:57:04 +0200 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2010-04-07 14:57:04 +0200 |
| commit | b0c8b840b4f3ba8faa9af43eb99c0a9d634c6744 (patch) | |
| tree | 01c1837e15425fb11e284400fad729f0b70e5d1e | |
| parent | 7fc874c42cc6fd07081ae53cd359e1b6825c0b31 (diff) | |
| download | emacs-b0c8b840b4f3ba8faa9af43eb99c0a9d634c6744.tar.gz | |
wid-edit.el (widget-choose): Put cursor on second line of the buffer (Bug#5695).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/wid-edit.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 06ac9e811c9..ad2f6cf56ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 6296a965df9..f68c668f742 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -253,7 +253,9 @@ minibuffer." ;; 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) |