snippet: Upcase the first letter of names

diff --git a/gnome-c-snippet.el b/gnome-c-snippet.el
index 40c53f46d07a20770fae2366ae5a155d85266775..9fc8883bd2c3affbe74383687a706b47e69e539d 100644 (file)
--- a/gnome-c-snippet.el
+++ b/gnome-c-snippet.el
@@ -55,7 +55,7 @@
   (require 'subword)
   (with-temp-buffer
     (let (words)
-      (insert name)
+      (insert (upcase-initials name))
       (goto-char (point-min))
       (while (not (eobp))
        ;; Skip characters not recognized by subword-mode.