Mercurial > emacs

changeset 18932:aff82880eaf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Thu, 24 Jul 1997 04:28:05 +0000
parents 43b52e6a35c2
children 817d02b8b126
files lisp/terminal.el
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/terminal.el	Thu Jul 24 04:21:34 1997 +0000
+++ b/lisp/terminal.el	Thu Jul 24 04:28:05 1997 +0000
@@ -673,7 +673,7 @@
   (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 @@
 	     (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 @@
 	(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 @@
 	      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 @@
 	(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 @@
 		     (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 @@
 	  ;;  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 @@
       (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 @@
 	    (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 @@
 				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)))