From 9086647554c2259fb56ce6ac011c22dfb1ef5151 Mon Sep 17 00:00:00 2001
From: Bill Wohler <wohler@newt.com>
Date: Mon, 9 Jan 2006 20:47:55 +0000
Subject: [PATCH] Comment declaration to remind programmer to update forward
 definition if default changes.

---
 lisp/mh-e/ChangeLog       | 4 ++++
 lisp/mh-e/mh-customize.el | 8 ++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 7ec0541fcef..af9616ecd33 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,9 @@
 2006-01-09  Bill Wohler  <wohler@newt.com>
 
+	* mh-customize.el: Use ";; Forward definition." consistently.
+	Comment declaration to remind programmer to update forward
+	definition if default changes.
+
 	* mh-funcs.el: 
 	* mh-inc.el: 
 	* mh-init.el: 
diff --git a/lisp/mh-e/mh-customize.el b/lisp/mh-e/mh-customize.el
index fc39089b43c..8f7d508f1e6 100644
--- a/lisp/mh-e/mh-customize.el
+++ b/lisp/mh-e/mh-customize.el
@@ -1027,7 +1027,8 @@ message 200, then use the range \"200:200\"."
 
 ;;; Scan Line Formats (:group 'mh-scan-line-formats)
 
-(defvar mh-scan-format-file t) ;forward definition
+;; Forward definition.
+(defvar mh-scan-format-file t)
 
 (defun mh-adaptive-cmd-note-flag-check (symbol value)
   "Check if desired setting is legal.
@@ -1040,7 +1041,8 @@ Otherwise, set SYMBOL to VALUE."
              "is set to \"Use MH-E scan Format\"")
     (set-default symbol value)))
 
-(defvar mh-adaptive-cmd-note-flag) ;forward definition
+;; Forward definition.
+(defvar mh-adaptive-cmd-note-flag)
 
 (defun mh-scan-format-file-check (symbol value)
   "Check if desired setting is legal.
@@ -1070,6 +1072,7 @@ you would use \"(mh-set-cmd-note 4)\"."
   :group 'mh-scan-line-formats
   :set 'mh-adaptive-cmd-note-flag-check)
 
+;; Update forward definition above if default changes.
 (defcustom mh-scan-format-file t
   "Specifies the format file to pass to the scan program.
 
@@ -1644,6 +1647,7 @@ See also `mh-clean-message-header-flag'."
          (mh-invisible-headers))
   :group 'mh-show)
 
+;; Update forward definition above if default changes.
 (defcustom mh-invisible-header-fields-default nil
   "*List of hidden header fields.
 
-- 
2.39.2