Some fixes to follow coding conventions.

10 files changed, 42 insertions, 25 deletions

diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el
index 2aeb6aac742..cdbe34060ac 100644
--- a/lisp/emulation/edt-lk201.el
+++ b/lisp/emulation/edt-lk201.el
@@ -1,4 +1,4 @@
-;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards
+;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
 
 ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
 
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Usage:
+;;; Commentary:
 
 ;;  See edt-user.doc in the Emacs etc directory.
 
@@ -39,6 +39,9 @@
 ;; F1 - F5 are not available on many DEC VT series terminals.
 ;; However, this is not always the case.  So support for F1 - F5 is
 ;; provided here and in lisp/term/lk201.el.
+
+;;; Code:
+
 (defconst *EDT-keys*
   '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) 
     ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
@@ -53,3 +56,5 @@
     ("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14])
     ("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
     ("F19" . [f19]) ("F20" . [f20])))
+
+;;; edt-lk201.el ends here
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 9b60f9f1fd0..7f74ab60f95 100644
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -1,4 +1,4 @@
-;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs
+;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
 
 ;; Copyright (C) 1994, 1995, 2000, 2001  Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el
index 0cd9ece4498..2b6aa25b061 100644
--- a/lisp/emulation/edt-pc.el
+++ b/lisp/emulation/edt-pc.el
@@ -1,4 +1,4 @@
-;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards
+;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
 
 ;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc.
 
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Usage:
+;;; Commentary:
 
 ;;  See edt-user.doc in the Emacs etc directory.
 
@@ -68,6 +68,9 @@
 ;; and F17 through F20 do not exist on the PC, so the EDT emulation is
 ;; configured below to ignore attempts to bind functions to those keys.
 ;;
+
+;;; Code:
+
 (defconst *EDT-keys*
   '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) 
     ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
@@ -83,3 +86,5 @@
     ("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" )
     ("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" )
     ("F19" . "" ) ("F20" . "" )))
+
+;;; edt-pc.el ends here
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el
index 42f81cd6f56..283b7827c73 100644
--- a/lisp/emulation/edt-vt100.el
+++ b/lisp/emulation/edt-vt100.el
@@ -1,4 +1,4 @@
-;;; edt-vt100.el --- Enhanced EDT Keypad Mode Emulation for VT Series Terminals
+;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals
 
 ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
 
@@ -23,12 +23,15 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Usage:
+;;; Commentary:
 
 ;;  See edt-user.doc in the Emacs etc directory.
 
 ;; ====================================================================
 
+
+;;; Code:
+
 ;; Get keyboard function key mapping to EDT keys.
 (load "edt-lk201" nil t)
 
@@ -42,3 +45,5 @@
 (defun edt-set-term-width-132 ()
   "Set terminal width to 132 columns."
   (vt100-wide-mode 1))
+
+;;; edt-vt100.el ends here
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 2912da5df28..d54c0bba8cb 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1,4 +1,4 @@
-;;; edt.el --- Enhanced EDT Keypad Mode Emulation for GNU Emacs 19
+;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
 
 ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index fde3672f3a8..c8c3331ba31 100644
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -77,6 +77,8 @@
 ;;    other programs.
 ;;
 
+;;; Code:
+
 ;;;; Customization:
 (defgroup pc-select nil
   "Emulate pc bindings."
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 21891d24862..f17ff953884 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1071,7 +1071,7 @@ kills modified buffers without asking."
   (interactive)
   (let ((list (tpu-make-file-buffer-list (buffer-list))))
     (setq list (delq (current-buffer) list))
-    (if (not list) (error "No other buffers."))
+    (if (not list) (error "No other buffers"))
     (switch-to-buffer (car (reverse list)))))
 
 (defun tpu-make-file-buffer-list (buffer-list)
@@ -1343,7 +1343,7 @@ The text is saved for the tpu-paste command."
            (delete-region beg end)
            (tpu-unset-match)))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-store-text nil
   "Copy the selected region to the cut buffer without deleting it.
@@ -1365,7 +1365,7 @@ The text is saved for the tpu-paste command."
                (buffer-substring (tpu-match-beginning) (tpu-match-end)))
          (tpu-unset-match))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-cut (arg)
   "Copy selected region to the cut buffer.  In the absence of an
@@ -1392,7 +1392,7 @@ argument, delete the selected region too."
            (if (not arg) (delete-region beg end))
            (tpu-unset-match)))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-delete-current-line (num)
   "Delete one or specified number of lines after point.
