entered into RCS

[bpt/emacs.git] / lisp / textmodes / underline.el

diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index 89edcfe..2f6ef39 100644 (file)
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -1,11 +1,15 @@
-;; Insert or remove underlining (done by overstriking) in Emacs.
+;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: wp
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -17,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;###autoload
 (defun underline-region (start end)
@@ -46,3 +51,5 @@ which specify the range to operate on."
      (goto-char (min start end))
      (while (re-search-forward "_\b\\|\b_" end1 t)
        (delete-char -2)))))
+
+;;; underline.el ends here