--- a/lisp/comint/history.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/comint/history.el	Mon Aug 13 08:46:56 2007 +0200
@@ -1,3 +1,5 @@
+;;; history.el --- Generic history stuff
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of XEmacs.
@@ -16,6 +18,10 @@
 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Synched up with: Not in FSF
+
+;;; Commentary:
+
 ;; suggested generic history stuff  -- tale
 
 ;; This is intended to provided easy access to a list of elements
@@ -68,6 +74,8 @@
 
 ;; ToDo: history-isearch
 
+;;; Code:
+
 (provide 'history)
 
 (defvar history-last-search ""
@@ -163,3 +171,5 @@
 	  (insert menu)
 	  (display-buffer buffer))
       (with-output-to-temp-buffer buffer (princ menu)))))
+
+;;; history.el ends here