Mercurial > emacs
diff lisp/emulation/tpu-edt.el @ 38436:b174db545cfd
Some fixes to follow coding conventions.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 16 Jul 2001 12:23:00 +0000 |
parents | 18117bc6bcdd |
children | a386ffde71f8 |
line wrap: on
line diff
--- 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))