From 60d5371851e3af8d6ace5cbe4dcc8833145ae614 Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Sat, 4 Oct 2014 20:47:08 +0200 Subject: [PATCH] Fix automatic prefix generator --- gobgen.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/gobgen.el b/gobgen.el index 2c3e551..f44bd1d 100644 --- a/gobgen.el +++ b/gobgen.el @@ -268,8 +268,9 @@ Parameters: :size 25 :format "Name: %v" :notify (lambda (widget &rest ignore) - (widget-value-set gobgen-widget-prefix (get-gobject-prefix (widget-value widget)))) - "g_example_object")) + (save-excursion + (widget-value-set gobgen-widget-prefix (get-gobject-prefix (widget-value widget))))) + "gtk_example_object")) (widget-insert " ") @@ -277,12 +278,15 @@ Parameters: (widget-create 'editable-field :size 10 :format "Prefix: %v\n" - "g")) + "gtk")) (setq gobgen-widget-parent-name (widget-create 'editable-field :size 25 :format "Parent: %v" + :notify (lambda (widget &rest ignore) + (save-excursion + (widget-value-set gobgen-widget-parent-prefix (get-gobject-prefix (widget-value widget))))) "g_object")) (widget-insert " ")