# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1156078099 0
# Node ID 204e1538695a40e64a674b056de184ae634742d8
# Parent  bcc1f5792592f087cc4fe6b7f7f67fc7331cc20e
(comment-box): Call `comment-normalize-vars'.  Add autoload cookie.

diff -r bcc1f5792592 -r 204e1538695a lisp/newcomment.el
--- a/lisp/newcomment.el	Sun Aug 20 12:19:33 2006 +0000
+++ b/lisp/newcomment.el	Sun Aug 20 12:48:19 2006 +0000
@@ -299,7 +299,7 @@
 		   (substring comment-start 1)))
       ;; Hasn't been necessary yet.
       ;; (unless (string-match comment-start-skip comment-continue)
-      ;; 	(kill-local-variable 'comment-continue))
+      ;;	(kill-local-variable 'comment-continue))
       )
     ;; comment-skip regexps
     (unless (and comment-start-skip
@@ -602,7 +602,7 @@
 	;; Update INDENT to leave at least one space
 	;; after other nonwhite text on the line.
 	(save-excursion
-	  (skip-chars-backward " \t") 
+	  (skip-chars-backward " \t")
 	  (unless (bolp)
 	    (setq indent (max indent (1+ (current-column))))))
 	;; If that's different from comment's current position, change it.
@@ -769,7 +769,7 @@
 	    (box-equal nil))	   ;Whether we might be using `=' for boxes.
 	(save-restriction
 	  (narrow-to-region spt ept)
-		
+
 	  ;; Remove the comment-start.
 	  (goto-char ipt)
 	  (skip-syntax-backward " ")
@@ -798,7 +798,7 @@
 	      ;; If there's something left but it doesn't look like
 	      ;; a comment-start any more, just remove it.
 	      (delete-region (point-min) (point))))
-		
+
 	  ;; Remove the end-comment (and leading padding and such).
 	  (goto-char (point-max)) (comment-enter-backward)
 	  ;; Check for special `=' used sometimes in comment-box.
@@ -1062,11 +1062,13 @@
        lines
        (nth 3 style))))))
 
+;;;###autoload
 (defun comment-box (beg end &optional arg)
   "Comment out the BEG .. END region, putting it inside a box.
 The numeric prefix ARG specifies how many characters to add to begin- and
 end- comment markers additionally to what `comment-add' already specifies."
   (interactive "*r\np")
+  (comment-normalize-vars)
   (let ((comment-style (if (cadr (assoc comment-style comment-styles))
 			   'box-multi 'box)))
     (comment-region beg end (+ comment-add arg))))