Hello,
please consider applying this patch to the GNU Emacs CVS. It fixes
arguments of error calls which should not end with a period (should the end
with `!' ?) according to doc-string of error:
,----
| In Emacs, the convention is that error messages start with a capital
| letter but *do not* end with a period. Please follow this convention
| for the sake of consistency.
`----
2001-08-26 Pavel Janík <[EMAIL PROTECTED]>
* textmodes/texnfo-upd.el: remove dots and `!' at the end of error
arguments.
--
Pavel Janík
You don't go back to using vi because "Emacs is too complicated". Only
people with serious mental defects "go back to vi".
-- Per Abrahamsen, in gnu.emacs.help
diff -urN emacs-21.0.105.orig/lisp/textmodes/texnfo-upd.el emacs-21.0.105/lisp/textmodes/texnfo-upd.el
--- emacs-21.0.105.orig/lisp/textmodes/texnfo-upd.el Sun Aug 26 12:16:24 2001
+++ emacs-21.0.105/lisp/textmodes/texnfo-upd.el Sun Aug 26 12:38:58 2001
@@ -547,7 +547,7 @@
(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.
@@ -629,13 +629,13 @@
(if (search-forward "* " (save-excursion (end-of-line) (point)) t)
(progn (skip-chars-forward " \t")
(setq beginning (point)))
- (error "This is not a line in a menu!"))
+ (error "This is not a line in a menu"))
(cond
;; "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))))
@@ -648,7 +648,7 @@
(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.
@@ -657,9 +657,9 @@
(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
@@ -686,7 +686,7 @@
(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
@@ -797,12 +797,12 @@
;; Move point to location after `top'.
(if (not (re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)" nil t))
- (error "This buffer needs a Top node!"))
+ (error "This buffer needs a Top node"))
(let ((first-chapter
(save-excursion
(or (re-search-forward "^@node" nil t)
- (error "Too few nodes for a master menu!"))
+ (error "Too few nodes for a master menu"))
(point))))
(if (search-forward texinfo-master-menu-header first-chapter t)
(progn
@@ -892,12 +892,12 @@
;; Insert a master menu only after `Top' node and before next node
;; \(or include file if there is no next node\).
(if (not (re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)" nil t))
- (error "This buffer needs a Top node!"))
+ (error "This buffer needs a Top node"))
(let ((first-chapter
(save-excursion (re-search-forward "^@node\\|^@include") (point))))
(if (not (re-search-forward "^@menu" first-chapter t))
(error
- "Buffer lacks ordinary `Top' menu in which to insert master.")))
+ "Buffer lacks ordinary `Top' menu in which to insert master")))
(beginning-of-line)
(delete-region ; buffer must have ordinary top menu
(point)
@@ -1002,7 +1002,7 @@
(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)
@@ -1047,7 +1047,7 @@
(point))))
(t
(error
- "texinfo-specific-section-type: Chapter or section not found."))))))
+ "texinfo-specific-section-type: Chapter or section not found"))))))
(defun texinfo-hierarchic-level ()
"Return the general hierarchal level of the next node in a texinfo file.
@@ -1533,7 +1533,7 @@
;; 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."))
@@ -1543,7 +1543,7 @@
(beginning (region-beginning))
(end (region-end)))
(if (= end beginning)
- (error "Please mark a region!"))
+ (error "Please mark a region"))
(save-restriction
(narrow-to-region beginning end)
(goto-char beginning)
@@ -1820,7 +1820,7 @@
(widen)
(goto-char (point-min))
(if (not (re-search-forward "^@node" nil t))
- (error "No `@node' line found in %s !" (buffer-name)))
+ (error "No `@node' line found in %s" (buffer-name)))
(beginning-of-line)
(texinfo-check-for-node-name)
(setq next-node-name (texinfo-copy-node-name))
@@ -1837,7 +1837,7 @@
(switch-to-buffer (find-file-noselect (car files)))
(goto-char (point-min))
(if (not (re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)" nil t))
- (error "This buffer needs a Top node!"))
+ (error "This buffer needs a Top node"))
(beginning-of-line)
(texinfo-delete-existing-pointers)
(end-of-line)
@@ -1857,7 +1857,7 @@
(widen)
(goto-char (point-min))
(if (not (re-search-forward "^@node" nil t))
- (error "No `@node' line found in %s !" (buffer-name)))
+ (error "No `@node' line found in %s" (buffer-name)))
(beginning-of-line)
(texinfo-check-for-node-name)
(setq next-node-name (texinfo-copy-node-name))
@@ -1873,7 +1873,7 @@
(switch-to-buffer (find-file-noselect (car files)))
(goto-char (point-min))
(if (not (re-search-forward "^@node" nil t))
- (error "No `@node' line found in %s !" (buffer-name)))
+ (error "No `@node' line found in %s" (buffer-name)))
(beginning-of-line)
;; Update other menus and nodes if requested.
