(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.

1 files changed, 14 insertions, 14 deletions

diff --git a/lisp/terminal.el b/lisp/terminal.el
index d6138aa8ea2..04f98302ecc 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)))