Format- and whitespace-related changes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87bd4c2b3cb3ccef851303bf378c61d99fa2ee65..e79308606562b928029d6aebcb6f6f925025a8d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-09-09  Emilio Lopes  <eclig@gmx.net>
+
+       * woman.el: Format- and whitespace-related changes.
+
 2005-09-09  Eli Zaretskii  <eliz@gnu.org>
 
        * woman.el: Fix my email address.

diff --git a/lisp/woman.el b/lisp/woman.el
index cc93b96eba2e3b4221b851970064dcb986aed9ad..e5753d746f78e645318aa29faba0f851828840f7 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -422,9 +422,6 @@
 ;;   Geoff Voelker <voelker@cs.washington.edu>
 ;;   Eli Zaretskii <eliz@gnu.org>
 
-;;; History:
-;;  For recent change log see end of file.
-
 \f
 ;;; Code:
 
@@ -956,8 +953,9 @@ This is usually either black or white."
     :group 'woman-faces)
 
   (defcustom woman-use-symbol-font nil
-    "*If non-nil then may use the symbol font.  It is off by default,
-mainly because it may change the line spacing (in NTEmacs 20.5)."
+    "*If non-nil then may use the symbol font.
+It is off by default, mainly because it may change the line spacing
+\(in NTEmacs 20.5)."
     :type 'boolean
     :group 'woman-faces)
 
@@ -1262,10 +1260,9 @@ Optional argument RE-CACHE, if non-nil, forces the cache to be re-read."
        ;; Unread the command event (TAB = ?\t = 9) that runs the command
        ;; `minibuffer-complete' in order to automatically complete the
        ;; minibuffer contents as far as possible.
-       (setq unread-command-events '(9))       ; and delete any type-ahead!
+       (setq unread-command-events '(9)) ; and delete any type-ahead!
        (completing-read "Manual file: " files nil 1
-                        (try-completion "" files) 'woman-file-history)))
-      )))
+                        (try-completion "" files) 'woman-file-history))))))
 
 (defun woman-select (predicate list)
   "Select unique elements for which PREDICATE is true in LIST.