Some fixes to follow coding conventions.

6 files changed, 23 insertions, 17 deletions

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 3b516c26692..cebdb2fdcda 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1,4 +1,4 @@
-;;; browse-url.el --- Pass a URL to a WWW browser
+;;; browse-url.el --- pass a URL to a WWW browser
 
 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001
 ;;   Free Software Foundation, Inc.
@@ -1012,13 +1012,13 @@ used instead of `browse-url-new-window-flag'."
           (switch-to-buffer buf)))
       (if (eq (following-char) ?_)
           (cond ((eq browse-url-lynx-input-field 'warn)
-                 (error "Please move out of the input field first."))
+                 (error "Please move out of the input field first"))
                 ((eq browse-url-lynx-input-field 'avoid)
                  (while (and (eq (following-char) ?_) (> n 0))
                    (term-send-down) ; down arrow
                    (sit-for browse-url-lynx-input-delay))
                  (if (eq (following-char) ?_)
-                     (error "Cannot move out of the input field, sorry.")))))
+                     (error "Cannot move out of the input field, sorry")))))
       (term-send-string proc (concat "g" ; goto
                                      "\C-u" ; kill default url
                                      url
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index 579123a5dd3..f0e091ccc7f 100644
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -1,11 +1,11 @@
-;;; net-utils.el --- Network functions
+;;; net-utils.el --- network functions
 
 ;; Copyright (C) 1998, 1999, 2000, 2001  Free Software Foundation, Inc.
 
 ;; Author:  Peter Breton <pbreton@cs.umb.edu>
 ;; Created: Sun Mar 16 1997
 ;; Keywords: network communications
-;; Time-stamp: <2000-10-04 22:39:05 pbreton>
+;; Time-stamp: <2001-07-15 00:34:52 pavel>
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index 4076c5ae7f2..0751aec4286 100644
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -1,4 +1,4 @@
-;;; quickurl.el --- Insert an URL based on text at point in buffer.
+;;; quickurl.el --- insert an URL based on text at point in buffer
 
 ;; Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
 
@@ -7,7 +7,7 @@
 ;; Created: 1999-05-28
 ;; Keywords: hypermedia
 
-;; This file is part of GNU emacs.
+;; 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
diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el
index 8753cceda25..227eccd4757 100644
--- a/lisp/net/snmp-mode.el
+++ b/lisp/net/snmp-mode.el
@@ -1,4 +1,4 @@
-;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
+;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
 
 ;; Copyright (C) 1995,1998  Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;; INTRODUCTION
 ;; ------------
 ;; This package provides a major mode for editing SNMP MIBs.  It
@@ -82,6 +84,8 @@
 ;; Enabling global-font-lock-mode is also sufficient.
 ;;
 
+;;; Code:
+
 ;;;----------------------------------------------------------------------------
 ;;
 ;;                          Customize these:
@@ -713,4 +717,4 @@ controls whether case is significant."
 
 (provide 'snmp-mode)
 
-;; snmp-mode.el ends here
+;;; snmp-mode.el ends here
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index c55a12c45e8..53e97ae8f1b 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -287,14 +287,14 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
                        ((symbolp expr)
                         (if (fboundp expr)
                             (funcall expr name)
-                          (error "WebJump URL function \"%s\" undefined." 
+                          (error "WebJump URL function \"%s\" undefined" 
                                  expr)))
-                       (t (error "WebJump URL expression for \"%s\" invalid."
+                       (t (error "WebJump URL expression for \"%s\" invalid"
                                  name)))))))
 
 (defun webjump-builtin (expr name)
   (if (< (length expr) 1)
-      (error "WebJump URL builtin for \"%s\" empty." name))
+      (error "WebJump URL builtin for \"%s\" empty" name))
   (let ((builtin (aref expr 0)))
     (cond
      ((eq builtin 'mirrors)
@@ -307,12 +307,12 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
      ((eq builtin 'simple-query)
       (webjump-builtin-check-args expr name 3)
       (webjump-do-simple-query name (aref expr 1) (aref expr 2) (aref expr 3)))
-     (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid."
+     (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid"
                builtin name)))))
 
 (defun webjump-builtin-check-args (expr name count)
   (or (= (length expr) (1+ count))
-      (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args."
+      (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args"
              (aref expr 0) name count)))
 
 (defun webjump-choose-mirror (name urls)
@@ -400,4 +400,4 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
 
 (provide 'webjump)
 
-;; webjump.el ends here
+;;; webjump.el ends here
diff --git a/lisp/net/zone-mode.el b/lisp/net/zone-mode.el
index 2a534d8a6d0..d1528aa1794 100644
--- a/lisp/net/zone-mode.el
+++ b/lisp/net/zone-mode.el
@@ -1,4 +1,4 @@
-;;; zone-mode.el -- major mode for editing DNS zone files.
+;;; zone-mode.el --- major mode for editing DNS zone files
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;;
 ;;; See the comments in ``define-derived-mode zone-mode''
 ;;; (the last function in this file)
@@ -52,7 +54,7 @@
                ((not (string= old-date cur-date))
                 "00") ;; reset sequeence number
                ((>= old-seq-num 99)
-                (error "Serial number's sequenece cannot increment beyond 99."))
+                (error "Serial number's sequenece cannot increment beyond 99"))
                (t
                 (format "%02d" (1+ old-seq-num)))))
              (old-serial (concat old-date old-seq))