skelrc: Strip trailing whitespace when making banners.

diff --git a/skelrc b/skelrc
index 4a8e105..b607b57 100644 (file)
--- a/skelrc
+++ b/skelrc
@@ -1,10 +1,21 @@
 ;;; -*-emacs-lisp-*-
 
+(defun skelrc-strip-trailing-whitespace (string)
+  (let ((i (1- (length string))))
+    (while (and (>= i 0) (= (char-syntax (aref string i)) ? ))
+      (setq i (1- i)))
+    (substring string 0 (1+ i))))
+
 (defun skelrc-banner (title &optional block)
   (let* ((start (skel-lookup 'block-start))
         (end (skel-lookup (if block 'block-banner-knob 'block-banner-end)))
         (barlen (- 77 (length (concat start end " ----- " title)))))
-    (concat start "----- " title " " (make-string barlen ?-) end)))
+    (skelrc-strip-trailing-whitespace (concat start
+                                             "----- "
+                                             title
+                                             " "
+                                             (make-string barlen ?-)
+                                             end))))
 
 (defvar skelrc-forced-major-mode 0)