From 1ea0c057d38279190023c5584f12bb42989e3e28 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 24 Jul 1997 04:28:05 +0000 Subject: (te-newline): Change eql to eq. (te-insert-lines, te-delete-lines, te-process-output): Likewise. (te-parse-program-and-args, te-get-char): Likewise. --- lisp/terminal.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'lisp/terminal.el') diff --git a/lisp/terminal.el b/lisp/terminal.el index d6138aa8ea..04f98302ec 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -673,7 +673,7 @@ move to start of new line, clear to end of line." (cond ((not terminal-more-processing)) ((< (setq te-more-count (1- te-more-count)) 0) (te-set-more-count t)) - ((eql te-more-count 0) + ((eq te-more-count 0) ;; this doesn't return (te-more-break))) (if (eobp) @@ -746,11 +746,11 @@ move to start of new line, clear to end of line." (n (min (- (te-get-char) ?\ ) line)) (i 0)) (delete-region (- (point-max) (* n (1+ te-width))) (point-max)) - (if (eql (point) (point-max)) (insert ?\n)) + (if (eq (point) (point-max)) (insert ?\n)) (while (< i n) (setq i (1+ i)) (insert-char ?\ te-width) - (or (eql i line) (insert ?\n)))))) + (or (eq i line) (insert ?\n)))))) (setq te-more-count -1)) @@ -768,7 +768,7 @@ move to start of new line, clear to end of line." (while (< i n) (setq i (1+ i)) (insert-char ?\ te-width) - (or (eql i line) (insert ?\n)))))) + (or (eq i line) (insert ?\n)))))) (setq te-more-count -1)) ;; ^p ^a @@ -905,7 +905,7 @@ move to start of new line, clear to end of line." start (car te-pending-output) string (car (cdr te-pending-output)) char (aref string start)) - (if (eql (setq start (1+ start)) (length string)) + (if (eq (setq start (1+ start)) (length string)) (progn (setq te-pending-output (cons 0 (cdr (cdr te-pending-output))) start 0 @@ -915,7 +915,7 @@ move to start of new line, clear to end of line." (if (and (> char ?\037) (< char ?\377)) (cond ((eolp) ;; unread char - (if (eql start 0) + (if (eq start 0) (setq te-pending-output (cons 0 (cons (make-string 1 char) (cdr te-pending-output)))) @@ -934,13 +934,13 @@ move to start of new line, clear to end of line." (setq char (point)) (end-of-line) (setq end (min end (+ start (- (point) char)))) (goto-char char) - (if (eql end matchpos) (setq matchpos nil)) + (if (eq end matchpos) (setq matchpos nil)) (delete-region (point) (+ (point) (- end start))) - (insert (if (and (eql start 0) - (eql end (length string))) + (insert (if (and (eq start 0) + (eq end (length string))) string (substring string start end))) - (if (eql end (length string)) + (if (eq end (length string)) (setq te-pending-output (cons 0 (cdr (cdr te-pending-output)))) (setcar te-pending-output end)) @@ -949,7 +949,7 @@ move to start of new line, clear to end of line." ;; function we could trivially emulate different terminals ;; Who cares in any case? (Apart from stupid losers using rlogin) (funcall - (if (eql char ?\^p) + (if (eq char ?\^p) (or (cdr (assq (te-get-char) '((?= . te-move-to-position) (?c . te-clear-rest-of-line) @@ -1000,7 +1000,7 @@ move to start of new line, clear to end of line." (let ((start (car te-pending-output)) (string (car (cdr te-pending-output)))) (prog1 (aref string start) - (if (eql (setq start (1+ start)) (length string)) + (if (eq (setq start (1+ start)) (length string)) (setq te-pending-output (cons 0 (cdr (cdr te-pending-output)))) (setcar te-pending-output start)))) (catch 'char @@ -1009,7 +1009,7 @@ move to start of new line, clear to end of line." (progn (set-process-filter te-process (function (lambda (p s) - (or (eql (length s) 1) + (or (eq (length s) 1) (setq te-pending-output (list 1 s))) (throw 'char (aref s 0))))) (accept-process-output te-process)) @@ -1171,7 +1171,7 @@ subprocess started." s p) (prog1 (substring s p (match-end 1)) (setq p (match-end 0)) - (if (eql p (length s)) (setq p nil))) + (if (eq p (length s)) (setq p nil))) (prog1 (substring s p) (setq p nil))) l))) -- cgit v1.2.3