Some fixes to follow coding conventions.

9 files changed, 40 insertions, 25 deletions

diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el
index e10d97be3d7..3dc471359c8 100644
--- a/lisp/emulation/pc-mode.el
+++ b/lisp/emulation/pc-mode.el
@@ -1,4 +1,4 @@
-;;; pc-mode.el --- emulate certain key bindings used on PCs.
+;;; pc-mode.el --- emulate certain key bindings used on PCs
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
@@ -51,4 +53,4 @@ C-Escape does list-buffers."
 
 (provide 'pc-mode)
 
-;; pc-mode.el ends here
+;;; pc-mode.el ends here
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index ce3b24c19cb..9033ac7ce02 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -18,7 +18,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-cmd)
 (require 'advice)
@@ -1489,7 +1491,7 @@ If the prefix argument, ARG, is non-nil, it is used instead of `val'."
             (com (nth 2 viper-d-com))
             (reg (nth 3 viper-d-com)))
         (if (null val) (setq val (nth 1 viper-d-com)))
-        (if (null m-com) (error "No previous command to repeat."))
+        (if (null m-com) (error "No previous command to repeat"))
         (setq viper-use-register reg)
         (if (nth 4 viper-d-com) ; text inserted by command
             (setq viper-last-insertion (nth 4 viper-d-com)
@@ -4902,4 +4904,4 @@ Mail anyway (y or n)? ")
   
   
 
-;;;  viper-cmd.el ends here
+;;; viper-cmd.el ends here
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 047ac5f9c18..3b01dd05241 100644
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-ex)
 
@@ -1436,7 +1438,7 @@ reversed."
     (if name
         (if (eq 1 (length name))
             (setq char (string-to-char name))
-          (error "`%s': Spurious text \"%s\" after mark name."
+          (error "`%s': Spurious text \"%s\" after mark name"
                  name (substring name 1) viper-SpuriousText))
     (save-window-excursion
       (setq viper-ex-work-buf (get-buffer-create viper-ex-work-buf-name)) 
@@ -2221,4 +2223,4 @@ Please contact your system administrator. "
 
 
 
-;;;  viper-ex.el ends here
+;;; viper-ex.el ends here
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 3527e38414a..0ed9a632473 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-init)
 
@@ -986,4 +988,4 @@ Should be set in `~/.viper' file."
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;;  viper-ex.el ends here
+;;; viper-init.el ends here
diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index c76c5511627..2df1b388755 100644
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-keym)
 
@@ -630,4 +632,4 @@ form ((key . function) (key . function) ... )."
 ;;; End:
 
 
-;;;  viper-keym.el ends here
+;;; viper-keym.el ends here
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 92f5f013093..4eaf843f274 100644
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-macs)
 
@@ -945,4 +947,4 @@ name from there."
     (call-last-kbd-macro)))
 
 
-;;;  viper-macs.el ends here
+;;; viper-macs.el ends here
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el
index aaa8adb2745..b6036656851 100644
--- a/lisp/emulation/viper-mous.el
+++ b/lisp/emulation/viper-mous.el
@@ -19,7 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Code
+;;; Commentary:
+
+;;; Code:
 
 (provide 'viper-mous)
 
@@ -247,7 +249,7 @@ On single or double click, returns the word as determined by
               (goto-char click-pos)
               (setq click-word
                     (funcall viper-surrounding-word-function count click-count)))
-          (error "Click must be over a window."))
+          (error "Click must be over a window"))
         click-word))))
 
 
@@ -664,4 +666,4 @@ This buffer may be different from the one where the click occurred."
 ;;; End:
 
 
-;;;  viper-mous.el ends here
+;;; viper-mous.el ends here
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 6956d0098e8..a27f20b626f 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1,4 +1,4 @@
-;;; viper-util.el --- Utilities used by viper.el
+;;; viper-util.el --- utilities used by viper.el
 
 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
 
@@ -19,8 +19,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 
-;; Code
+;;; Code:
 
 ;; Compiler pacifier
 (defvar viper-overriding-map)
@@ -1382,4 +1383,4 @@ This option is appropriate if you like Emacs-style words."
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;;  viper-util.el ends here
+;;; viper-util.el ends here
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 9e8efaf8b0d..d4db005b972 100644
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -1,10 +1,10 @@
-;;; viper.el --- A full-featured Vi emulator for GNU Emacs and XEmacs,
+;;; viper.el --- a full-featured Vi emulator for GNU Emacs and XEmacs,
 ;;               a VI Plan for Emacs Rescue,
 ;;               and a venomous VI PERil.
 ;;               Viper Is also a Package for Emacs Rebels.
 ;;
-;;  Keywords: emulations
-;;  Author: Michael Kifer <kifer@cs.sunysb.edu>
+;; Keywords: emulations
+;; Author: Michael Kifer <kifer@cs.sunysb.edu>
 
 ;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01 Free Software Foundation, Inc.
 
@@ -294,7 +294,7 @@
 ;;    much easier.
 ;;
 
-;; Code
+;;; Code:
 
 (require 'advice)
 (require 'cl)
@@ -1280,4 +1280,4 @@ These two lines must come in the order given.
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;;  viper.el ends here
+;;; viper.el ends here