From b0c8b840b4f3ba8faa9af43eb99c0a9d634c6744 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Wed, 7 Apr 2010 14:57:04 +0200 Subject: [PATCH] wid-edit.el (widget-choose): Put cursor on second line of the buffer (Bug#5695). --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * wid-edit.el (widget-choose): Move cursor to the second line of + the buffer (Bug#5695). + 2010-04-07 Dan Nicolaescu 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) -- 2.39.5