summaryrefslogtreecommitdiff
path: root/lisp/progmodes
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/antlr-mode.el6
-rw-r--r--lisp/progmodes/autoconf.el4
-rw-r--r--lisp/progmodes/cmacexp.el3
-rw-r--r--lisp/progmodes/cperl-mode.el2
-rw-r--r--lisp/progmodes/cpp.el2
-rw-r--r--lisp/progmodes/cwarn.el2
-rw-r--r--lisp/progmodes/delphi.el10
-rw-r--r--lisp/progmodes/ebnf-bnf.el30
-rw-r--r--lisp/progmodes/ebnf-iso.el30
-rw-r--r--lisp/progmodes/ebnf-otz.el6
-rw-r--r--lisp/progmodes/ebnf-yac.el30
-rw-r--r--lisp/progmodes/ebnf2ps.el11
-rw-r--r--lisp/progmodes/executable.el2
-rw-r--r--lisp/progmodes/fortran.el2
-rw-r--r--lisp/progmodes/idlw-shell.el4
-rw-r--r--lisp/progmodes/idlw-toolbar.el6
-rw-r--r--lisp/progmodes/idlwave.el22
-rw-r--r--lisp/progmodes/m4-mode.el2
-rw-r--r--lisp/progmodes/mantemp.el2
-rw-r--r--lisp/progmodes/meta-mode.el2
-rw-r--r--lisp/progmodes/octave-inf.el2
-rw-r--r--lisp/progmodes/ps-mode.el2
-rw-r--r--lisp/progmodes/scheme.el2
-rw-r--r--lisp/progmodes/simula.el2
-rw-r--r--lisp/progmodes/tcl.el6
25 files changed, 99 insertions, 93 deletions
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 8d2f3c6f961..1047ddf600f 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -1,4 +1,4 @@
-;;; antlr-mode.el --- Major mode for ANTLR grammar files
+;;; antlr-mode.el --- major mode for ANTLR grammar files
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
;;
@@ -1532,8 +1532,6 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'."
indent-tabs-mode (cadddr elem)
alist nil))))))
-;;; antlr-mode.el ends here
-
; LocalWords: antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee
; LocalWords: Java's Nomencl ruledef tokendef ruleref tokenref setType ader ev
; LocalWords: ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK
@@ -1541,3 +1539,5 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'."
; LocalWords: VOCAB EVOCAB Antlr's TokenTypes exportVocab incl excl SUPERS gen
; LocalWords: VOCABS IVOCAB exportVocabs importVocabs superclasses vocab kens
; LocalWords: sclass evocab ivocab importVocab deps glibs supers sep dep lang
+
+;;; antlr-mode.el ends here
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el
index a90e9766d61..69bf7aab775 100644
--- a/lisp/progmodes/autoconf.el
+++ b/lisp/progmodes/autoconf.el
@@ -1,10 +1,10 @@
-;;; autoconf.el --- Mode for editing Autoconf configure.in files.
+;;; autoconf.el --- mode for editing Autoconf configure.in files
;; Copyright (C) 2000 Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; Keywords: languages
-;; $Revision: $
+;; $Revision: 1.1 $
;; This file is part of GNU Emacs.
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 96aef6ad9d2..a701da6e808 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;; USAGE =============================================================
;; In C mode C-C C-e is bound to c-macro-expand. The result of the
@@ -84,6 +86,7 @@
;; If the start point of the region is inside a macro definition the
;; macro expansion is often inaccurate.
+;;; Code:
(require 'cc-mode)
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 395d3011c42..42377f5beb6 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1001,7 +1001,7 @@ the faces: please specify bold, italic, underline, shadow and box.)
(defmacro cperl-ps-extend-face-list (arg)
`(ps-extend-face-list ,arg))
(defmacro cperl-ps-extend-face-list (arg)
- `(error "This version of Emacs has no `ps-extend-face-list'.")))
+ `(error "This version of Emacs has no `ps-extend-face-list'")))
;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
;; macros instead of defsubsts don't work on Emacs, so we do the
;; expansion manually. Any other suggestions?
diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index 590795a5540..53105b43b25 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -1,4 +1,4 @@
-;;; cpp.el --- Highlight or hide text according to cpp conditionals.
+;;; cpp.el --- highlight or hide text according to cpp conditionals
;; Copyright (C) 1994, 1995 Free Software Foundation
diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el
index bb6ac183555..b251487c9d5 100644
--- a/lisp/progmodes/cwarn.el
+++ b/lisp/progmodes/cwarn.el
@@ -1,4 +1,4 @@
-;;; cwarn.el --- Highlight suspicious C and C++ constructions.
+;;; cwarn.el --- highlight suspicious C and C++ constructions
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index c3e9a9e264f..8af7d07e2a3 100644
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1,4 +1,4 @@
-;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
+;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs
;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
@@ -65,11 +65,15 @@
(provide 'delphi)
(defconst delphi-version
- (let ((revision "$Revision: 3.4 $"))
+ (let ((revision "$Revision: 3.5 $"))
(string-match ": \\([^ ]+\\)" revision)
(match-string 1 revision))
"Version of this delphi mode.")
;;; $Log: delphi.el,v $
+;;; Revision 3.5 2001/01/26 20:54:03 fx
+;;; (delphi-comment-face, delphi-string-face)
+;;; (delphi-keyword-face, delphi-other-face): Fix :type.
+;;;
;;; Revision 3.4 2000/02/09 07:04:15 blaak
;;; Make resourcestring a declaration region, like const and var.
;;;
@@ -2029,3 +2033,5 @@ no args, if that value is non-nil."
(delphi-progress-done))))
(run-hooks 'delphi-mode-hook))
+
+;;; delphi.el ends here
diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el
index 436d4421ec3..1b748b3b9c3 100644
--- a/lisp/progmodes/ebnf-bnf.el
+++ b/lisp/progmodes/ebnf-bnf.el
@@ -1,11 +1,11 @@
-;;; ebnf-bnf --- Parser for EBNF
+;;; ebnf-bnf.el --- parser for EBNF
;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:29:04 vinicius>
+;; Time-stamp: <2001-07-15 01:02:12 pavel>
;; Version: 1.5
;; This file is part of GNU Emacs.
@@ -107,7 +107,7 @@
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf-otz)
@@ -132,7 +132,7 @@
(goto-char start)
(setq token (ebnf-bnf-lex))
(and (eq token 'end-of-input)
- (error "Invalid EBNF file format."))
+ (error "Invalid EBNF file format"))
(while (not (eq token 'end-of-input))
(ebnf-message-float
"Parsing...%s%%"
@@ -154,12 +154,12 @@
body)
(setq ebnf-action nil)
(or (eq token 'non-terminal)
- (error "Invalid header production."))
+ (error "Invalid header production"))
(or (eq (ebnf-bnf-lex) 'equal)
- (error "Invalid production: missing `='."))
+ (error "Invalid production: missing `='"))
(setq body (ebnf-body))
(or (eq (car body) 'period)
- (error "Invalid production: missing `.'."))
+ (error "Invalid production: missing `.'"))
(setq body (cdr body))
(ebnf-eps-add-production header)
(cons (ebnf-bnf-lex)
@@ -217,7 +217,7 @@
(let ((kind (ebnf-node-kind node)))
(cond
((eq kind 'ebnf-generate-non-terminal)
- (error "Exception sequence should not contain a non-terminal."))
+ (error "Exception sequence should not contain a non-terminal"))
((eq kind 'ebnf-generate-repeat)
(ebnf-no-non-terminal (ebnf-node-separator node)))
((memq kind '(ebnf-generate-optional ebnf-generate-except))
@@ -240,7 +240,7 @@
(ebnf-term token)
(let ((times ebnf-bnf-lex))
(or (eq (ebnf-bnf-lex) 'repeat)
- (error "Missing `*'."))
+ (error "Missing `*'"))
(ebnf-token-repeat times (ebnf-term (ebnf-bnf-lex))))))
@@ -314,13 +314,13 @@
((eq token 'begin-group)
(let ((body (ebnf-body)))
(or (eq (car body) 'end-group)
- (error "Missing `)'."))
+ (error "Missing `)'"))
(cdr body)))
;; optional
((eq token 'begin-optional)
(let ((body (ebnf-body)))
(or (eq (car body) 'end-optional)
- (error "Missing `]'."))
+ (error "Missing `]'"))
(ebnf-token-optional (cdr body))))
;; list
((eq token 'begin-list)
@@ -341,7 +341,7 @@
((eq token 'end-zero-or-more)
(ebnf-make-zero-or-more list-part sep-part))
(t
- (error "Missing `}+', `}*' or `}'."))
+ (error "Missing `}+', `}*' or `}'"))
)))
;; no term
(t
@@ -441,7 +441,7 @@ See documentation for variable `ebnf-bnf-lex'."
'end-of-input)
;; error
((eq token 'error)
- (error "Illegal character."))
+ (error "Illegal character"))
;; default
((eq token 'default)
(forward-char)
@@ -450,7 +450,7 @@ See documentation for variable `ebnf-bnf-lex'."
(prog1
(ebnf-bnf-lex)
(setq ebnf-default-p t))
- (error "Illegal `default' element.")))
+ (error "Illegal `default' element")))
;; integer
((eq token 'integer)
(setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
@@ -533,7 +533,7 @@ See documentation for variable `ebnf-bnf-lex'."
(forward-char)
t)
(t
- (error "Illegal character."))
+ (error "Illegal character"))
))
diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el
index c5716f4a6ea..024063f19ec 100644
--- a/lisp/progmodes/ebnf-iso.el
+++ b/lisp/progmodes/ebnf-iso.el
@@ -1,11 +1,11 @@
-;;; ebnf-iso --- Parser for ISO EBNF
+;;; ebnf-iso.el --- parser for ISO EBNF
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:25:16 vinicius>
+;; Time-stamp: <2001-07-15 01:03:20 pavel>
;; Version: 1.5
;; This file is part of GNU Emacs.
@@ -117,7 +117,7 @@
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf-otz)
@@ -145,7 +145,7 @@
(goto-char start)
(setq token (ebnf-iso-lex))
(and (eq token 'end-of-input)
- (error "Invalid ISO EBNF file format."))
+ (error "Invalid ISO EBNF file format"))
(while (not (eq token 'end-of-input))
(ebnf-message-float
"Parsing...%s%%"
@@ -167,12 +167,12 @@
body)
(setq ebnf-action nil)
(or (eq token 'non-terminal)
- (error "Invalid meta identifier syntax rule."))
+ (error "Invalid meta identifier syntax rule"))
(or (eq (ebnf-iso-lex) 'equal)
- (error "Invalid syntax rule: missing `='."))
+ (error "Invalid syntax rule: missing `='"))
(setq body (ebnf-iso-definition-list))
(or (eq (car body) 'period)
- (error "Invalid syntax rule: missing `;' or `.'."))
+ (error "Invalid syntax rule: missing `;' or `.'"))
(setq body (cdr body))
(ebnf-eps-add-production header)
(cons (ebnf-iso-lex)
@@ -233,7 +233,7 @@
(if (eq token 'integer)
(let ((times ebnf-iso-lex))
(or (eq (ebnf-iso-lex) 'repeat)
- (error "Missing `*'."))
+ (error "Missing `*'"))
(ebnf-token-repeat times (ebnf-iso-primary (ebnf-iso-lex))))
(ebnf-iso-primary token)))
@@ -273,20 +273,20 @@
((eq token 'begin-group)
(let ((body (ebnf-iso-definition-list)))
(or (eq (car body) 'end-group)
- (error "Missing `)'."))
+ (error "Missing `)'"))
(cdr body)))
;; optional sequence
((eq token 'begin-optional)
(let ((body (ebnf-iso-definition-list)))
(or (eq (car body) 'end-optional)
- (error "Missing `]' or `/)'."))
+ (error "Missing `]' or `/)'"))
(ebnf-token-optional (cdr body))))
;; repeated sequence
((eq token 'begin-zero-or-more)
(let* ((body (ebnf-iso-definition-list))
(repeat (cdr body)))
(or (eq (car body) 'end-zero-or-more)
- (error "Missing `}' or `:)'."))
+ (error "Missing `}' or `:)'"))
(ebnf-make-zero-or-more repeat)))
;; empty
(t
@@ -426,7 +426,7 @@ See documentation for variable `ebnf-iso-lex'."
'end-of-input)
;; error
((eq token 'error)
- (error "Illegal character."))
+ (error "Illegal character"))
;; integer
((eq token 'integer)
(setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
@@ -451,7 +451,7 @@ See documentation for variable `ebnf-iso-lex'."
(ebnf-trim-right
(ebnf-buffer-substring " 0-9A-Za-z\240-\377"))))
(and ebnf-no-meta-identifier
- (error "Exception sequence should not contain a meta identifier."))
+ (error "Exception sequence should not contain a meta identifier"))
'non-terminal)
;; begin optional, begin list or begin group
((eq token 'left-parenthesis)
@@ -511,7 +511,7 @@ See documentation for variable `ebnf-iso-lex'."
(while (> pair 0)
(skip-chars-forward ebnf-iso-comment-chars ebnf-limit)
(cond ((>= (point) ebnf-limit)
- (error "Missing end of comment: `*)'."))
+ (error "Missing end of comment: `*)'"))
((= (following-char) ?*)
(skip-chars-forward "*" ebnf-limit)
(when (= (following-char) ?\))
@@ -525,7 +525,7 @@ See documentation for variable `ebnf-iso-lex'."
(forward-char)
(setq pair (1+ pair))))
(t
- (error "Illegal character."))
+ (error "Illegal character"))
))))
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el
index 224ce9f6433..0969f873bb7 100644
--- a/lisp/progmodes/ebnf-otz.el
+++ b/lisp/progmodes/ebnf-otz.el
@@ -1,11 +1,11 @@
-;;; ebnf-otz --- Syntatic chart OpTimiZer
+;;; ebnf-otz.el --- syntatic chart OpTimiZer
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 14:54:41 vinicius>
+;; Time-stamp: <2001-07-15 01:03:33 pavel>
;; Version: 1.0
;; This file is part of GNU Emacs.
@@ -39,7 +39,7 @@
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf2ps)
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index a0a7f7048b9..317a193f399 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -1,11 +1,11 @@
-;;; ebnf-yac --- Parser for Yacc/Bison
+;;; ebnf-yac.el --- parser for Yacc/Bison
;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:47:23 vinicius>
+;; Time-stamp: <2001-07-15 01:04:02 pavel>
;; Version: 1.1
;; This file is part of GNU Emacs.
@@ -70,7 +70,7 @@
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf-otz)
@@ -109,9 +109,9 @@
(goto-char start)
(setq token (ebnf-yac-lex))
(and (eq token 'end-of-input)
- (error "Invalid Yacc/Bison file format."))
+ (error "Invalid Yacc/Bison file format"))
(or (eq (ebnf-yac-definitions token) 'yac-separator)
- (error "Missing `%%%%'."))
+ (error "Missing `%%%%'"))
(setq token (ebnf-yac-lex))
(while (not (memq token '(end-of-input yac-separator)))
(ebnf-message-float
@@ -140,9 +140,9 @@
(setq token (ebnf-yac-lex))
(when (eq token 'open-angle)
(or (eq (ebnf-yac-lex) 'non-terminal)
- (error "Missing type name."))
+ (error "Missing type name"))
(or (eq (ebnf-yac-lex) 'close-angle)
- (error "Missing `>'."))
+ (error "Missing `>'"))
(setq token (ebnf-yac-lex)))
(setq token (ebnf-yac-name-list token)
ebnf-yac-token-list (nconc (cdr token)
@@ -163,12 +163,12 @@
body)
(setq ebnf-action nil)
(or (eq token 'non-terminal)
- (error "Invalid rule name."))
+ (error "Invalid rule name"))
(or (eq (ebnf-yac-lex) 'colon)
- (error "Invalid rule: missing `:'."))
+ (error "Invalid rule: missing `:'"))
(setq body (ebnf-yac-alternative))
(or (eq (car body) 'period)
- (error "Invalid rule: missing `;'."))
+ (error "Invalid rule: missing `;'"))
(setq body (cdr body))
(ebnf-eps-add-production header)
(cons (ebnf-yac-lex)
@@ -243,7 +243,7 @@
token (ebnf-yac-lex))
(eq token 'comma))
(or (eq (ebnf-yac-lex) 'non-terminal)
- (error "Missing token name."))))
+ (error "Missing token name"))))
(cons token names)))
@@ -332,7 +332,7 @@ See documentation for variable `ebnf-yac-lex'."
'end-of-input)
;; error
((eq token 'error)
- (error "Illegal character."))
+ (error "Illegal character"))
;; "string"
((eq token 'string)
(setq ebnf-yac-lex (ebnf-get-string))
@@ -405,7 +405,7 @@ See documentation for variable `ebnf-yac-lex'."
((= (following-char) ?\')
(ebnf-string " -&(-~" ?\' "character"))
(t
- (error "Illegal character."))
+ (error "Illegal character"))
)))
(ebnf-yac-skip-spaces))
@@ -448,7 +448,7 @@ See documentation for variable `ebnf-yac-lex'."
(while not-end
(skip-chars-forward ebnf-yac-comment-chars ebnf-limit)
(cond ((>= (point) ebnf-limit)
- (error "Missing end of comment: `*/'."))
+ (error "Missing end of comment: `*/'"))
((= (following-char) ?*)
(skip-chars-forward "*" ebnf-limit)
(when (= (following-char) ?/)
@@ -456,7 +456,7 @@ See documentation for variable `ebnf-yac-lex'."
(forward-char)
(setq not-end nil)))
(t
- (error "Illegal character."))
+ (error "Illegal character"))
))))
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 1eb251f49c5..0ee3bda26f8 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1,11 +1,11 @@
-;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript
+;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2001/02/02 15:23:39 vinicius>
+;; Time-stamp: <2001-07-15 01:05:00 pavel>
;; Version: 3.5
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html
@@ -1000,7 +1000,7 @@ Please send all bug fixes and enhancements to
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ps-print)
@@ -4974,7 +4974,7 @@ end
;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit)
(skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit)
(if (or (eobp) (/= (following-char) eos-char))
- (error "Illegal %s: missing `%c'." kind eos-char)
+ (error "Illegal %s: missing `%c'" kind eos-char)
(forward-char)
(1- (point))))))
@@ -4992,7 +4992,7 @@ end
(goto-char (+ (point) n 1))))
(if (= (preceding-char) ?\")
(1- (point))
- (error "Missing `\"'.")))
+ (error "Missing `\"'")))
(defun ebnf-trim-right (str)
@@ -5300,5 +5300,4 @@ end
(provide 'ebnf2ps)
-
;;; ebnf2ps.el ends here
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index eecaab17e3d..ce2b0b68cbb 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -284,4 +284,4 @@ file modes."
(provide 'executable)
-;; executable.el ends here
+;;; executable.el ends here
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 4618ab8ae89..f921e59782d 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -813,7 +813,7 @@ See also `fortran-window-create-momentarily'."
(other-window 1)
(switch-to-buffer " fortran-window-extra" t)
(select-window (previous-window))))
- (error (message "No room for Fortran window.")
+ (error (message "No room for Fortran window")
'error)))
(defun fortran-window-create-momentarily (&optional arg)
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 3451610ce8e..ec1729becaa 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1,10 +1,10 @@
-;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs.
+;;; idlw-shell.el --- run IDL or WAVE as an inferior process of Emacs
;; Copyright (c) 1999, 2000 Free Software Foundation
;; Author: Chris Chase <chase@att.com>
;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:13:34 $
;; Keywords: processes
;; This file is part of GNU Emacs.
diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el
index 8ae95d772b4..0247d037e62 100644
--- a/lisp/progmodes/idlw-toolbar.el
+++ b/lisp/progmodes/idlw-toolbar.el
@@ -1,9 +1,9 @@
-;;; idlw-toolbar.el --- A debugging toolbar for IDLWAVE
+;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
;; Copyright (c) 1999, 2000 Free Software Foundation
;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:14:24 $
;; Keywords: processes
;; This file is part of GNU Emacs.
@@ -873,5 +873,3 @@ static char * file[] = {
(provide 'idlwave-toolbar)
;;; idlw-toolbar.el ends here
-
-
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index f18189c948f..03f78af3acf 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -4,10 +4,10 @@
;; Author: Chris Chase <chase@att.com>
;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:12:40 $
;; Keywords: languages
-;; This file is part of the 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
@@ -4256,7 +4256,7 @@ will pop up."
(file-name-directory idlwave-libinfo-file))
(not (string= "" (file-name-nondirectory
idlwave-libinfo-file))))
- (error "`idlwave-libinfo-file' does not point to file in accessible directory."))
+ (error "`idlwave-libinfo-file' does not point to file in accessible directory"))
(cond
((and arg idlwave-path-alist
@@ -5952,7 +5952,7 @@ The list is cashed in `idlwave-class-info' for faster access."
(let* ((class (nth 2 (idlwave-current-routine))))
;; Check if we are in a class routine
(unless class
- (error "Not in a method procedure or function."))
+ (error "Not in a method procedure or function"))
;; Check if we need to update the "current" class
(if (not (equal class idlwave-current-tags-class))
(idlwave-prepare-class-tag-completion class))
@@ -6200,7 +6200,7 @@ Works for system routines and keywords only."
(if idlwave-help-is-loaded
t ;; everything is OK.
(let* ((dir (or (idlwave-help-directory)
- (error "Online Help is not installed (idlwave-help-directory is unknown).")))
+ (error "Online Help is not installed (idlwave-help-directory is unknown)")))
(lfile1 (expand-file-name "idlw-help.elc" dir))
(lfile2 (expand-file-name "idlw-help.el" dir))
(hfile (expand-file-name "idlw-help.txt" dir)))
@@ -6260,7 +6260,7 @@ prefix arg, the class property is cleared out."
(if (car module)
(apply 'idlwave-display-calling-sequence
(idlwave-fix-module-if-obj_new module))
- (error "Don't know which calling sequence to show.")))))
+ (error "Don't know which calling sequence to show")))))
(defun idlwave-resolve (&optional arg)
"Call RESOLVE on the module name at point.
@@ -6364,10 +6364,10 @@ use. With ARG force class query for object methods."
((null entry)
(error "Nothing known about a module %s" name2))
((eq (car source) 'system)
- (error "Source code for system routine %s is not available."
+ (error "Source code for system routine %s is not available"
name2))
((equal (cdr source) "")
- (error "Source code for routine %s is not available."
+ (error "Source code for routine %s is not available"
name2))
((memq (car source) '(buffer lib compiled))
(setq buf1
@@ -6663,7 +6663,7 @@ If we do not know about MODULE, just return KEYWORD literally."
(error "No %s %s known %s" type name
(if initial-class (concat "in class " initial-class) "")))
((or (null name) (equal name ""))
- (error "No function or procedure call at point."))
+ (error "No function or procedure call at point"))
((null calling-seq)
(error "Calling sequence of %s %s is not available" type name))
(t
@@ -6945,7 +6945,7 @@ with this command."
(not (idlwave-shell-is-running)))
(error "Shell is not running"))
((null idlwave-compiled-routines)
- (error "No compiled routines. Maybe you need to update with `C-c C-i'."))
+ (error "No compiled routines. Maybe you need to update with `C-c C-i'"))
(t
(idlwave-list-load-path-shadows nil idlwave-compiled-routines
"in the shell"))))
@@ -7603,5 +7603,3 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
(provide 'idlwave)
;;; idlwave.el ends here
-
-
diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index 78c32490e1c..d16409092e1 100644
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -172,4 +172,4 @@
;;; "m4_syscmd" "m4_sysval" "m4_traceoff" "m4_traceon" "m4_translit"
;;; "m4_m4_undefine" "m4_undivert"))
-;;; m4.el ends here
+;;; m4-mode.el ends here
diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el
index 6c1ca3af27d..9b8fa4a6ea3 100644
--- a/lisp/progmodes/mantemp.el
+++ b/lisp/progmodes/mantemp.el
@@ -1,4 +1,4 @@
-;;; mantemp.el --- Create manual template instantiations from g++ 2.7.2 output.
+;;; mantemp.el --- create manual template instantiations from g++ 2.7.2 output
;; Copyright (C) 1996 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index fff1a39e7a5..ec53cd1957b 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -1,4 +1,4 @@
-;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources.
+;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources
;; Copyright (C) 1997 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el
index dd26918e4e2..1274c3eff31 100644
--- a/lisp/progmodes/octave-inf.el
+++ b/lisp/progmodes/octave-inf.el
@@ -24,6 +24,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(require 'octave-mod)
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 3d011672d8e..772374de6ab 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -1,4 +1,4 @@
-;;; ps-mode.el --- PostScript mode for GNU Emacs.
+;;; ps-mode.el --- PostScript mode for GNU Emacs
;; Copyright (C) 1999 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 78aed798e1b..f4c8df155f1 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -1,4 +1,4 @@
-;;; scheme.el --- Scheme (and DSSSL) editing mode.
+;;; scheme.el --- Scheme (and DSSSL) editing mode
;; Copyright (C) 1986, 87, 88, 97, 1998 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index a7321711c9d..1ed49836807 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -259,7 +259,7 @@ for SIMULA mode to function correctly."
(match-beginning 2)
(match-end 2)))))
(if (not (and major minor))
- (error "Cannot figure out the major and minor version numbers."))
+ (error "Cannot figure out the major and minor version numbers"))
;; calculate the major version
(cond
((= major 18) (setq major 'v18)) ;Emacs 18
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 9e54726b81d..f6e559ac8cf 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1,4 +1,4 @@
-;; tcl.el --- Tcl code editing commands for Emacs
+;;; tcl.el --- Tcl code editing commands for Emacs
;; Copyright (C) 1994, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
@@ -6,7 +6,7 @@
;; Author: Tom Tromey <tromey@busco.lanl.gov>
;; Chris Lindblad <cjl@lcs.mit.edu>
;; Keywords: languages tcl modes
-;; Version: $Revision: 1.61 $
+;; Version: $Revision: 1.62 $
;; This file is part of GNU Emacs.
@@ -132,7 +132,7 @@
(require 'imenu))
()))
-(defconst tcl-version "$Revision: 1.61 $")
+(defconst tcl-version "$Revision: 1.62 $")
(defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
;;
View Lorry Controller Status