skelrc: Strip trailing whitespace when making banners.

diff --git a/skelrc b/skelrc
index 4a8e1059fef060427869a825f61529f9967b0ef0..b607b579b446db32a1891f79ae99d5361468eece 100644 (file)
--- a/skelrc
+++ b/skelrc
@@ -1,10 +1,21 @@
 ;;; -*-emacs-lisp-*-
 
 ;;; -*-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)))))
 (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)
 
 
 (defvar skelrc-forced-major-mode 0)