summaryrefslogtreecommitdiff
path: root/lisp/textmodes
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/artist.el2
-rw-r--r--lisp/textmodes/flyspell.el5
-rw-r--r--lisp/textmodes/ispell.el8
-rw-r--r--lisp/textmodes/page-ext.el5
-rw-r--r--lisp/textmodes/refer.el5
-rw-r--r--lisp/textmodes/texinfmt.el20
-rw-r--r--lisp/textmodes/texinfo.el2
-rw-r--r--lisp/textmodes/texnfo-upd.el16
-rw-r--r--lisp/textmodes/two-column.el7
9 files changed, 38 insertions, 32 deletions
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index d5670acb2da..a918e720b7f 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -5493,4 +5493,4 @@ The event, EV, is the mouse event."
;; Don't hesitate to ask me any questions.
-;; artist.el ends here
+;;; artist.el ends here
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 0498820b4fb..19d2b99bcf7 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1,11 +1,11 @@
-;;; flyspell.el --- On-the-fly spell checker
+;;; flyspell.el --- on-the-fly spell checker
;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
;; Author: Manuel Serrano <Manuel.Serrano@unice.fr>
;; Keywords: convenience
-;;; 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
@@ -2096,4 +2096,5 @@ This function is meant to be added to 'flyspell-incorrect-hook'."
(set (abbrev-symbol old table) new))
(provide 'flyspell)
+
;;; flyspell.el ends here
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 9b9a5a632bd..eebd32f2ec0 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1,9 +1,9 @@
-;;; ispell.el --- Interface to International Ispell Versions 3.1 and 3.2
+;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
-;; Author: Ken Stevens <k.stevens@ieee.org>
-;; Maintainer: Ken Stevens <k.stevens@ieee.org>
+;; Author: Ken Stevens <k.stevens@ieee.org>
+;; Maintainer: Ken Stevens <k.stevens@ieee.org>
;; Stevens Mod Date: Fri Aug 4 09:41:50 PDT 2000
;; Stevens Revision: 3.4
;; Status : Release with 3.1.12+ and 3.2.0+ ispell.
@@ -1357,7 +1357,7 @@ quit spell session exited."
(setq ispell-filter (cdr ispell-filter)) ; remove extra \n
(if (and ispell-filter (listp ispell-filter))
(if (> (length ispell-filter) 1)
- (error "Ispell and its process have different character maps.")
+ (error "Ispell and its process have different character maps")
(setq poss (ispell-parse-output (car ispell-filter)))))
(cond ((eq poss t)
(or quietly
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index c5f50fe2840..3b04d3787be 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -718,7 +718,7 @@ to the same line in the pages buffer."
(progn
(setq pages-buffer nil
pages-pos-list nil)
- (error "Buffer in which pages were found is deleted.")))
+ (error "Buffer in which pages were found is deleted")))
(beginning-of-line)
(let* ((pages-number (1- (count-lines (point-min) (point))))
(pos (nth pages-number pages-pos-list))
@@ -806,5 +806,4 @@ to the same line in the pages buffer."
;;; Place `provide' at end of file.
(provide 'page-ext)
-;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
-
+;;; page-ext.el ends here
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 3a80efd981f..9cb10914984 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -1,4 +1,4 @@
-;;; refer.el --- look up references in bibliography files.
+;;; refer.el --- look up references in bibliography files
;; Copyright (C) 1992, 1996 Free Software Foundation, Inc.
@@ -175,7 +175,7 @@ found on the last refer-find-entry or refer-find-next-entry."
(if (looking-at
"[ \t\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ \t\n,]+\\)\\s-*,")
(buffer-substring (match-beginning 1) (match-end 1))
- (error "Cannot find key for entry in file %s."
+ (error "Cannot find key for entry in file %s"
(car refer-saved-state))))))
(if (not (= (point) old-point))
(set-mark old-point))))
@@ -395,4 +395,3 @@ found on the last refer-find-entry or refer-find-next-entry."
files))
;;; refer.el ends here
-
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 91caa8a9859..01f49921b4c 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -1,4 +1,4 @@
-;;; texinfmt.el --- format Texinfo files into Info files.
+;;; texinfmt.el --- format Texinfo files into Info files
;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993,
;; 1994, 1995, 1996, 1997, 1998, 2000, 2001
@@ -24,6 +24,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;; Emacs lisp functions to convert Texinfo files to Info files.
@@ -362,7 +364,7 @@ if large. You can use Info-split to do this manually."
(save-excursion
(goto-char (point-min))
(or (search-forward "@setfilename" nil t)
- (error "Texinfo file needs an `@setfilename FILENAME' line."))
+ (error "Texinfo file needs an `@setfilename FILENAME' line"))
(setq texinfo-command-end (point))
(setq outfile (texinfo-parse-line-arg)))
@@ -1105,10 +1107,10 @@ Leave point after argument."
(goto-char texinfo-command-end)
(skip-chars-forward " \t")
(or (eolp)
- (error "Extraneous text at end of command line."))
+ (error "Extraneous text at end of command line"))
(goto-char texinfo-command-start)
(or (bolp)
- (error "Extraneous text at beginning of command line."))
+ (error "Extraneous text at beginning of command line"))
(delete-region (point) (progn (forward-line 1) (point))))
(defun texinfo-discard-line-with-args ()
@@ -1670,7 +1672,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
(texinfo-discard-line)
(let ((next (1+ (car (cdr (car texinfo-stack))))))
(if (> next ?z)
- (error "More than 26 items in @alphaenumerate; get a bigger alphabet."))
+ (error "More than 26 items in @alphaenumerate; get a bigger alphabet"))
(setcar (cdr (car texinfo-stack)) next)
(insert "\b " next ". \n"))
(forward-line -1))
@@ -1680,7 +1682,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
(texinfo-discard-line)
(let ((next (1+ (car (cdr (car texinfo-stack))))))
(if (> next ?Z)
- (error "More than 26 items in @capsenumerate; get a bigger alphabet."))
+ (error "More than 26 items in @capsenumerate; get a bigger alphabet"))
(setcar (cdr (car texinfo-stack)) next)
(insert "\b " next ". \n"))
(forward-line -1))
@@ -2045,7 +2047,7 @@ This command is executed when texinfmt sees @item inside @multitable."
(while (search-forward "@tab" nil t)
(setq tab-number (1+ tab-number)))
(if (/= tab-number (length table-widths))
- (error "Wrong number of @tab's in a @multitable row.")))
+ (error "Wrong number of @tab's in a @multitable row")))
(goto-char (point-min))
;; 2. Format each cell, and copy to a rectangle
;; buffer looks like this: A1 @tab A2 @tab A3
@@ -4131,7 +4133,7 @@ Each file will be processed even if an error occurred previously.
For example, invoke
\"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
(if (not noninteractive)
- (error "batch-texinfo-format may only be used -batch."))
+ (error "batch-texinfo-format may only be used -batch"))
(let ((version-control t)
(auto-save-default nil)
(find-file-run-dired nil)
@@ -4188,4 +4190,4 @@ For example, invoke
;;; Place `provide' at end of file.
(provide 'texinfmt)
-;;; texinfmt.el ends here.
+;;; texinfmt.el ends here
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 3d470ffb78b..04ae6fb5a8b 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -25,6 +25,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(or (fboundp 'defgroup)
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index c1df0a6fca3..a474e4c716c 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -538,7 +538,7 @@ Signal an error if not end of menu."
(save-excursion
(if (re-search-forward "^@end menu" nil t)
(point)
- (error "Menu does not have an end."))))
+ (error "Menu does not have an end"))))
(defun texinfo-delete-old-menu (beginning first)
"Delete the old menu. Point must be in or after menu.
@@ -626,7 +626,7 @@ complements the node name rather than repeats it as a title does."
;; "Double colon" entry line; menu entry and node name are the same,
((search-forward "::" (save-excursion (end-of-line) (point)) t)
(if (looking-at "[ \t]*[^ \t\n]+")
- (error "Descriptive text already exists."))
+ (error "Descriptive text already exists"))
(skip-chars-backward ": \t")
(setq node-name (buffer-substring beginning (point))))
@@ -639,7 +639,7 @@ complements the node name rather than repeats it as a title does."
(save-excursion (forward-line 1) (point)) t)
(progn
(if (looking-at "[ \t]*[^ \t\n]+")
- (error "Descriptive text already exists."))
+ (error "Descriptive text already exists"))
(skip-chars-backward "., \t")
(setq node-name (buffer-substring beginning (point))))
;; Menu entry line ends in a return.
@@ -648,9 +648,9 @@ complements the node name rather than repeats it as a title does."
(skip-chars-backward " \t\n")
(setq node-name (buffer-substring beginning (point)))
(if (= 0 (length node-name))
- (error "No node name on this line.")
+ (error "No node name on this line")
(insert "."))))
- (t (error "No node name on this line.")))
+ (t (error "No node name on this line")))
;; Search for node that matches node name, and copy the section title.
(if (re-search-forward
(concat
@@ -674,7 +674,7 @@ complements the node name rather than repeats it as a title does."
(progn (end-of-line)
(skip-chars-backward " \t")
(point)))))
- (error "Cannot find node to match node name in menu entry.")))
+ (error "Cannot find node to match node name in menu entry")))
;; Return point to the menu and insert the title.
(end-of-line)
(delete-region
@@ -990,7 +990,7 @@ and leave point on the line before the `@end menu' line."
(goto-char end-of-menu)
;; handle multi-line description
(if (not (re-search-backward "^\\* " nil t))
- (error "No entries in menu."))
+ (error "No entries in menu"))
(point))))
(while (< (point) last-entry)
(if (re-search-forward "^\\* " end-of-menu t)
@@ -1487,7 +1487,7 @@ Info `g*' command is inadequate."
;; update a single node
(let ((auto-fill-function nil) (auto-fill-hook nil))
(if (not (re-search-backward "^@node" (point-min) t))
- (error "Node line not found before this position."))
+ (error "Node line not found before this position"))
(texinfo-sequentially-update-the-node)
(message
"Done...sequentially updated the node . You may save the buffer."))
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index a4c965a6966..b231a285675 100644
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -5,6 +5,8 @@
;; Author: Daniel Pfeiffer <occitan@esperanto.org>
;; Adapted-By: ESR, Daniel Pfeiffer
+;; This file is part of GNU Emacs.
+
;; Esperanto: English:
;; ^Ci dosiero estas ero de GNU Emacs. This file is part of GNU Emacs.
@@ -33,6 +35,7 @@
;; Free Software Foundation, 59 Temple Place - Suite 330
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
;;; Komentario: Commentary:
@@ -284,7 +287,7 @@ minus this value."
(kill-local-variable '2C-mode)
(kill-local-variable 'mode-line-format)
nil)))
- (if req (error "You must first set two-column minor mode."))))
+ (if req (error "You must first set two-column minor mode"))))
@@ -385,7 +388,7 @@ accepting the proposed default buffer.
(set-buffer b2)
(and (2C-other)
(not (eq b1 (2C-other)))
- (error "Buffer already associated with buffer `%s'."
+ (error "Buffer already associated with buffer `%s'"
(buffer-name (2C-other))))
(setq b1 (and (assq '2C-window-width (buffer-local-variables))
2C-window-width)))
View Lorry Controller Status