changeset 68106:da4512a603de

Comment declaration to remind programmer to update forward definition if default changes.
author Bill Wohler <wohler@newt.com>
date Mon, 09 Jan 2006 20:47:55 +0000
parents 5772368fe15e
children abeb226bd3f8
files lisp/mh-e/ChangeLog lisp/mh-e/mh-customize.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog	Mon Jan 09 20:15:48 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Mon Jan 09 20:47:55 2006 +0000
@@ -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: 
--- a/lisp/mh-e/mh-customize.el	Mon Jan 09 20:15:48 2006 +0000
+++ b/lisp/mh-e/mh-customize.el	Mon Jan 09 20:47:55 2006 +0000
@@ -1027,7 +1027,8 @@
 
 ;;; 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 @@
              "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 @@
   :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 @@
          (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.