@@ -1532,7 +1532,7 @@ With argument reinserts the character that many times."
                           (not case-replace) (not tpu-regexp-p))
            (tpu-unset-match)))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-substitute (num)
   "Replace the selected region with the contents of the cut buffer, and
@@ -1548,7 +1548,7 @@ A negative argument means replace all occurrences of the search string."
                (tpu-search-internal-core tpu-search-last-string)))
            (setq num (1- num))))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-lm-replace (from to)
   "Interactively search for OLD-string and substitute NEW-string."
@@ -1558,7 +1558,7 @@ A negative argument means replace all occurrences of the search string."
   (let ((doit t) (strings 0))
 
     ;; Can't replace null strings
-    (if (string= "" from) (error "No string to replace."))
+    (if (string= "" from) (error "No string to replace"))
 
     ;; Find the first occurrence
     (tpu-set-search)
@@ -1631,7 +1631,7 @@ are performed without asking.  Only works in forward direction."
 or each line in the entire buffer if no region is selected."
   (interactive
    (list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist)))
-  (if (string= "" text) (error "No string specified."))
+  (if (string= "" text) (error "No string specified"))
   (cond ((tpu-mark)
          (save-excursion
            (if (> (point) (tpu-mark)) (exchange-point-and-mark))
@@ -1649,7 +1649,7 @@ or each line in the entire buffer if no region is selected."
 or each line of the entire buffer if no region is selected."
   (interactive
    (list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist)))
-  (if (string= "" text) (error "No string specified."))
+  (if (string= "" text) (error "No string specified"))
   (cond ((tpu-mark)
          (save-excursion
            (if (> (point) (tpu-mark)) (exchange-point-and-mark))
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index 479af176526..465b923f891 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -1,4 +1,4 @@
-;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt
+;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
 
 ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index ba6d032fd6a..39aae2cf2a7 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -1,4 +1,4 @@
-;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file
+;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
 
 ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 588a6c6e319..6db67394ead 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -817,7 +817,7 @@ is the name of the register for COM."
           (com (car (cdr (cdr vip-d-com))))
           (reg (nth 3 vip-d-com)))
       (if (null val) (setq val (car (cdr vip-d-com))))
-      (if (null m-com) (error "No previous command to repeat."))
+      (if (null m-com) (error "No previous command to repeat"))
       (setq vip-use-register reg)
       (funcall m-com (cons val com)))))
 
@@ -1499,7 +1499,7 @@ used.  This behaviour is controlled by the sign of prefix numeric value."
   (let ((com (vip-getcom arg)))
     (if (numberp arg)
         (if (or (> arg 99) (< arg 1))
-            (error "Prefix must be between 1 and 99.")
+            (error "Prefix must be between 1 and 99")
           (goto-char
            (if (> (point-max) 80000)
                (* (/ (point-max) 100) arg)
@@ -1693,7 +1693,7 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
   "Repeat previous search."
   (interactive "P")
   (let ((val (vip-p-val arg)) (com (vip-getcom arg)))
-    (if (null vip-s-string) (error "No previous search string."))
+    (if (null vip-s-string) (error "No previous search string"))
     (vip-search vip-s-string vip-s-forward arg)
     (if com (vip-execute-com 'vip-search-next val com))))
 
@@ -1701,7 +1701,7 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
   "Repeat previous search in the reverse direction."
   (interactive "P")
   (let ((val (vip-p-val arg)) (com (vip-getcom arg)))
-    (if (null vip-s-string) (error "No previous search string."))
+    (if (null vip-s-string) (error "No previous search string"))
     (vip-search vip-s-string (not vip-s-forward) arg)
     (if com (vip-execute-com 'vip-search-Next val com))))
 
@@ -1742,11 +1742,11 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
           (if (null buffer-name)
               (current-buffer)
             (get-buffer buffer-name)))
-    (if (null buffer) (error "Buffer %s nonexistent." buffer-name))
+    (if (null buffer) (error "Buffer %s nonexistent" buffer-name))
     (if (or (not (buffer-modified-p buffer))
             (y-or-n-p "Buffer is modified, are you sure? "))
         (kill-buffer buffer)
-      (error "Buffer not killed."))))
+      (error "Buffer not killed"))))
 
 (defun vip-find-file ()
   "Visit file in the current window."