diff lisp/emulation/tpu-edt.el @ 38436:b174db545cfd

Some fixes to follow coding conventions.

--- a/lisp/emulation/tpu-edt.el	Mon Jul 16 12:22:17 2001 +0000
+++ b/lisp/emulation/tpu-edt.el	Mon Jul 16 12:23:00 2001 +0000
@@ -1071,7 +1071,7 @@
   (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 @@
 	   (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 @@
 	       (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 @@
 	   (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 @@
 			  (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 @@
 	       (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 @@
   (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 @@
 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 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))