From 456350198683033c92b673deb6a99bd31862371a Mon Sep 17 00:00:00 2001 From: mdw Date: Thu, 17 Jun 1999 00:16:18 +0000 Subject: [PATCH] Handle strange characters in filenames properly. --- skelrc.h | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/skelrc.h b/skelrc.h index 444af4d..b46eb71 100644 --- a/skelrc.h +++ b/skelrc.h @@ -2,10 +2,19 @@ (skel-include "skelrc.c") +(defun skelrc-c-sanitize-guard (s) + (setq s (copy-sequence s)) + (let ((i 0) (l (length s))) + (while (< i l) + (let ((c (aref s i))) + (aset s i (if (eq (char-syntax c) ?w) (upcase c) ?_))) + (setq i (1+ i)))) + s) + (defun skelrc-c-guard-name () (if buffer-file-name - (upcase (file-name-sans-extension (file-name-nondirectory - buffer-file-name))) + (skelrc-c-sanitize-guard + (file-name-sans-extension (file-name-nondirectory buffer-file-name))) (skel-lookup 'include-guard-name))) (setq skel-alist -- 2.11.0